Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Better warning when trying to read multiple binary files

Browse source
This commit is contained in:
Matthew Pickering 2015-01-19 02:44:04 +00:00
parent 25e12ca7b2
commit da93181d06
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
pandoc.hs
View file

@ -1255,7 +1255,8 @@ main = do
Right (bs,_) -> return $ UTF8.toString bs Right (bs,_) -> return $ UTF8.toString bs
let readFiles [] = error "Cannot read archive from stdin" 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" let convertTabs = tabFilter (if preserveTabs || readerName' == "t2t"
then 0 then 0