diff options
| author | Jose Pedro Magalhaes <jpm@cs.uu.nl> | 2011-11-16 21:42:22 +0100 |
|---|---|---|
| committer | Jose Pedro Magalhaes <jpm@cs.uu.nl> | 2011-11-16 21:42:22 +0100 |
| commit | 6d88847178b540c48fd37fd5a2ba9b89898b88fa (patch) | |
| tree | 8956875fc14398a23c75dd17b62d1cbfa0380e37 /src/Haddock/Convert.hs | |
| parent | 96154b6154c6e7556a92695428d0fc8ddf015d2a (diff) | |
Follow changes to tuple sorts in master
Diffstat (limited to 'src/Haddock/Convert.hs')
| -rw-r--r-- | src/Haddock/Convert.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Convert.hs b/src/Haddock/Convert.hs index ea905ed0..b9d0e76f 100644 --- a/src/Haddock/Convert.hs +++ b/src/Haddock/Convert.hs @@ -263,8 +263,8 @@ synifyType _ (TyConApp tc tys) -- Use non-prefix tuple syntax where possible, because it looks nicer. | isTupleTyCon tc, tyConArity tc == length tys = noLoc $ HsTupleTy (case tupleTyConSort tc of - BoxedTuple -> HsBoxyTuple liftedTypeKind - ConstraintTuple -> HsBoxyTuple constraintKind + BoxedTuple -> HsBoxedTuple + ConstraintTuple -> HsConstraintTuple UnboxedTuple -> HsUnboxedTuple) (map (synifyType WithinType) tys) -- ditto for lists |