From 159946caca9c7ef84af7eb0e575ff2220e803e28 Mon Sep 17 00:00:00 2001 From: Max Bolingbroke Date: Thu, 31 Jul 2008 01:23:49 +0000 Subject: [PATCH] Follow Literal change in Simplify --- compiler/simplCore/Simplify.lhs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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 -- 1.7.10.4