From 4e377babaa6203c445607c4bb1cbfd42bd9c6c06 Mon Sep 17 00:00:00 2001 From: Benjamin Barenblat Date: Tue, 4 Sep 2018 17:44:34 -0400 Subject: Remove `Eq Error` instance MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit It’s not clear what equality between errors should mean, so don’t support it. --- src/BTLS/Result.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/BTLS/Result.hs b/src/BTLS/Result.hs index 4f0238a..a3c153c 100644 --- a/src/BTLS/Result.hs +++ b/src/BTLS/Result.hs @@ -47,7 +47,7 @@ data Error = Error , line :: Int , errorData :: Maybe ByteString , flags :: CInt - } deriving Eq + } errorDataIsHumanReadable :: Error -> Bool errorDataIsHumanReadable e = flags e .&. errFlagString == 1 -- cgit v1.2.3