diff options
| author | Julian Ospald <julian@capital-match.com> | 2018-11-13 18:03:53 +0800 |
|---|---|---|
| committer | Julian Ospald <julian@capital-match.com> | 2018-11-13 18:03:53 +0800 |
| commit | 37f1d353473939f36b22df243f3380fbcf109f6c (patch) | |
| tree | 7c87161aef275e287eab4137c42a2afc83ee14a6 | |
| parent | 67d0714dc3a9fc863140014d62efc573878df2d2 (diff) | |
Fix build with haddock-library >= 1.6.0
| -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 = |