metainfo: remove a redundant "show"
authorRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Wed, 2 Aug 2017 06:22:53 +0000 (11:52 +0530)
committerRamakrishnan Muthukrishnan <ram@rkrishnan.org>
Wed, 2 Aug 2017 06:22:53 +0000 (11:52 +0530)
src/FuncTorrent/Metainfo.hs

index 93540823fc47a97a6606342c71fa2d7525764f99..bec28b84dd172e61c4c69846e8b801294990ab3e 100644 (file)
@@ -130,5 +130,5 @@ torrentToMetainfo :: ByteString -> Either String Metainfo
 torrentToMetainfo s =
   case decode s of
     Right d -> mkMetaInfo d
-    Left e -> Left (show "Cannot parse the torrent file: " ++ show e)
+    Left e -> Left ("Cannot parse the torrent file: " ++ show e)