diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-06-13 02:14:28 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-06-13 02:14:28 +0400 |
| commit | 6042f69d711cddc0bb42457e0d16d45e7b34e431 (patch) | |
| tree | eebedcbd5cb46c5d033e89aae71b8ad5c3584a94 /src/Data/Torrent.hs | |
| parent | 4e30588737415d59fa36aa7308c037bb8bd8e3d5 (diff) | |
~ Fix wall suggestions.
Diffstat (limited to 'src/Data/Torrent.hs')
| -rw-r--r-- | src/Data/Torrent.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Data/Torrent.hs b/src/Data/Torrent.hs index ad57403e..1af8ece2 100644 --- a/src/Data/Torrent.hs +++ b/src/Data/Torrent.hs | |||
| @@ -57,7 +57,6 @@ import Prelude hiding (sum) | |||
| 57 | import Control.Applicative | 57 | import Control.Applicative |
| 58 | import Control.Arrow | 58 | import Control.Arrow |
| 59 | import Control.Exception | 59 | import Control.Exception |
| 60 | import Control.Monad | ||
| 61 | import Data.BEncode as BE | 60 | import Data.BEncode as BE |
| 62 | import Data.Char | 61 | import Data.Char |
| 63 | import Data.Foldable | 62 | import Data.Foldable |
| @@ -359,8 +358,8 @@ isMultiFile _ = False | |||
| 359 | 358 | ||
| 360 | -- | Read and decode a .torrent file. | 359 | -- | Read and decode a .torrent file. |
| 361 | fromFile :: FilePath -> IO Torrent | 360 | fromFile :: FilePath -> IO Torrent |
| 362 | fromFile path = do | 361 | fromFile filepath = do |
| 363 | contents <- B.readFile path | 362 | contents <- B.readFile filepath |
| 364 | case decoded contents of | 363 | case decoded contents of |
| 365 | Right !t -> return t | 364 | Right !t -> return t |
| 366 | Left msg -> throwIO $ userError $ msg ++ " while reading torrent" | 365 | Left msg -> throwIO $ userError $ msg ++ " while reading torrent" |