diff options
| author | david.waern <david.waern@gmail.com> | 2010-03-18 22:22:27 +0000 |
|---|---|---|
| committer | david.waern <david.waern@gmail.com> | 2010-03-18 22:22:27 +0000 |
| commit | 629ff801073bb90a968dbc882b0c443d13e4d92e (patch) | |
| tree | 1c3da3f3263700813ee55c046d00ea1956d4fdd5 /src/Haddock/Convert.hs | |
| parent | accca44fea8b531d27df063f403abbe4303d6ddc (diff) | |
Fix build with GHC 6.12.1
Diffstat (limited to 'src/Haddock/Convert.hs')
| -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 5a47eb2e..54bce1c8 100644 --- a/src/Haddock/Convert.hs +++ b/src/Haddock/Convert.hs @@ -20,7 +20,11 @@ module Haddock.Convert where import HsSyn import TcType ( tcSplitSigmaTy ) import TypeRep +#if __GLASGOW_HASKELL__ == 612 +import Type ( splitKindFunTys ) +#else import Coercion ( splitKindFunTys ) +#endif import Name import Var import Class @@ -226,7 +230,11 @@ 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 --states of what to do with foralls: |