aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2010-05-13 11:53:02 +0000
committerDavid Waern <david.waern@gmail.com>2010-05-13 11:53:02 +0000
commitf0de0a320f6f5856583d4356883db106f7158f51 (patch)
tree3d75f78e08f617f48d0ab177e8d728ce9d65ef65
parent2d3dea83b944442cc775fe8f6122d657174dcc9b (diff)
Fix build with GHC 6.12.2
-rw-r--r--src/Haddock/Convert.hs8
1 files changed, 8 insertions, 0 deletions
diff --git a/src/Haddock/Convert.hs b/src/Haddock/Convert.hs
index ac071660..1b2df768 100644
--- a/src/Haddock/Convert.hs
+++ b/src/Haddock/Convert.hs
@@ -22,6 +22,7 @@ import TcType ( tcSplitSigmaTy )
import TypeRep
#if __GLASGOW_HASKELL__ == 612
import Type ( splitKindFunTys )
+import BasicTypes
#else
import Coercion ( splitKindFunTys )
#endif
@@ -170,10 +171,17 @@ synifyDataCon use_gadt_syntax dc = noLoc $
linear_tys = zipWith (\ty bang ->
let tySyn = synifyType WithinType ty
in case bang of
+#if __GLASGOW_HASKELL__ >= 613
HsUnpackFailed -> noLoc $ HsBangTy HsStrict tySyn
HsNoBang -> tySyn
-- HsNoBang never appears, it's implied instead.
_ -> noLoc $ HsBangTy bang tySyn
+#else
+ MarkedStrict -> noLoc $ HsBangTy HsStrict tySyn
+ MarkedUnboxed -> noLoc $ HsBangTy HsUnbox tySyn
+ NotMarkedStrict -> tySyn
+ -- HsNoBang never appears, it's implied instead.
+#endif
)
(dataConOrigArgTys dc) (dataConStrictMarks dc)