aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface
diff options
context:
space:
mode:
authorDavid Waern <davve@dtek.chalmers.se>2007-10-21 21:18:48 +0000
committerDavid Waern <davve@dtek.chalmers.se>2007-10-21 21:18:48 +0000
commitb8074ed8527d6c3fadf1a5dba1fe8322c69fd075 (patch)
tree349e6c40c3f62cf41bec3f16639e6b0a0098a6db /src/Haddock/Interface
parent8b423693647f0749b61b01d5bd41430b1dbb623e (diff)
Wibble
Diffstat (limited to 'src/Haddock/Interface')
-rw-r--r--src/Haddock/Interface/Rename.hs6
1 files changed, 6 insertions, 0 deletions
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