@@ -79,7 +79,7 @@ cellToBlocks opts lang c = do
79 case cellType c of
79 case cellType c of
80 Ipynb.Markdown -> do
80 Ipynb.Markdown -> do
81 Pandoc _ bs <- walk fixImage <$> readMarkdown opts source
81 Pandoc _ bs <- walk fixImage <$> readMarkdown opts source
82− let kvs' = ("source", source) : [(k,v) | (k,v) <- kvs, k /= "source"]
82+ let kvs' = ("source", source) : kvs
83 return $ B.divWith ("",["cell","markdown"],kvs')
83 return $ B.divWith ("",["cell","markdown"],kvs')
84 $ B.fromList bs
84 $ B.fromList bs
85 Ipynb.Heading lev -> do
85 Ipynb.Heading lev -> do