@@ -101,7 +101,7 @@ cellToBlocks opts lang c = do
101101 return $ B.divWith ("",["cell","raw"],kvs) $ B.rawBlock format'
102102 $ T.unpack source
103103 Ipynb.Code{ codeOutputs = outputs, codeExecutionCount = ec } -> do
104− outputBlocks <- mconcat <$> mapM (outputToBlock opts) outputs
104+ outputBlocks <- mconcat <$> mapM outputToBlock outputs
105105 let kvs' = maybe kvs (\x -> ("execution_count", show x):kvs) ec
106106 return $ B.divWith ("",["cell","code"],kvs') $
107107 B.codeBlockWith ("",[lang],[]) (T.unpack source)
@@ -126,23 +126,23 @@ addAttachment (fname, mimeBundle) = do
126126 insertMedia fp (Just $ T.unpack mimeType) (encode v)
127127 [] -> report $ CouldNotFetchResource fp "no attachment"
128128
129−outputToBlock :: PandocMonad m => ReaderOptions -> Output a -> m B.Blocks
130−outputToBlock _ Stream{ streamName = sName,
131− streamText = Source text } = do
129+outputToBlock :: PandocMonad m => Output a -> m B.Blocks
130+outputToBlock Stream{ streamName = sName,
131+ streamText = Source text } = do
132132 return $ B.divWith ("",["output","stream",T.unpack sName],[])
133133 $ B.codeBlock $ T.unpack . mconcat $ text
134−outputToBlock opts DisplayData{ displayData = data',
135− displayMetadata = metadata' } =
134+outputToBlock DisplayData{ displayData = data',
135+ displayMetadata = metadata' } =
136136 B.divWith ("",["output", "display_data"],[]) <$>
137− handleData opts metadata' data'
138−outputToBlock opts ExecuteResult{ executeCount = ec,
139− executeData = data',
140− executeMetadata = metadata' } =
137+ handleData metadata' data'
138+outputToBlock ExecuteResult{ executeCount = ec,
139+ executeData = data',
140+ executeMetadata = metadata' } =
141141 B.divWith ("",["output", "execute_result"],[("execution_count",show ec)])
142− <$> handleData opts metadata' data'
143−outputToBlock _ Err{ errName = ename,
144− errValue = evalue,
145− errTraceback = traceback } = do
142+ <$> handleData metadata' data'
143+outputToBlock Err{ errName = ename,
144+ errValue = evalue,
145+ errTraceback = traceback } = do
146146 return $ B.divWith ("",["output","error"],
147147 [("ename",T.unpack ename),
148148 ("evalue",T.unpack evalue)])
@@ -151,14 +151,12 @@ outputToBlock _ Err{ errName = ename,
151151-- We want to display the richest output possible given
152152-- the output format.
153153handleData :: PandocMonad m
154− => ReaderOptions -> JSONMeta -> MimeBundle -> m B.Blocks
155−handleData opts metadata (MimeBundle mb) =
154+ => JSONMeta -> MimeBundle -> m B.Blocks
155+handleData metadata (MimeBundle mb) =
156156 mconcat <$> mapM dataBlock (M.toList mb)
157157
158158 where
159159
160− exts = readerExtensions opts
161−
162160 dataBlock :: PandocMonad m => (MimeType, MimeData) -> m B.Blocks
163161 dataBlock (mt, BinaryData bs)
164162 | "image/" `T.isPrefixOf` mt