From b08c8627d30fdaf991fdff1fd7f3d674b356a976 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 24 Jan 2019 16:21:57 -0800
Subject: Allow some command line options to take URL in addition to FILE.

`--include-in-header`, `--include-before-body`, `--include-after-body`
---
 src/Text/Pandoc/App/OutputSettings.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Text/Pandoc/App/OutputSettings.hs b/src/Text/Pandoc/App/OutputSettings.hs
index b4bd9a4b2..0f4923ea4 100644
--- a/src/Text/Pandoc/App/OutputSettings.hs
+++ b/src/Text/Pandoc/App/OutputSettings.hs
@@ -128,8 +128,8 @@ optToOutputSettings opts = do
       withList f (x:xs) vars = f x vars >>= withList f xs
 
   let addContentsAsVariable varname fp vars = do
-             s <- UTF8.toString <$> readFileStrict fp
-             return $ (varname, s) : vars
+        s <- UTF8.toString . fst <$> fetchItem fp
+        return $ (varname, s) : vars
 
   variables <-
     withList (addStringAsVariable "sourcefile")
-- 
cgit v1.2.3