From: simonpj Date: Thu, 30 Oct 2003 09:37:57 +0000 (+0000) Subject: [project @ 2003-10-30 09:37:57 by simonpj] X-Git-Tag: Approx_11550_changesets_converted~307 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d1652879c78b51f3caf7ffb9e49460012629fa62;p=ghc-hetmet.git [project @ 2003-10-30 09:37:57 by simonpj] Formatting only --- diff --git a/ghc/compiler/typecheck/TcRnDriver.lhs b/ghc/compiler/typecheck/TcRnDriver.lhs index b1dd133..59d790f 100644 --- a/ghc/compiler/typecheck/TcRnDriver.lhs +++ b/ghc/compiler/typecheck/TcRnDriver.lhs @@ -887,7 +887,7 @@ checkMain let { main_mod = case mb_main_mod of { Just mod -> mkModuleName mod ; Nothing -> mAIN_Name } ; - main_fn = case mb_main_fn of { + main_fn = case mb_main_fn of { Just fn -> mkRdrUnqual (mkVarOcc (mkFastString fn)) ; Nothing -> main_RDR_Unqual } } ;