From 18ea99aa2e3de03524099029a02f7e4f71fb729c Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 11 Aug 2007 00:34:24 +0000 Subject: [PATCH] Add a type sig --- compiler/main/HscMain.lhs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs index 2d1f71e..ca2bb7e 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" >> -- 1.7.10.4