diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2023-01-23 18:49:47 +0100 |
|---|---|---|
| committer | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2023-01-25 11:18:46 +0100 |
| commit | c1ea2666ad4e51ee904be8069b0a566ec5c53b9d (patch) | |
| tree | f01fed650db3d7fe206b860a7391bec1e7fdb0a1 /compiler/GHC/CoreToIface.hs | |
| parent | 14b5982a3aea351e4b01c5804ebd4d4629ba6bab (diff) | |
| download | haskell-wip/warn-unpack.tar.gz | |
Support "unusable UNPACK pragma" warning with -O0wip/warn-unpack
Fixes #11270
Diffstat (limited to 'compiler/GHC/CoreToIface.hs')
| -rw-r--r-- | compiler/GHC/CoreToIface.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/CoreToIface.hs b/compiler/GHC/CoreToIface.hs index 98595f0403..5421d0efdf 100644 --- a/compiler/GHC/CoreToIface.hs +++ b/compiler/GHC/CoreToIface.hs @@ -422,7 +422,7 @@ toIfaceBang :: TidyEnv -> HsImplBang -> IfaceBang toIfaceBang _ HsLazy = IfNoBang toIfaceBang _ (HsUnpack Nothing) = IfUnpack toIfaceBang env (HsUnpack (Just co)) = IfUnpackCo (toIfaceCoercion (tidyCo env co)) -toIfaceBang _ HsStrict = IfStrict +toIfaceBang _ (HsStrict _) = IfStrict toIfaceSrcBang :: HsSrcBang -> IfaceSrcBang toIfaceSrcBang (HsSrcBang _ unpk bang) = IfSrcBang unpk bang |