From b641c9cd2c71321641c3b9bf54c6abd0196a9f56 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Mon, 15 Nov 2010 21:09:50 +0000
Subject: Remove code for ghc < 7

---
 src/Haddock/Convert.hs | 17 -----------------
 1 file changed, 17 deletions(-)

(limited to 'src/Haddock/Convert.hs')

diff --git a/src/Haddock/Convert.hs b/src/Haddock/Convert.hs
index 96133186..dde8c1b6 100644
--- a/src/Haddock/Convert.hs
+++ b/src/Haddock/Convert.hs
@@ -20,12 +20,7 @@ module Haddock.Convert where
 import HsSyn
 import TcType ( tcSplitSigmaTy )
 import TypeRep
-#if __GLASGOW_HASKELL__ == 612
-import Type ( splitKindFunTys )
-import BasicTypes
-#else
 import Coercion ( splitKindFunTys, synTyConResKind )
-#endif
 import Name
 import Var
 import Class
@@ -175,18 +170,10 @@ 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)
   field_tys = zipWith (\field synTy -> ConDeclField
@@ -245,11 +232,7 @@ synifyTyVars = map synifyTyVar
       kind = tyVarKind tv
       name = getName tv
      in if isLiftedTypeKind kind
-#if __GLASGOW_HASKELL__ == 612
-        then UserTyVar name
-#else
         then UserTyVar name placeHolderKind
-#endif
         else KindedTyVar name kind
 
 
-- 
cgit v1.2.3