diff options
| -rw-r--r-- | compiler/GHC/HsToCore/Foreign/Call.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/HsToCore/Foreign/Call.hs b/compiler/GHC/HsToCore/Foreign/Call.hs index 80f878ef02..447e4adb8b 100644 --- a/compiler/GHC/HsToCore/Foreign/Call.hs +++ b/compiler/GHC/HsToCore/Foreign/Call.hs @@ -228,7 +228,7 @@ boxResult result_ty = case res of (Just ty,_) | isUnboxedTupleType ty - -> let Just ls = tyConAppArgs_maybe ty in tail ls + -> pprPanic "unboxed" (ppr ty) _ -> [] return_result state anss |