This commit is contained in:
Joey Hess 2014-12-17 15:34:38 -04:00
parent 6ca54c521d
commit e08fa65131

View file

@ -305,6 +305,9 @@ parseAriaProgress totalsize = go [] . reverse . split ['\r']
frompercent p = toBytesProcessed $ totalsize * p `div` 100
{- It would be better to use http://hackage.haskell.org/package/torrent,
- but that package won't currently build. I sent a patch fixing it
- to its author and plan to upload in Jan 2015 if I don't hear back. -}
btshowmetainfo :: FilePath -> String -> IO [String]
btshowmetainfo torrent field =
findfield [] . lines <$> readProcess "btshowmetainfo" [torrent]