~ 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/exsamples/Main.hs b/exsamples/Main.hs
index 3a347ab6..b0224886 100644
--- a/exsamples/Main.hs
+++ b/exsamples/Main.hs
@@ -8,7 +8,7 @@ import System.Environment
 main :: IO ()
 main = do
   [path] <- getArgs
-  Right torrent <- fromFile path
+  torrent <- fromFile path
 
   client  <- newClient []
   swarm   <- newLeacher  client torrent