diff options
Diffstat (limited to 'compiler/deSugar')
| -rw-r--r-- | compiler/deSugar/DsMeta.hs | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/compiler/deSugar/DsMeta.hs b/compiler/deSugar/DsMeta.hs index b7445a8e2b..28890a590b 100644 --- a/compiler/deSugar/DsMeta.hs +++ b/compiler/deSugar/DsMeta.hs @@ -651,9 +651,13 @@ repBangTy ty= do rep2 strictTypeName [s, t] where (str, ty') = case ty of - L _ (HsBangTy (HsSrcBang (Just True) True) ty) -> (unpackedName, ty) - L _ (HsBangTy (HsSrcBang _ True) ty) -> (isStrictName, ty) - _ -> (notStrictName, ty) + -- TODO: We probably need to look at DynFlags. + L _ (HsBangTy (HsSrcBang (Just True) (Just True)) ty) -> + (unpackedName, ty) + L _ (HsBangTy (HsSrcBang _ (Just True)) ty) -> + (isStrictName, ty) + _ -> + (notStrictName, ty) ------------------------------------------------------- -- Deriving clause |