From: Duncan Coutts <duncan@well-typed.com>
Date: Thu, 11 Jun 2009 16:59:05 +0000 (+0000)
Subject: Add missing StgPrimCallOp case in repCCallConv
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=0efe9bd77f47f80cef7f10c435ea9efcda10d2b0

Add missing StgPrimCallOp case in repCCallConv
We don't handle "foreign import prim" in TH stuff.
---

diff --git a/compiler/deSugar/DsMeta.hs b/compiler/deSugar/DsMeta.hs
index 9aac831..2b982b3 100644
--- a/compiler/deSugar/DsMeta.hs
+++ b/compiler/deSugar/DsMeta.hs
@@ -358,7 +358,7 @@ repForD decl = notHandled "Foreign declaration" (ppr decl)
 repCCallConv :: CCallConv -> DsM (Core TH.Callconv)
 repCCallConv CCallConv = rep2 cCallName []
 repCCallConv StdCallConv = rep2 stdCallName []
-repCCallConv CmmCallConv = notHandled "repCCallConv" (ppr CmmCallConv)
+repCCallConv callConv    = notHandled "repCCallConv" (ppr callConv)
 
 repSafety :: Safety -> DsM (Core TH.Safety)
 repSafety PlayRisky = rep2 unsafeName []