diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-07-28 10:17:31 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-07-28 10:17:31 +0000 |
| commit | 6647f52f5710bb1df27eda5125721c81498f6b8a (patch) | |
| tree | f59f68bf7cf415378429fb9546aa68bb44d6d4d4 | |
| parent | 4fa65a12c1e4c4bcfd92ff30440a9e75d298e0b7 (diff) | |
| download | haskell-6647f52f5710bb1df27eda5125721c81498f6b8a.tar.gz | |
fix a warning
| -rw-r--r-- | compiler/coreSyn/MkExternalCore.lhs | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/compiler/coreSyn/MkExternalCore.lhs b/compiler/coreSyn/MkExternalCore.lhs index f6a5c51051..6288b7ea29 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) |