metainfo: remove a redundant "show"

[functorrent.git] / src / FuncTorrent / Metainfo.hs

diff --git a/src/FuncTorrent/Metainfo.hs b/src/FuncTorrent/Metainfo.hs
index 93540823fc47a97a6606342c71fa2d7525764f99..bec28b84dd172e61c4c69846e8b801294990ab3e 100644 (file)
--- a/src/FuncTorrent/Metainfo.hs
+++ b/src/FuncTorrent/Metainfo.hs
@@ -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)