X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnIfaces.lhs;h=7be1ba134eedb7bd14a9efc7d3a50de43aa65656;hb=17879095049f5705c9734cab4f4c5d56f61f81a7;hp=ad02e6dce3a53603a7431ad5f728811cd5b80773;hpb=dbb27b50948726c09fae681bca921ba3c00d859b;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnIfaces.lhs b/ghc/compiler/rename/RnIfaces.lhs
index ad02e6d..7be1ba1 100644
--- a/ghc/compiler/rename/RnIfaces.lhs
+++ b/ghc/compiler/rename/RnIfaces.lhs
@@ -699,15 +699,15 @@ getInterfaceExports mod_name from
   = getHomeSymbolTableRn 		`thenRn` \ hst ->
     case lookupModuleEnvByName hst mod_name of {
 	Just mds -> returnRn (mdModule mds, mdExports mds) ;
-
  
     loadInterface doc_str mod_name from	`thenRn` \ ifaces ->
     case lookupModuleEnv (iPST ifaces) mod_name of
 	Just mds -> returnRn (mdModule mod, mdExports mds)
 	-- loadInterface always puts something in the map
 	-- even if it's a fake
-  where
-    doc_str = sep [pprModuleName mod_name, ptext SLIT("is directly imported")]
+    }
+    where
+      doc_str = sep [pprModuleName mod_name, ptext SLIT("is directly imported")]
 \end{code}