From a1f7a4263f56a4843b6c03ef4b986715f2bdb82d Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sun, 15 Oct 2017 22:09:28 -0700
Subject: Class: add stRequestHeaders to CommonState, and setRequestHeader.

---
 src/Text/Pandoc/Class.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/src/Text/Pandoc/Class.hs b/src/Text/Pandoc/Class.hs
index 2b1943140..451d430ca 100644
--- a/src/Text/Pandoc/Class.hs
+++ b/src/Text/Pandoc/Class.hs
@@ -57,6 +57,7 @@ module Text.Pandoc.Class ( PandocMonad(..)
                          , readFileFromDirs
                          , report
                          , setTrace
+                         , setRequestHeader
                          , getLog
                          , setVerbosity
                          , getVerbosity
@@ -245,6 +246,15 @@ report msg = do
 setTrace :: PandocMonad m => Bool -> m ()
 setTrace useTracing = modifyCommonState $ \st -> st{stTrace = useTracing}
 
+-- | Set request header to use in HTTP requests.
+setRequestHeader :: PandocMonad m
+                 => String  -- ^ Header name
+                 -> String  -- ^ Value
+                 -> m ()
+setRequestHeader name val = modifyCommonState $ \st ->
+  st{ stRequestHeaders =
+       (name, val) : filter (\(n,_) -> n /= name) (stRequestHeaders st)  }
+
 -- | Initialize the media bag.
 setMediaBag :: PandocMonad m => MediaBag -> m ()
 setMediaBag mb = modifyCommonState $ \st -> st{stMediaBag = mb}
@@ -315,6 +325,8 @@ data CommonState = CommonState { stLog          :: [LogMessage]
                                  -- ^ Directory to search for data files
                                , stSourceURL    :: Maybe String
                                  -- ^ Absolute URL + dir of 1st source file
+                               , stRequestHeaders :: [(String, String)]
+                                 -- ^ Headers to add for HTTP requests
                                , stMediaBag     :: MediaBag
                                  -- ^ Media parsed from binary containers
                                , stTranslations :: Maybe
@@ -338,6 +350,7 @@ instance Default CommonState where
   def = CommonState { stLog = []
                     , stUserDataDir = Nothing
                     , stSourceURL = Nothing
+                    , stRequestHeaders = []
                     , stMediaBag = mempty
                     , stTranslations = Nothing
                     , stInputFiles = []
-- 
cgit v1.2.3