From d1652879c78b51f3caf7ffb9e49460012629fa62 Mon Sep 17 00:00:00 2001 From: simonpj Date: Thu, 30 Oct 2003 09:37:57 +0000 Subject: [PATCH] [project @ 2003-10-30 09:37:57 by simonpj] Formatting only --- ghc/compiler/typecheck/TcRnDriver.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 } } ; -- 1.7.10.4