X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnIfaces.lhs;h=08e7fb9948c974abf8efd3e240eb3753d9246273;hb=a237946da277f10bd3d223e5926d118044d24194;hp=bb133114d7a83ad07c5a9e629a5df5d45842fc4f;hpb=e73218c6a995e56a60eab34594802d6a1067a604;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnIfaces.lhs b/ghc/compiler/rename/RnIfaces.lhs
index bb13311..08e7fb9 100644
--- a/ghc/compiler/rename/RnIfaces.lhs
+++ b/ghc/compiler/rename/RnIfaces.lhs
@@ -1120,10 +1120,12 @@ findAndReadIface doc_str mod_name hi_boot_file
       -- one for 'normal' ones, the other for .hi-boot files,
       -- hence the need to signal which kind we're interested.
 
-    getHiMaps			`thenRn` \ (search_path, hi_map, hiboot_map) ->
+    --getHiMaps			`thenRn` \ (search_path, hi_map, hiboot_map) ->
     let
-	relevant_map | hi_boot_file = hiboot_map
-		     | otherwise    = hi_map
+        bomb = panic "findAndReadInterface: hi_maps: FIXME"
+        search_path = panic "findAndReadInterface: search_path: FIXME"
+	relevant_map | hi_boot_file = bomb --hiboot_map
+		     | otherwise    = bomb --hi_map
     in	
     case lookupFM relevant_map mod_name of
 	-- Found the file