diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-05-09 10:17:56 -0700 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2016-05-09 10:17:56 -0700 |
| commit | fd9ec835ec1447fb6040ee63a1fa8ee13b19d555 (patch) | |
| tree | 038efac64bde36cb82bf95ea24719b566bae41b3 /src/Text/Pandoc/Writers | |
| parent | c1b19b17c4853bb0113a340c54a1726b7e31e1a8 (diff) | |
| parent | d32878b84b08f2f8e007b9b06c393a41e2ebe5fe (diff) | |
| download | pandoc-fd9ec835ec1447fb6040ee63a1fa8ee13b19d555.tar.gz | |
Merge pull request #2907 from tarleb/org-fixes
Org fixes (reader and writer)
Diffstat (limited to 'src/Text/Pandoc/Writers')
| -rw-r--r-- | src/Text/Pandoc/Writers/Org.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs index 20086ed19..e57a6fc11 100644 --- a/src/Text/Pandoc/Writers/Org.hs +++ b/src/Text/Pandoc/Writers/Org.hs @@ -170,7 +170,7 @@ blockToOrg (Table caption' _ _ headers rows) = do map ((+2) . numChars) $ transpose (headers' : rawRows) -- FIXME: Org doesn't allow blocks with height more than 1. let hpipeBlocks blocks = hcat [beg, middle, end] - where h = maximum (map height blocks) + where h = maximum (1 : map height blocks) sep' = lblock 3 $ vcat (map text $ replicate h " | ") beg = lblock 2 $ vcat (map text $ replicate h "| ") end = lblock 2 $ vcat (map text $ replicate h " |") |