diff options
| author | Fendor <power.walross@gmail.com> | 2021-07-05 09:29:35 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-07-27 04:46:42 -0400 |
| commit | 0462750fa475537b817bdcec1a94d924a3489d36 (patch) | |
| tree | bae42a387df1444a695d21d50e4d85f96f29639b /compiler | |
| parent | 5f3991c7cab8ccc9ab8daeebbfce57afbd9acc33 (diff) | |
| download | haskell-0462750fa475537b817bdcec1a94d924a3489d36.tar.gz | |
Remove unused module GHC.Rename.Doc
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/GHC/Rename/Doc.hs | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/compiler/GHC/Rename/Doc.hs b/compiler/GHC/Rename/Doc.hs deleted file mode 100644 index a01398b84f..0000000000 --- a/compiler/GHC/Rename/Doc.hs +++ /dev/null @@ -1,23 +0,0 @@ -module GHC.Rename.Doc ( rnHsDoc, rnLHsDoc, rnMbLHsDoc ) where - -import GHC.Prelude - -import GHC.Tc.Types -import GHC.Hs -import GHC.Types.SrcLoc - - -rnMbLHsDoc :: Maybe LHsDocString -> RnM (Maybe LHsDocString) -rnMbLHsDoc mb_doc = case mb_doc of - Just doc -> do - doc' <- rnLHsDoc doc - return (Just doc') - Nothing -> return Nothing - -rnLHsDoc :: LHsDocString -> RnM LHsDocString -rnLHsDoc (L pos doc) = do - doc' <- rnHsDoc doc - return (L pos doc') - -rnHsDoc :: HsDocString -> RnM HsDocString -rnHsDoc = pure |