Commit 18ea99aa authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add a type sig

parent bdada9f3
...@@ -53,7 +53,7 @@ import HsSyn ( HsModule, LHsBinds, HsGroup, LIE, LImportDecl, HsDoc, ...@@ -53,7 +53,7 @@ import HsSyn ( HsModule, LHsBinds, HsGroup, LIE, LImportDecl, HsDoc,
HaddockModInfo ) HaddockModInfo )
import CoreSyn import CoreSyn
import SrcLoc ( Located(..) ) import SrcLoc ( Located(..) )
import StringBuffer ( hGetStringBuffer, stringToStringBuffer ) import StringBuffer
import Parser import Parser
import Lexer import Lexer
import SrcLoc ( mkSrcLoc ) import SrcLoc ( mkSrcLoc )
...@@ -731,6 +731,8 @@ hscCmmFile dflags filename = do ...@@ -731,6 +731,8 @@ hscCmmFile dflags filename = do
ml_obj_file = panic "hscCmmFile: no obj file" } ml_obj_file = panic "hscCmmFile: no obj file" }
myParseModule :: DynFlags -> FilePath -> Maybe StringBuffer
-> IO (Either ErrMsg (Located (HsModule RdrName)))
myParseModule dflags src_filename maybe_src_buf myParseModule dflags src_filename maybe_src_buf
= -------------------------- Parser ---------------- = -------------------------- Parser ----------------
showPass dflags "Parser" >> showPass dflags "Parser" >>
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment