diff options
| author | David Waern <david.waern@gmail.com> | 2010-05-13 11:53:02 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-05-13 11:53:02 +0000 |
| commit | f0de0a320f6f5856583d4356883db106f7158f51 (patch) | |
| tree | 3d75f78e08f617f48d0ab177e8d728ce9d65ef65 | |
| parent | 2d3dea83b944442cc775fe8f6122d657174dcc9b (diff) | |
Fix build with GHC 6.12.2
| -rw-r--r-- | src/Haddock/Convert.hs | 8 |
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) |