From f0de0a320f6f5856583d4356883db106f7158f51 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Thu, 13 May 2010 11:53:02 +0000
Subject: Fix build with GHC 6.12.2

---
 src/Haddock/Convert.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/Haddock')

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)
-- 
cgit v1.2.3