projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Make './darcs-all get --complete' work
[ghc-hetmet.git]
/
compiler
/
rename
/
RnHsDoc.hs
diff --git
a/compiler/rename/RnHsDoc.hs
b/compiler/rename/RnHsDoc.hs
index
6941da5
..
f3d3690
100644
(file)
--- a/
compiler/rename/RnHsDoc.hs
+++ b/
compiler/rename/RnHsDoc.hs
@@
-1,7
+1,7
@@
module RnHsDoc ( rnHsDoc, rnLHsDoc, rnMbLHsDoc, rnMbHsDoc ) where
import TcRnMonad ( RnM )
module RnHsDoc ( rnHsDoc, rnLHsDoc, rnMbLHsDoc, rnMbHsDoc ) where
import TcRnMonad ( RnM )
-import RnEnv ( dataTcOccs, lookupGreRn )
+import RnEnv ( dataTcOccs, lookupGreRn_maybe )
import HsDoc ( HsDoc(..) )
import RdrName ( RdrName, isRdrDataCon, isRdrTc, gre_name )
import HsDoc ( HsDoc(..) )
import RdrName ( RdrName, isRdrDataCon, isRdrTc, gre_name )
@@
-49,7
+49,7
@@
rnHsDoc doc = case doc of
DocIdentifier ids -> do
let choices = concatMap dataTcOccs ids
DocIdentifier ids -> do
let choices = concatMap dataTcOccs ids
- mb_gres <- mapM lookupGreRn choices
+ mb_gres <- mapM lookupGreRn_maybe choices
case [gre_name gre | Just gre <- mb_gres] of
[] -> return (DocString (ids2string ids))
ids' -> return (DocIdentifier ids')
case [gre_name gre | Just gre <- mb_gres] of
[] -> return (DocString (ids2string ids))
ids' -> return (DocIdentifier ids')