1import qualified Language.Haskell.Exts.Annotated as Parser 2import qualified Language.Haskell.Exts.Annotated.Syntax as Syn 3import qualified Language.Haskell.Exts.Extension as Ext 4parse originalFileName input 5 = Parser.parseModuleWithMode parseMode input 6 where parseMode :: Parser.ParseMode 7 parseMode 8 = Parser.defaultParseMode{Parser.parseFilename = originalFileName, 9 Parser.extensions = Ext.glasgowExts ++ [Ext.ExplicitForall]} 10main 11 = do s <- readFile "Bug.hs" 12 let x = parse "Bug.hs" s 13 putStrLn (show x) 14