diff options
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 |