From 5770b12145f149b1add9173ea0c30d214f6a14d2 Mon Sep 17 00:00:00 2001 From: David Waern Date: Mon, 28 Jul 2008 12:29:27 +0000 Subject: Support type equality predicates --- src/Haddock/Interface/AttachInstances.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'src/Haddock') 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 -- cgit v1.2.3