haddock-library 1.0.0 → 1.0.1

raw patch · 2 files changed

+8/−10 lines, 2 filesdep ~basePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: base

API changes (from Hackage documentation)

Files

• haddock-library.cabal +1/−1
• src/Documentation/Haddock/Parser.hs +7/−9

@@ -1,5 +1,5 @@ name:                 haddock-library-version:              1.0.0+version:              1.0.1 synopsis:             Library exposing some functionality of Haddock. description:          Haddock is a documentation-generation tool for Haskell                       libraries. These modules expose some functionality of it

@@ -3,7 +3,6 @@ {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE UndecidableInstances #-} {-# LANGUAGE IncoherentInstances #-}-{-# LANGUAGE LambdaCase #-} -- | -- Module      :  Documentation.Haddock.Parser -- Copyright   :  (c) Mateusz Kowalczyk 2013-2014,@@ -343,11 +342,9 @@  -- | Blocks of text of the form: ----- @--- > foo--- > bar--- > baz--- @+-- >> foo+-- >> bar+-- >> baz -- birdtracks :: Parser (DocH mod a) birdtracks = DocCodeBlock . DocString . intercalate "\n" . stripSpace <$> many1 line@@ -410,7 +407,7 @@ property = DocProperty . strip . decodeUtf8 <$> ("prop>" *> takeWhile1 (/= '\n'))  -- |--- Paragraph level codeblock. Anything between the two delimiting @ is parsed+-- Paragraph level codeblock. Anything between the two delimiting \@ is parsed -- for markup. codeblock :: Parser (DocH mod Identifier) codeblock =@@ -431,8 +428,9 @@     -- and we lose information about whether the last line belongs to @ or to     -- text which we need to decide whether we actually want to be dropping     -- anything at all.-    splitByNl = unfoldr (\case '\n':s -> Just (span (/= '\n') s)-                               _      -> Nothing)+    splitByNl = unfoldr (\x -> case x of+                                 '\n':s -> Just (span (/= '\n') s)+                                 _      -> Nothing)                 . ('\n' :)      dropSpace "" = Just ""