From b08c8627d30fdaf991fdff1fd7f3d674b356a976 Mon Sep 17 00:00:00 2001 From: John MacFarlane 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/Text') 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