summaryrefslogtreecommitdiff
path: root/pandoc.hs
diff options
context:
space:
mode:
authorMatthew Pickering <matthewtpickering@gmail.com>2015-01-19 02:44:04 +0000
committerMatthew Pickering <matthewtpickering@gmail.com>2015-01-19 02:44:04 +0000
commitda93181d06d03698c4970d75cde84ec117e48703 (patch)
treef06d72b6110b92ac70f8682be39a58e8674e338f /pandoc.hs
parent25e12ca7b20bc48fc5ff866a8427b08df7c1c71a (diff)
Better warning when trying to read multiple binary files
Diffstat (limited to 'pandoc.hs')
-rw-r--r--pandoc.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/pandoc.hs b/pandoc.hs
index 1ae8262c3..2290f750a 100644
--- a/pandoc.hs
+++ b/pandoc.hs
@@ -1255,7 +1255,8 @@ main = do
Right (bs,_) -> return $ UTF8.toString bs
let readFiles [] = error "Cannot read archive from stdin"
- readFiles (x:_) = B.readFile x
+ readFiles [x] = B.readFile x
+ readFiles (x:xs) = mapM (warn . ("Ignoring: " ++)) xs >> B.readFile x
let convertTabs = tabFilter (if preserveTabs || readerName' == "t2t"
then 0