Commits

Aleksey Khudyakov committed 415910f

Type sig

Comments (0)

Files changed (1)

 hreadTar :: Handle -> IO [Entry]
 hreadTar h = unpackTar `fmap` L.hGetContents h
 
+unpackTar :: L.ByteString -> [Entry]
 unpackTar 
   = foldEntries (:) [] (error . show)
   . Tar.read