From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 28 Jul 2009 10:38:55 +0000 (+0000)
Subject: fix warning
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=86db518e34d94c2c3ecc35d0695fec10a8067464;hp=184a5cedce7f8a253308d96a297acf09e3eb1199

fix warning
---

diff --git a/compiler/deSugar/DsForeign.lhs b/compiler/deSugar/DsForeign.lhs
index 1b1b7f0..83dac63 100644
--- a/compiler/deSugar/DsForeign.lhs
+++ b/compiler/deSugar/DsForeign.lhs
@@ -91,8 +91,6 @@ dsForeigns fos = do
    do_decl (ForeignExport (L _ id) _ (CExport (CExportStatic ext_nm cconv))) = do
       (h, c, _, _) <- dsFExport id (idType id) ext_nm cconv False
       return (h, c, [id], [])
-
-   do_decl d = pprPanic "dsForeigns/do_decl" (ppr d)
 \end{code}