@@ -1255,7 +1255,8 @@ main = do
1255 Right (bs,_) -> return $ UTF8.toString bs
1255 Right (bs,_) -> return $ UTF8.toString bs
1257 let readFiles [] = error "Cannot read archive from stdin"
1257 let readFiles [] = error "Cannot read archive from stdin"
1258− readFiles (x:_) = B.readFile x
1258+ readFiles [x] = B.readFile x
1259+ readFiles (x:xs) = mapM (warn . ("Ignoring: " ++)) xs >> B.readFile x
1260 let convertTabs = tabFilter (if preserveTabs || readerName' == "t2t"
1261 let convertTabs = tabFilter (if preserveTabs || readerName' == "t2t"