diff options
| author | Simon Hengel <sol@typeful.net> | 2012-10-14 00:23:35 +0200 |
|---|---|---|
| committer | Simon Hengel <sol@typeful.net> | 2012-10-14 00:23:35 +0200 |
| commit | 3ba97f8470f401c968a2ea6f5fd1e7cae1c69028 (patch) | |
| tree | a46ea37256582fd66b02e87203ff54897b74f37e /src | |
| parent | 80666e9b384277eb208fa99476634ee1559b3a7c (diff) | |
Simplify lookupRn
Diffstat (limited to 'src')
| -rw-r--r-- | src/Haddock/Interface/Rename.hs | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/Haddock/Interface/Rename.hs b/src/Haddock/Interface/Rename.hs index 792e571a..6e80da86 100644 --- a/src/Haddock/Interface/Rename.hs +++ b/src/Haddock/Interface/Rename.hs @@ -111,12 +111,12 @@ getLookupRn = RnM (\lkp -> (lkp,[])) outRn :: Name -> RnM () outRn name = RnM (const ((),[name])) -lookupRn :: (DocName -> a) -> Name -> RnM a -lookupRn and_then name = do +lookupRn :: Name -> RnM DocName +lookupRn name = do lkp <- getLookupRn case lkp name of - (False,maps_to) -> do outRn name; return (and_then maps_to) - (True, maps_to) -> return (and_then maps_to) + (False,maps_to) -> do outRn name; return maps_to + (True, maps_to) -> return maps_to runRnFM :: LinkEnv -> RnM a -> (a,[Name]) @@ -133,7 +133,7 @@ runRnFM env rn = unRn rn lkp rename :: Name -> RnM DocName -rename = lookupRn id +rename = lookupRn renameL :: Located Name -> RnM (Located DocName) @@ -476,8 +476,8 @@ renameExportItem item = case item of return (inst', idoc') return (ExportDecl decl' doc' subs' instances') ExportNoDecl x subs -> do - x' <- lookupRn id x - subs' <- mapM (lookupRn id) subs + x' <- lookupRn x + subs' <- mapM lookupRn subs return (ExportNoDecl x' subs') ExportDoc doc -> do doc' <- renameDoc doc |