aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorMauro Bieg <mb21@users.noreply.github.com>2018-06-07 19:50:14 +0200
committerJohn MacFarlane <jgm@berkeley.edu>2018-06-07 10:50:14 -0700
commit905dee6ee3c96560d67e82f6786b8f248b5c83c8 (patch)
tree88c6c3efaf7d7ae8a53fe45a2bc9c15e6d1044ad /src/Text/Pandoc
parent9536eb7c7920fa49baec2b90c64fdbb933220df0 (diff)
downloadpandoc-905dee6ee3c96560d67e82f6786b8f248b5c83c8.tar.gz
beamer output: fix single digit column percentage (#4691)
fixes #4690
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/LaTeX.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
index 2904bec06..4c791aa44 100644
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -487,7 +487,7 @@ blockToLaTeX (Div (identifier,classes,kvs) bs)
then \contents ->
let fromPct xs =
case reverse xs of
- '%':ds -> '0':'.': reverse ds
+ '%':ds -> showFl (read (reverse ds) / 100 :: Double)
_ -> xs
w = maybe "0.48" fromPct (lookup "width" kvs)
in inCmd "begin" "column" <>