From: rrt <unknown>
Date: Wed, 7 Feb 2001 12:18:42 +0000 (+0000)
Subject: [project @ 2001-02-07 12:18:42 by rrt]
X-Git-Tag: Approximately_9120_patches~2722
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=484b124675aa8d013c9b335b25a90cd5df6d114f;p=ghc-hetmet.git

[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).
---

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("<no file>") 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 {