From 7979ad1f2db293ed15109b94e0b898d96e124517 Mon Sep 17 00:00:00 2001 From: David Waern Date: Tue, 6 Nov 2007 09:37:14 +0000 Subject: Wibble --- src/Haddock/Interface/AttachInstances.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Haddock/Interface/AttachInstances.hs b/src/Haddock/Interface/AttachInstances.hs index f5140401..227de68a 100644 --- a/src/Haddock/Interface/AttachInstances.hs +++ b/src/Haddock/Interface/AttachInstances.hs @@ -117,7 +117,7 @@ toHsInstHead (_, preds, cls, ts) = (map toHsPred preds, className cls, map toHsT -------------------------------------------------------------------------------- -toHsPred :: PredType -> HsPred Name +toHsPred :: PredType -> HsPred Name toHsPred (ClassP cls ts) = HsClassP (className cls) (map toLHsType ts) toHsPred (IParam n t) = HsIParam n (toLHsType t) -- cgit v1.2.3