keep hlint happy

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

diff --git a/src/FuncTorrent/Metainfo.hs b/src/FuncTorrent/Metainfo.hs
index daf008f25181b5237ca485891e5bb252cde32271..9eb9955bfff5e4463111e75b5d387599d3f09e73 100644 (file)
--- a/src/FuncTorrent/Metainfo.hs
+++ b/src/FuncTorrent/Metainfo.hs
@@ -83,7 +83,7 @@ getAnnounceList (Just (Bdict _)) = []
 
 torrentToMetainfo :: ByteString -> Either String Metainfo
 torrentToMetainfo s =
-  case (decode s) of
+  case decode s of
    Right d ->
      mkMetaInfo d
    Left e ->