~ Use exception in fromFile.

Again, the problem is that one function returns errors in two different
ways: Either and IO exceptions. It's better to just throw exception in
either case.

1 files changed, 1 insertions, 1 deletions

diff --git a/tests/InfoHash.hs b/tests/InfoHash.hs
index dbbcbf53..3f5a1432 100644
--- a/tests/InfoHash.hs
+++ b/tests/InfoHash.hs
@@ -19,7 +19,7 @@ main = do
   args <- getArgs
   let path = if length args == 0 then torrentFileName else head args
 
-  Right t <- fromFile path
+  t <- fromFile path
 
   BC.putStr "info hash: "
   print (ppInfoHash (tInfoHash t))