From b8074ed8527d6c3fadf1a5dba1fe8322c69fd075 Mon Sep 17 00:00:00 2001 From: David Waern Date: Sun, 21 Oct 2007 21:18:48 +0000 Subject: Wibble --- src/Haddock/Interface/Rename.hs | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs index 9f8399e2..267428fe 100644 --- a/src/Haddock/Interface/Rename.hs +++ b/src/Haddock/Interface/Rename.hs @@ -114,6 +114,12 @@ lookupRn and_then name = do (False,maps_to) -> do outRn name; return (and_then maps_to) (True, maps_to) -> return (and_then maps_to) + +-------------------------------------------------------------------------------- +-- Looking up names +-------------------------------------------------------------------------------- + + newtype OrdName = MkOrdName Name instance Eq OrdName where -- cgit v1.2.3