slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

rewrite: disable outdated doctests

Browse Source
This commit is contained in:
Simon Michael 2018-08-18 16:06:34 +01:00
parent 6081fead11
commit f30b1533a0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger/Hledger/Cli/Commands/Rewrite.hs
View File

@ -210,8 +210,7 @@ diffOutput j j' = do
type Chunk = (GenericSourcePos, [DiffLine String]) type Chunk = (GenericSourcePos, [DiffLine String])
-- | Render list of changed lines as a unified diff -- XXX doctests, update needed:
--
-- >>> putStr $ renderPatch [(GenericSourcePos "a" 1 1, [D.First "x", D.Second "y"])] -- >>> putStr $ renderPatch [(GenericSourcePos "a" 1 1, [D.First "x", D.Second "y"])]
-- --- a -- --- a
-- +++ a -- +++ a
@ -236,6 +235,7 @@ type Chunk = (GenericSourcePos, [DiffLine String])
-- +++ b -- +++ b
-- @@ -5,0 +5,1 @@ -- @@ -5,0 +5,1 @@
-- +z -- +z
-- | Render list of changed lines as a unified diff
renderPatch :: [Chunk] -> String renderPatch :: [Chunk] -> String
renderPatch = go Nothing . sortOn fst where renderPatch = go Nothing . sortOn fst where
go _ [] = "" go _ [] = ""