diff options
| author | Alexey Kiryushin <alexey.a.kiryushin@gmail.com> | 2018-11-13 17:28:09 +0300 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2018-11-13 17:28:09 +0300 |
| commit | 71500f437dbc68395e2486efbcf14cc6cb007e51 (patch) | |
| tree | c5221876181938e0da5f17d6915abeb4e8137a37 /src | |
| parent | 67d0714dc3a9fc863140014d62efc573878df2d2 (diff) | |
| parent | 24ba7ffb30220baec845791df9c5c8236b23326e (diff) | |
Merge pull request #14 from capital-match/PR/fix-build-failure
Fix build failure, #12
Diffstat (limited to 'src')
| -rw-r--r-- | src/HaskellCodeExplorer/GhcUtils.hs | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/HaskellCodeExplorer/GhcUtils.hs b/src/HaskellCodeExplorer/GhcUtils.hs index 33370d5..3a4ec26 100644 --- a/src/HaskellCodeExplorer/GhcUtils.hs +++ b/src/HaskellCodeExplorer/GhcUtils.hs @@ -1110,7 +1110,13 @@ hsDocsToDocH :: DynFlags -> GlobalRdrEnv -> [HsDocString] -> Doc Name hsDocsToDocH flags rdrEnv = rename flags rdrEnv . overIdentifier (parseIdent flags) . - _doc . parseParas . concatMap (unpackFS . (\(HsDocString s) -> s)) + _doc +#if MIN_VERSION_haddock_library(1,6,0) + . parseParas Nothing +#else + . parseParas +#endif + . concatMap (unpackFS . (\(HsDocString s) -> s)) parseIdent :: DynFlags -> String -> Maybe RdrName parseIdent dflags str0 = |