From 6647f52f5710bb1df27eda5125721c81498f6b8a Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 28 Jul 2009 10:17:31 +0000 Subject: [PATCH] fix a warning --- compiler/coreSyn/MkExternalCore.lhs | 3 --- 1 file changed, 3 deletions(-) diff --git a/compiler/coreSyn/MkExternalCore.lhs b/compiler/coreSyn/MkExternalCore.lhs index f6a5c51..6288b7e 100644 --- a/compiler/coreSyn/MkExternalCore.lhs +++ b/compiler/coreSyn/MkExternalCore.lhs @@ -133,9 +133,6 @@ make_exp (Var v) = do -> C.External (unpackFS nm) (showSDoc (ppr callconv)) (make_ty (varType v)) FCallId (CCall (CCallSpec DynamicTarget callconv _)) -> C.DynExternal (showSDoc (ppr callconv)) (make_ty (varType v)) - FCallId _ - -> pprPanic "MkExternalCore died: can't handle non-{static,dynamic}-C foreign call" - (ppr v) -- Constructors are always exported, so make sure to declare them -- with qualified names DataConWorkId _ -> C.Var (make_var_qid False vName) -- 1.7.10.4