From e95e6f366403779cca647d49ce4f6a0e5ef3d9c6 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Mon, 7 Nov 2011 10:31:25 -0800 Subject: Biblio - Removed redundancy. --- src/Text/Pandoc/Biblio.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/Text/Pandoc/Biblio.hs b/src/Text/Pandoc/Biblio.hs index 69c1eb482..9f1e93791 100644 --- a/src/Text/Pandoc/Biblio.hs +++ b/src/Text/Pandoc/Biblio.hs @@ -133,9 +133,8 @@ mvCiteInNote is = bottomUp mvCite | otherwise = toCapital (i ++ [Str "."]) checkPt i - | Cite c o : xs <- i - , endWithPunct o, startWithPunct xs - , endWithPunct o = Cite c (initInline o) : checkPt xs + | Cite c o : xs <- i , endWithPunct o, startWithPunct xs + = Cite c (initInline o) : checkPt xs | x:xs <- i = x : checkPt xs | otherwise = [] checkNt = bottomUp checkPt -- cgit v1.2.3