From 484b124675aa8d013c9b335b25a90cd5df6d114f Mon Sep 17 00:00:00 2001 From: rrt Date: Wed, 7 Feb 2001 12:18:42 +0000 Subject: [PATCH] [project @ 2001-02-07 12:18:42 by rrt] Dear Jules: not all of us have yet attained GHC-ENLiGHTENMENT (i.e. comment out freeStringBuffer until it's implemented in GHC < 4.11). --- ghc/compiler/main/HscMain.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs index 1179e8f..089e8b6 100644 --- a/ghc/compiler/main/HscMain.lhs +++ b/ghc/compiler/main/HscMain.lhs @@ -296,7 +296,7 @@ myParseModule dflags src_filename loc = mkSrcLoc (_PK_ src_filename) 1 } of { PFailed err -> do { hPutStrLn stderr (showSDoc err); - freeStringBuffer buf; +-- Not yet implemented in <4.11 freeStringBuffer buf; return Nothing }; POk _ rdr_module@(HsModule mod_name _ _ _ _ _ _) -> do { @@ -470,7 +470,7 @@ hscParseExpr dflags str loc = mkSrcLoc SLIT("") 0 } of { PFailed err -> do { hPutStrLn stderr (showSDoc err); - freeStringBuffer buf; +-- Not yet implemented in <4.11 freeStringBuffer buf; return Nothing }; POk _ rdr_expr -> do { -- 1.7.10.4