aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2019-03-28 17:12:44 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2019-03-28 17:12:44 -0700
commit83ea529cf3cd410b598c3389a1edcc3d5593640c (patch)
treebc5de3f7f253cca998237cf4850b294ad36066a4 /src/Text/Pandoc
parent9c7a57d64826f6c00893f853bb79d49bbc30bb06 (diff)
downloadpandoc-83ea529cf3cd410b598c3389a1edcc3d5593640c.tar.gz
Ipynb writer: fixed carry-over of nbformat from metadata.
Previously we wrongly assumed it would be in a MetaString. It's an a MetaInlines.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/Ipynb.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Ipynb.hs b/src/Text/Pandoc/Writers/Ipynb.hs
index 40248ed5a..f31cc38fd 100644
--- a/src/Text/Pandoc/Writers/Ipynb.hs
+++ b/src/Text/Pandoc/Writers/Ipynb.hs
@@ -67,7 +67,7 @@ pandocToNotebook opts (Pandoc meta blocks) = do
let nbformat =
case (lookupMeta "nbformat" jupyterMeta,
lookupMeta "nbformat_minor" jupyterMeta) of
- (Just (MetaString "4"), Just (MetaString y)) ->
+ (Just (MetaInlines [Str "4"]), Just (MetaInlines [Str y])) ->
case safeRead y of
Just z -> (4, z)
Nothing -> (4, 5)