diff options
author | David Waern <davve@dtek.chalmers.se> | 2007-10-21 21:18:48 +0000 |
---|---|---|
committer | David Waern <davve@dtek.chalmers.se> | 2007-10-21 21:18:48 +0000 |
commit | b8074ed8527d6c3fadf1a5dba1fe8322c69fd075 (patch) | |
tree | 349e6c40c3f62cf41bec3f16639e6b0a0098a6db | |
parent | 8b423693647f0749b61b01d5bd41430b1dbb623e (diff) |
Wibble
-rw-r--r-- | src/Haddock/Interface/Rename.hs | 6 |
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 |