diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2014-07-12 22:57:22 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2014-07-12 22:57:22 -0700 |
| commit | 4676bfdf825a2b5b205d6057462d317c00c6b354 (patch) | |
| tree | 2d5e84a0ddec2b3c2102e6d4cec3cf03e69e1164 /src/Text/Pandoc/Readers/Docx/Reducible.hs | |
| parent | 8bbcff0cfcd9923cdcf5024d13bb411d085715d0 (diff) | |
| download | pandoc-4676bfdf825a2b5b205d6057462d317c00c6b354.tar.gz | |
Removed space at ends of lines in source.
Diffstat (limited to 'src/Text/Pandoc/Readers/Docx/Reducible.hs')
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx/Reducible.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Readers/Docx/Reducible.hs b/src/Text/Pandoc/Readers/Docx/Reducible.hs index 8c105d1f1..e8e407844 100644 --- a/src/Text/Pandoc/Readers/Docx/Reducible.hs +++ b/src/Text/Pandoc/Readers/Docx/Reducible.hs @@ -90,7 +90,7 @@ combineReducibles r s = True -> case (not . null) rs && isSpace (last rs) of True -> rebuild conts (init rs) ++ [last rs, s] False -> [r,s] - False -> rebuild + False -> rebuild shared $ reduceList $ (rebuild remaining rs) ++ (rebuild remaining' ss) @@ -145,7 +145,7 @@ instance Reducible Inline where isSpace _ = False instance Reducible Block where - (Div (ident, classes, kvs) blks) <++> blk | "list-item" `elem` classes = + (Div (ident, classes, kvs) blks) <++> blk | "list-item" `elem` classes = [Div (ident, classes, kvs) (reduceList blks), blk] blk <++> blk' = combineReducibles blk blk' @@ -177,5 +177,5 @@ rebuild :: [Container a] -> [a] -> [a] rebuild [] xs = xs rebuild ((Container f) : cs) xs = rebuild cs $ [f xs] rebuild (NullContainer : cs) xs = rebuild cs $ xs - - + + |