From da93181d06d03698c4970d75cde84ec117e48703 Mon Sep 17 00:00:00 2001 From: Matthew Pickering Date: Mon, 19 Jan 2015 02:44:04 +0000 Subject: Better warning when trying to read multiple binary files --- pandoc.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'pandoc.hs') 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 -- cgit v1.2.3