Skip to content

Commit f6c1e48

Browse files
authored
Upgrade to haddock-library-1.11.0 (#1126)
1 parent db0f10a commit f6c1e48

File tree

3 files changed

+5
-5
lines changed

3 files changed

+5
-5
lines changed

hackage-server.cabal

+3-3
Original file line numberDiff line numberDiff line change
@@ -111,8 +111,8 @@ common defaults
111111
, process >= 1.6 && < 1.7
112112
, text ^>= 1.2.5.0 || ^>= 2.0
113113
, time >= 1.9 && < 1.13
114-
, transformers >= 0.5 && < 0.7
115-
, unix >= 2.7 && < 2.9
114+
, transformers >= 0.5 && < 0.6
115+
, unix >= 2.7 && < 2.8
116116
, scientific
117117
-- other dependencies shared by most components
118118
build-depends:
@@ -398,7 +398,7 @@ library lib-server
398398
-- see https://github.com/haskell/hackage-server/issues/1130
399399
-- Thus, we need to include Cabal-syntax as dependency explicitly
400400
, hackage-security-HTTP ^>= 0.1.1
401-
, haddock-library >= 1.7.0 && < 1.11
401+
, haddock-library ^>= 1.11.0
402402
-- haddock-library-1.11.0 changed type of markupOrderedList
403403
-- see https://github.com/haskell/hackage-server/issues/1128
404404
, happstack-server ^>= 7.7.1 || ^>= 7.8.0

src/Distribution/Server/Features/Search/ExtractDescriptionTerms.hs

+1-1
Original file line numberDiff line numberDiff line change
@@ -78,7 +78,7 @@ termsMarkup = Markup {
7878
markupBold = id,
7979
markupMonospaced = \s -> if length s > 1 then [] else s,
8080
markupUnorderedList = concat,
81-
markupOrderedList = concat,
81+
markupOrderedList = concat . map snd,
8282
markupDefList = concatMap (\(d,t) -> d ++ t),
8383
markupCodeBlock = const [],
8484
markupTable = concat . F.toList,

src/Distribution/Server/Pages/Package/HaddockHtml.hs

+1-1
Original file line numberDiff line numberDiff line change
@@ -24,7 +24,7 @@ htmlMarkup modResolv = Markup {
2424
markupBold = strong,
2525
markupMonospaced = thecode,
2626
markupUnorderedList = unordList,
27-
markupOrderedList = ordList,
27+
markupOrderedList = ordList . map snd,
2828
markupDefList = defList,
2929
markupCodeBlock = pre,
3030
markupHyperlink = \(Hyperlink url mLabel) -> anchor ! [href url] << maybe url showHtmlFragment mLabel,

0 commit comments

Comments
 (0)