diff options
| author | Sam T <pxqr.sta@gmail.com> | 2013-06-02 05:55:01 +0400 |
|---|---|---|
| committer | Sam T <pxqr.sta@gmail.com> | 2013-06-02 05:55:01 +0400 |
| commit | dea6c9b2ea1037ee54f1908ebc6a5e193e0cfac6 (patch) | |
| tree | c2f1a0cef2de9211b0670c755f1f96de37e20002 /tests/info-hash.hs | |
| parent | 01f51b51af8a67516238bc7264079601a7e2ece5 (diff) | |
~ Merge InfoHash to Torrent.
This allow to provide better interface.
Diffstat (limited to 'tests/info-hash.hs')
| -rw-r--r-- | tests/info-hash.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/info-hash.hs b/tests/info-hash.hs index ce8d7db2..290b5063 100644 --- a/tests/info-hash.hs +++ b/tests/info-hash.hs | |||
| @@ -23,8 +23,8 @@ main = do | |||
| 23 | Right t <- fromFile path | 23 | Right t <- fromFile path |
| 24 | 24 | ||
| 25 | BC.putStr "info hash: " | 25 | BC.putStr "info hash: " |
| 26 | BC.putStrLn (ppHex (tInfoHash t)) | 26 | BC.putStrLn (ppInfoHash (tInfoHash t)) |
| 27 | 27 | ||
| 28 | let passed = checkInfo == ppHex (tInfoHash t) | 28 | let passed = checkInfo == ppInfoHash (tInfoHash t) |
| 29 | print passed | 29 | print passed |
| 30 | if passed then exitSuccess else exitFailure | 30 | if passed then exitSuccess else exitFailure |