diff options
| author | Duncan Coutts <duncan@well-typed.com> | 2009-06-11 16:59:05 +0000 |
|---|---|---|
| committer | Duncan Coutts <duncan@well-typed.com> | 2009-06-11 16:59:05 +0000 |
| commit | 0efe9bd77f47f80cef7f10c435ea9efcda10d2b0 (patch) | |
| tree | 10b0a9ca3011f5352dd45bbfefff12a1b5f5d883 /compiler/deSugar | |
| parent | b48fc016e9b15c465ba2c2f1d42b6221bcd19b45 (diff) | |
| download | haskell-0efe9bd77f47f80cef7f10c435ea9efcda10d2b0.tar.gz | |
Add missing StgPrimCallOp case in repCCallConv
We don't handle "foreign import prim" in TH stuff.
Diffstat (limited to 'compiler/deSugar')
| -rw-r--r-- | compiler/deSugar/DsMeta.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/deSugar/DsMeta.hs b/compiler/deSugar/DsMeta.hs index 9aac831b9b..2b982b3b0c 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 [] |