diff options
Diffstat (limited to 'src/Text/Pandoc/Class/PandocMonad.hs')
-rw-r--r-- | src/Text/Pandoc/Class/PandocMonad.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Class/PandocMonad.hs b/src/Text/Pandoc/Class/PandocMonad.hs index 8229668e7..991aeed41 100644 --- a/src/Text/Pandoc/Class/PandocMonad.hs +++ b/src/Text/Pandoc/Class/PandocMonad.hs @@ -27,6 +27,7 @@ module Text.Pandoc.Class.PandocMonad , report , setTrace , setRequestHeader + , setNoCheckCertificate , getLog , setVerbosity , getVerbosity @@ -189,6 +190,10 @@ setRequestHeader name val = modifyCommonState $ \st -> st{ stRequestHeaders = (name, val) : filter (\(n,_) -> n /= name) (stRequestHeaders st) } +-- | Determine whether certificate validation is disabled +setNoCheckCertificate :: PandocMonad m => Bool -> m () +setNoCheckCertificate noCheckCertificate = modifyCommonState $ \st -> st{stNoCheckCertificate = noCheckCertificate} + -- | Initialize the media bag. setMediaBag :: PandocMonad m => MediaBag -> m () setMediaBag mb = modifyCommonState $ \st -> st{stMediaBag = mb} |