diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2011-11-07 10:31:25 -0800 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2011-11-07 10:31:25 -0800 |
| commit | e95e6f366403779cca647d49ce4f6a0e5ef3d9c6 (patch) | |
| tree | f57f3e30b6d63bf240b84ea2c1a1f3aa2f8e7e35 | |
| parent | ca98cd8f18a508b491b27c6dcb609f8d92623363 (diff) | |
| download | pandoc-e95e6f366403779cca647d49ce4f6a0e5ef3d9c6.tar.gz | |
Biblio - Removed redundancy.
| -rw-r--r-- | src/Text/Pandoc/Biblio.hs | 5 |
1 files 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 |