diff options
| -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 |