git.iko.soy/typeable/pandoc
on master help sign in
Class: have pure instance of openURL throw an error, for now.
994d431John MacFarlane
src/Text/Pandoc/Class.hs+1−1
compare with master
unifiedsplit
@@ -396,7 +396,7 @@ instance PandocMonad PandocPure where
396 modifyPureState $ \st -> st { stUniqStore = us }
396 modifyPureState $ \st -> st { stUniqStore = us }
397 return u
397 return u
398 _ -> M.fail "uniq store ran out of elements"
398 _ -> M.fail "uniq store ran out of elements"
399− openURL _ = undefined -- TODO
399+ openURL _ = throwError $ PandocSomeError "Cannot open URL in PandocPure"
400 readFileLazy fp = do
400 readFileLazy fp = do
401 fps <- getsPureState stFiles
401 fps <- getsPureState stFiles
402 case infoFileContents <$> getFileInfo fp fps of
402 case infoFileContents <$> getFileInfo fp fps of