From: panne <unknown>
Date: Sat, 20 Jan 2001 21:02:19 +0000 (+0000)
Subject: [project @ 2001-01-20 21:02:19 by panne]
X-Git-Tag: Approximately_9120_patches~2840
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=11427f35d1275419d178d02f53cea73e406e1c74;p=ghc-hetmet.git

[project @ 2001-01-20 21:02:19 by panne]
Remove bogus case alternative
---

diff --git a/ghc/compiler/rename/RnHiFiles.lhs b/ghc/compiler/rename/RnHiFiles.lhs
index 9742091..6664fe6 100644
--- a/ghc/compiler/rename/RnHiFiles.lhs
+++ b/ghc/compiler/rename/RnHiFiles.lhs
@@ -529,11 +529,6 @@ readIface file_path
     case parseIface contents init_parser_state of
 	POk _ iface          -> returnRn (Right iface)
 	PFailed err 	     -> bale_out err
-	parse_result 	     -> bale_out empty
-	 	-- This last case can happen if the interface file is (say) empty
-		-- in which case the parser thinks it looks like an IdInfo or
-		-- something like that.  Just an artefact of the fact that the
-		-- parser is used for several purposes at once.
     }
   where
     init_parser_state = PState{ bol = 0#, atbol = 1#,