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