diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-10-29 14:29:32 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-10-29 14:29:32 -0700 |
commit | 52ee19a825fad5255e15fccfdf6de8d4203b5fec (patch) | |
tree | 38f34828cf0ec0adbcec1f5e4b04543207d98879 /src/Text/Pandoc/Writers/Ms.hs | |
parent | f270dd9b18de69e87198216f13943b2ceefea8f8 (diff) | |
download | pandoc-52ee19a825fad5255e15fccfdf6de8d4203b5fec.tar.gz |
Source code reformatting.
Diffstat (limited to 'src/Text/Pandoc/Writers/Ms.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/Ms.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Pandoc/Writers/Ms.hs b/src/Text/Pandoc/Writers/Ms.hs index 9e3036753..223d1bcc1 100644 --- a/src/Text/Pandoc/Writers/Ms.hs +++ b/src/Text/Pandoc/Writers/Ms.hs @@ -191,7 +191,7 @@ breakSentence [] = ([],[]) breakSentence xs = let isSentenceEndInline (Str ys@(_:_)) | last ys == '.' = True isSentenceEndInline (Str ys@(_:_)) | last ys == '?' = True - isSentenceEndInline LineBreak = True + isSentenceEndInline LineBreak = True isSentenceEndInline _ = False (as, bs) = break isSentenceEndInline xs in case bs of @@ -408,8 +408,8 @@ definitionListItemToMs opts (label, defs) = do else liftM vcat $ forM defs $ \blocks -> do let (first, rest) = case blocks of (Para x:y) -> (Plain x,y) - (x:y) -> (x,y) - [] -> (Plain [], []) + (x:y) -> (x,y) + [] -> (Plain [], []) -- should not happen rest' <- liftM vcat $ mapM (\item -> blockToMs opts item) rest |