diff options
| author | David Waern <david.waern@gmail.com> | 2010-11-15 21:09:50 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-11-15 21:09:50 +0000 |
| commit | b641c9cd2c71321641c3b9bf54c6abd0196a9f56 (patch) | |
| tree | d5d10ed95890598486274d142108f1d8577ad73c /src/Haddock/Convert.hs | |
| parent | b43e5603b3ffa9ebe17c15a4e9a7461a7bed4cca (diff) | |
Remove code for ghc < 7
Diffstat (limited to 'src/Haddock/Convert.hs')
| -rw-r--r-- | src/Haddock/Convert.hs | 17 |
1 files changed, 0 insertions, 17 deletions
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 |