diff options
Diffstat (limited to 'compiler/deSugar/DsCCall.hs')
| -rw-r--r-- | compiler/deSugar/DsCCall.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/deSugar/DsCCall.hs b/compiler/deSugar/DsCCall.hs index 7a634ac1ff..7cab8e8e25 100644 --- a/compiler/deSugar/DsCCall.hs +++ b/compiler/deSugar/DsCCall.hs @@ -327,8 +327,8 @@ resultWrapper result_ty = do { dflags <- getDynFlags ; let marshal_bool e = mkWildCase e intPrimTy boolTy - [ (DEFAULT ,[],Var trueDataConId ) - , (LitAlt (mkMachInt dflags 0),[],Var falseDataConId)] + [ (DEFAULT ,[],Var trueDataConId ) + , (LitAlt (mkLitInt dflags 0),[],Var falseDataConId)] ; return (Just intPrimTy, marshal_bool) } -- Newtypes |