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 4 5parse originalFileName input = Parser.parseModuleWithMode parseMode input 6 where 7 parseMode :: Parser.ParseMode 8 parseMode = Parser.defaultParseMode { Parser.parseFilename = originalFileName 9 , Parser.extensions = 10 Ext.glasgowExts ++ 11 [Ext.ExplicitForall] 12 } 13main = 14 do s <- readFile "Bug.hs" 15 let x = parse "Bug.hs" s 16 putStrLn (show x) 17