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))

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
19	args <- getArgs	19	args <- getArgs
20	let path = if length args == 0 then torrentFileName else head args	20	let path = if length args == 0 then torrentFileName else head args
21		21
22	Right t <- fromFile path	22	t <- fromFile path
23		23
24	BC.putStr "info hash: "	24	BC.putStr "info hash: "
25	print (ppInfoHash (tInfoHash t))	25	print (ppInfoHash (tInfoHash t))