X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fiface%2FIfaceEnv.lhs;h=6699a7570879bcab9ad8cd6759b9bf2f3ec5382b;hp=3eceaa0f04bf248165d25a16c9adf2ea1154658a;hb=5edf58c10a0144fa8b328e18d0b7fffec2319424;hpb=61d2625ae2e6a4cdae2ffc92df828905e81c24cc

diff --git a/compiler/iface/IfaceEnv.lhs b/compiler/iface/IfaceEnv.lhs
index 3eceaa0..6699a75 100644
--- a/compiler/iface/IfaceEnv.lhs
+++ b/compiler/iface/IfaceEnv.lhs
@@ -358,7 +358,7 @@ lookupHomePackage mod_name occ
 newIfaceName :: OccName -> IfL Name
 newIfaceName occ
   = do	{ uniq <- newUnique
-	; return (mkInternalName uniq occ noSrcLoc) }
+	; return $! mkInternalName uniq occ noSrcLoc }
 
 newIfaceNames :: [OccName] -> IfL [Name]
 newIfaceNames occs