diff options
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/App/OutputSettings.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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") |