aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-07-28 12:29:27 +0000
committerDavid Waern <david.waern@gmail.com>2008-07-28 12:29:27 +0000
commit5770b12145f149b1add9173ea0c30d214f6a14d2 (patch)
treec7b32f517aec67c29f8f97adef7ef192ecc87637 /src
parent255f21b652666514d73e0c7704c3f99aa89380fd (diff)
Support type equality predicates
Diffstat (limited to 'src')
-rw-r--r--src/Haddock/Interface/AttachInstances.hs1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Haddock/Interface/AttachInstances.hs b/src/Haddock/Interface/AttachInstances.hs
index 38fef6b4..782bee84 100644
--- a/src/Haddock/Interface/AttachInstances.hs
+++ b/src/Haddock/Interface/AttachInstances.hs
@@ -125,6 +125,7 @@ toHsInstHead (_, preds, cls, ts) = (map toHsPred preds, className cls, map toHsT
toHsPred :: PredType -> HsPred Name
toHsPred (ClassP cls ts) = HsClassP (className cls) (map toLHsType ts)
toHsPred (IParam n t) = HsIParam n (toLHsType t)
+toHsPred (EqPred t1 t2) = HsEqualP (toLHsType t1) (toLHsType t2)
toLHsType = noLoc . toHsType