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

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
8	main :: IO ()	8	main :: IO ()
9	main = do	9	main = do
10	[path] <- getArgs	10	[path] <- getArgs
11	Right torrent <- fromFile path	11	torrent <- fromFile path
12		12
13	client <- newClient []	13	client <- newClient []
14	swarm <- newLeacher client torrent	14	swarm <- newLeacher client torrent