diff options
| author | Ian Lynagh <igloo@earth.li> | 2007-08-11 00:34:24 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-08-11 00:34:24 +0000 |
| commit | 18ea99aa2e3de03524099029a02f7e4f71fb729c (patch) | |
| tree | 790d85e010710d08d5f0ccfcb2946f95bb59dbe0 | |
| parent | bdada9f3d77de26430e67e7369d40e1de146b703 (diff) | |
| download | haskell-18ea99aa2e3de03524099029a02f7e4f71fb729c.tar.gz | |
Add a type sig
| -rw-r--r-- | compiler/main/HscMain.lhs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs index 2d1f71e33b..ca2bb7e81e 100644 --- a/compiler/main/HscMain.lhs +++ b/compiler/main/HscMain.lhs @@ -53,7 +53,7 @@ import HsSyn ( HsModule, LHsBinds, HsGroup, LIE, LImportDecl, HsDoc, HaddockModInfo ) import CoreSyn import SrcLoc ( Located(..) ) -import StringBuffer ( hGetStringBuffer, stringToStringBuffer ) +import StringBuffer import Parser import Lexer import SrcLoc ( mkSrcLoc ) @@ -731,6 +731,8 @@ hscCmmFile dflags filename = do 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 = -------------------------- Parser ---------------- showPass dflags "Parser" >> |