diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2020-04-26 09:35:15 -0400 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-04-26 09:35:15 -0400 |
| commit | 7c34f89d801bafba3162bc091dd486cbb9e9fd5b (patch) | |
| tree | 1cc57abaaa39c4523822f95ffb9c61156f1f28e4 /haddock-api/src/Haddock/Parser.hs | |
| parent | da4e2bd788b6231494d6ac56a8e88bcfa4be51f6 (diff) | |
| parent | 2d2587182568cc5aa4b29d401517337c32459c66 (diff) | |
Merge pull request #1166 from hsyl20/wip/hsyl20/modules/utils
Module structure
Diffstat (limited to 'haddock-api/src/Haddock/Parser.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Parser.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock/Parser.hs b/haddock-api/src/Haddock/Parser.hs index cf66cd1a..e1b5c787 100644 --- a/haddock-api/src/Haddock/Parser.hs +++ b/haddock-api/src/Haddock/Parser.hs @@ -17,12 +17,12 @@ import qualified Documentation.Haddock.Parser as P import Documentation.Haddock.Types import GHC.Driver.Session ( DynFlags ) -import FastString ( fsLit ) +import GHC.Data.FastString ( fsLit ) import GHC.Parser.Lexer ( mkPState, unP, ParseResult(POk) ) import GHC.Parser ( parseIdentifier ) import GHC.Types.Name.Reader ( RdrName ) import GHC.Types.SrcLoc ( mkRealSrcLoc, unLoc ) -import StringBuffer ( stringToStringBuffer ) +import GHC.Data.StringBuffer ( stringToStringBuffer ) parseParas :: DynFlags -> Maybe Package -> String -> MetaDoc mod RdrName parseParas d p = overDoc (P.overIdentifier (parseIdent d)) . P.parseParas p |