diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2016-12-12 14:15:49 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-01-25 17:07:42 +0100 |
| commit | 994d43117231af8f9825d4df3dd3f2f6af74f8af (patch) | |
| tree | db465671e6dcca6547a2d5e57aae54dc848e2086 /src/Text/Pandoc | |
| parent | 6aff97e4e16b3829151a5e84b63a0aee26ea8511 (diff) | |
Class: have pure instance of openURL throw an error, for now.
Later we may want to include a map of URLs and mime type, bytestring
pairs in pure state to serve as a fake internet.
Diffstat (limited to 'src/Text/Pandoc')
| -rw-r--r-- | src/Text/Pandoc/Class.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Class.hs b/src/Text/Pandoc/Class.hs index 9604d7c18..9c11256c8 100644 --- a/src/Text/Pandoc/Class.hs +++ b/src/Text/Pandoc/Class.hs @@ -396,7 +396,7 @@ instance PandocMonad PandocPure where modifyPureState $ \st -> st { stUniqStore = us } return u _ -> M.fail "uniq store ran out of elements" - openURL _ = undefined -- TODO + openURL _ = throwError $ PandocSomeError "Cannot open URL in PandocPure" readFileLazy fp = do fps <- getsPureState stFiles case infoFileContents <$> getFileInfo fp fps of |