From 759d3d0b327b9a7f86316b96ea6f361b32ff52b8 Mon Sep 17 00:00:00 2001 From: David Waern Date: Thu, 8 Nov 2007 02:08:44 +0000 Subject: Remove OrdName stuff --- src/Haddock/Interface/Rename.hs | 25 +------------------------ 1 file changed, 1 insertion(+), 24 deletions(-) (limited to 'src/Haddock/Interface') diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs index 1d99ce54..bc857c1e 100644 --- a/src/Haddock/Interface/Rename.hs +++ b/src/Haddock/Interface/Rename.hs @@ -116,36 +116,13 @@ lookupRn and_then name = do (True, maps_to) -> return (and_then maps_to) --------------------------------------------------------------------------------- --- Looking up names --------------------------------------------------------------------------------- - - -newtype OrdName = MkOrdName Name - -instance Eq OrdName where - (MkOrdName a) == (MkOrdName b) = compare a b == EQ - -instance Ord OrdName where - (MkOrdName a) `compare` (MkOrdName b) = - case (nameModule_maybe a, nameModule_maybe b) of - (Just modA, Just modB) -> - (modA `compare` modB) `thenCmp` (getOccName a `compare` getOccName b) - (Nothing, Nothing) -> getOccName a `compare` getOccName b - _ -> LT - -instance Outputable OrdName where - ppr (MkOrdName x) = ppr (nameOccName x) - runRnFM :: LinkEnv -> RnM a -> (a,[Name]) runRnFM env rn = unRn rn lkp where - lkp n = case Map.lookup (MkOrdName n) ordEnv of + lkp n = case Map.lookup n env of Nothing -> (False, NoLink n) Just q -> (True, Link q) - ordEnv = Map.fromList . map (MkOrdName *** id) . Map.toList $ env - -------------------------------------------------------------------------------- -- Renaming -- cgit v1.2.3