From: simonpj Date: Thu, 30 Nov 2000 15:44:44 +0000 (+0000) Subject: [project @ 2000-11-30 15:44:44 by simonpj] X-Git-Tag: Approximately_9120_patches~3219 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0e7025cb075a559094af36a4655fbf5212a08209;p=ghc-hetmet.git [project @ 2000-11-30 15:44:44 by simonpj] wibble --- diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs index 603c993..eba1839 100644 --- a/ghc/compiler/main/HscMain.lhs +++ b/ghc/compiler/main/HscMain.lhs @@ -278,7 +278,7 @@ myParseModule dflags src_filename buf <- hGetStringBuffer True{-expand tabs-} src_filename let glaexts | dopt Opt_GlasgowExts dflags = 1# - | otherwise = 0# + | otherwise = 0# case parse buf PState{ bol = 0#, atbol = 1#, context = [], glasgow_exts = glaexts,