X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fghci%2FLinker.lhs;h=15117fe0b4e764b4e1f14cdaff5bb61f3a27a15d;hb=9491f55ce4ab4ea288674c6a0cc174bb8673c7a1;hp=26f40ebbe4e13bea04ed7d03cef4a999fc7d6fa3;hpb=61d2625ae2e6a4cdae2ffc92df828905e81c24cc;p=ghc-hetmet.git

diff --git a/compiler/ghci/Linker.lhs b/compiler/ghci/Linker.lhs
index 26f40eb..15117fe 100644
--- a/compiler/ghci/Linker.lhs
+++ b/compiler/ghci/Linker.lhs
@@ -468,8 +468,8 @@ getLinkDeps hsc_env hpt pit maybe_normal_osuf span mods
 	     case mb_stuff of
 		  Found loc mod -> found loc mod
 		  _ -> no_obj mod_name
-
-    found loc mod = do {
+        where
+            found loc mod = do {
 		-- ...and then find the linkable for it
 	       mb_lnk <- findObjectLinkableMaybe mod loc ;
 	       case mb_lnk of {