diff options
Diffstat (limited to 'src/pandoc-oso2tex.hs')
| -rw-r--r-- | src/pandoc-oso2tex.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/pandoc-oso2tex.hs b/src/pandoc-oso2tex.hs index 881ee37..9014392 100644 --- a/src/pandoc-oso2tex.hs +++ b/src/pandoc-oso2tex.hs @@ -32,6 +32,7 @@ instance Monoid Page where (Page n xs) `mappend` (Page _ ys) = Page n (xs ++ ys) pagesToBlocks :: [Page] -> [Block] +pagesToBlocks [Page _ xs] = xs pagesToBlocks ps@( _ : (Page n _) : _) = RawBlock (Format "tex") ("\\setcounter{page}{" ++ show (n - 1) ++ "}") : (drop 1 $ foldr step [] ps) -- drop first \\pagebreak |