projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove all .hi-boot-6 files
[ghc-hetmet.git]
/
compiler
/
rename
/
RnHsDoc.hs
diff --git
a/compiler/rename/RnHsDoc.hs
b/compiler/rename/RnHsDoc.hs
index
9fb9348
..
c556d2c
100644
(file)
--- a/
compiler/rename/RnHsDoc.hs
+++ b/
compiler/rename/RnHsDoc.hs
@@
-1,3
+1,4
@@
+
module RnHsDoc ( rnHaddock, rnHsDoc, rnLHsDoc, rnMbLHsDoc ) where
import TcRnTypes
module RnHsDoc ( rnHaddock, rnHsDoc, rnLHsDoc, rnMbLHsDoc ) where
import TcRnTypes
@@
-30,16
+31,19
@@
rnMbHsDoc mb_doc = case mb_doc of
return (Just doc')
Nothing -> return Nothing
return (Just doc')
Nothing -> return Nothing
+rnMbLHsDoc :: Maybe (LHsDoc RdrName) -> RnM (Maybe (LHsDoc Name))
rnMbLHsDoc mb_doc = case mb_doc of
Just doc -> do
doc' <- rnLHsDoc doc
return (Just doc')
Nothing -> return Nothing
rnMbLHsDoc mb_doc = case mb_doc of
Just doc -> do
doc' <- rnLHsDoc doc
return (Just doc')
Nothing -> return Nothing
+rnLHsDoc :: LHsDoc RdrName -> RnM (LHsDoc Name)
rnLHsDoc (L pos doc) = do
doc' <- rnHsDoc doc
return (L pos doc')
rnLHsDoc (L pos doc) = do
doc' <- rnHsDoc doc
return (L pos doc')
+ids2string :: [RdrName] -> String
ids2string [] = []
ids2string (x:_) = show $ ppr x defaultUserStyle
ids2string [] = []
ids2string (x:_) = show $ ppr x defaultUserStyle
@@
-97,4
+101,6
@@
rnHsDoc doc = case doc of
DocURL str -> return (DocURL str)
DocURL str -> return (DocURL str)
+ DocPic str -> return (DocPic str)
+
DocAName str -> return (DocAName str)
DocAName str -> return (DocAName str)