aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock/Convert.hs
diff options
context:
space:
mode:
Diffstat (limited to 'haddock-api/src/Haddock/Convert.hs')
-rw-r--r--haddock-api/src/Haddock/Convert.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/haddock-api/src/Haddock/Convert.hs b/haddock-api/src/Haddock/Convert.hs
index c11ca545..edf91ce5 100644
--- a/haddock-api/src/Haddock/Convert.hs
+++ b/haddock-api/src/Haddock/Convert.hs
@@ -269,12 +269,12 @@ synifyDataCon use_gadt_syntax dc =
linear_tys = zipWith (\ty bang ->
let tySyn = synifyType WithinType ty
src_bang = case bang of
- HsUnpack {} -> HsSrcBang Nothing (Just True) (Just True)
- HsStrict -> HsSrcBang Nothing (Just False) (Just True)
- HsLazy -> HsSrcBang Nothing Nothing Nothing
+ HsUnpack {} -> HsSrcBang Nothing SrcUnpack SrcStrict
+ HsStrict -> HsSrcBang Nothing SrcNoUnpack SrcStrict
+ HsLazy -> HsSrcBang Nothing NoSrcUnpack NoSrcStrictness
_ -> bang
in case src_bang of
- (HsSrcBang _ Nothing Nothing) -> tySyn
+ (HsSrcBang _ NoSrcUnpack NoSrcStrictness) -> tySyn
_ -> noLoc $ HsBangTy bang tySyn
)
arg_tys (dataConSrcBangs dc)