diff options
author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2021-06-28 18:32:45 +0200 |
---|---|---|
committer | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2021-06-28 19:16:21 +0200 |
commit | d9e5b50e9855867844e94c2a6619ce71c6679e8d (patch) | |
tree | 92f6039e4cf7df7c34520e86010d58499435850d | |
parent | 83dce402043532d43635b305eca76a6f1cf4deff (diff) | |
download | haskell-wip/test-foreign.tar.gz |
Test for dead codewip/test-foreign
-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 |