From: Max Bolingbroke <batterseapower@hotmail.com>
Date: Thu, 31 Jul 2008 01:23:49 +0000 (+0000)
Subject: Follow Literal change in Simplify
X-Git-Tag: 2008-09-12~285
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=159946caca9c7ef84af7eb0e575ff2220e803e28

Follow Literal change in Simplify
---

diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs
index 07bd02c..8c34873 100644
--- a/compiler/simplCore/Simplify.lhs
+++ b/compiler/simplCore/Simplify.lhs
@@ -13,7 +13,6 @@ import SimplMonad
 import Type hiding      ( substTy, extendTvSubst )
 import SimplEnv
 import SimplUtils
-import Literal		( mkStringLit )
 import MkId		( rUNTIME_ERROR_ID )
 import Id
 import Var
@@ -1263,7 +1262,7 @@ rebuildCase env scrut case_bndr alts cont
 		-- inaccessible.  So we simply put an error case here instead.
 	    pprTrace "mkCase: null alts" (ppr case_bndr <+> ppr scrut) $
 	    let res_ty' = contResultType env' (substTy env' (coreAltsType alts)) dup_cont
-		lit = Lit (mkStringLit "Impossible alternative")
+		lit = mkStringLit "Impossible alternative"
 	    in return (env', mkApps (Var rUNTIME_ERROR_ID) [Type res_ty', lit])
 
 	  else do