From e2edd7436a287160d993815e2dc1ad9792435b9c Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Thu, 28 Nov 2013 15:24:48 +0400 Subject: Remove byteStringToInfoHash function --- src/Network/BitTorrent/Tracker/Message.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src/Network/BitTorrent') diff --git a/src/Network/BitTorrent/Tracker/Message.hs b/src/Network/BitTorrent/Tracker/Message.hs index e5d8b25a..3437dcf3 100644 --- a/src/Network/BitTorrent/Tracker/Message.hs +++ b/src/Network/BitTorrent/Tracker/Message.hs @@ -55,6 +55,7 @@ import Data.BEncode.BDict as BE import Data.ByteString as BS import Data.ByteString.Char8 as BC import Data.Char as Char +import Data.Convertible import Data.List as L import Data.Map as M import Data.Maybe @@ -265,7 +266,7 @@ class FromParam a where fromParam :: BS.ByteString -> Maybe a instance FromParam InfoHash where - fromParam = byteStringToInfoHash + fromParam = either (const Nothing) pure . safeConvert instance FromParam PeerId where fromParam = byteStringToPeerId -- cgit v1.2.3