From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 28 Jul 2009 10:17:31 +0000 (+0000)
Subject: fix a warning
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6647f52f5710bb1df27eda5125721c81498f6b8a;p=ghc-hetmet.git

fix a warning
---

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)