Hello, I'm using the GHC lexer to parse some haskell code containing a language pragma, in GHC 7.4.2
module Main where import GHC import GHC.Paths ( libdir ) import Lexer import qualified MonadUtils as GMU import StringBuffer import FastString (mkFastString) import SrcLoc import ErrUtils (mkPlainErrMsg) main::IO() main = do let contents="{-# LANGUAGE CPP #-}\nmodule Main where\nmain=undefined" runGhc (Just libdir) $ do flg <- getSessionDynFlags let sb=stringToStringBuffer contents let lexLoc = mkRealSrcLoc (mkFastString "<interactive>") 1 1 let prTS = lexTokenStream sb lexLoc flg case prTS of POk _ toks -> GMU.liftIO $ print $ map (show . unLoc) toks PFailed l msg -> GMU.liftIO $ print $ mkPlainErrMsg l msg This prints: ["ITblockComment \" CPP #\"","ITmodule","ITconid \"Main\"","ITwhere","ITvocurly","ITvarid \"main\"","ITequal","ITvarid \"undefined\""] Why is the first token ITblockComment and not ITlanguage_prag? Do I need to enable something special to get pragma tokens? Thanks! -- JP Moresmau http://jpmoresmau.blogspot.com/
_______________________________________________ Glasgow-haskell-users mailing list Glasgow-haskell-users@haskell.org http://www.haskell.org/mailman/listinfo/glasgow-haskell-users