haskell/servant-quickcheck
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

implement missing (orphan) Eq instance for Response

Browse Source
This commit is contained in:
Sarah Vaupel 2024-01-18 09:57:52 +01:00
parent 5096da32c0
commit d83fd0ab29
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Servant/QuickCheck/Internal/Equality.hs
View File

@ -4,7 +4,7 @@ import Data.Aeson (Value, decode, decodeStrict)
import Data.ByteString (ByteString) import Data.ByteString (ByteString)
import qualified Data.ByteString.Lazy as LB import qualified Data.ByteString.Lazy as LB
import Data.Function (on) import Data.Function (on)
import Network.HTTP.Client (Response, responseBody) import Network.HTTP.Client (Response, responseBody, responseStatus, responseVersion, responseHeaders)
import Data.Semigroup (Semigroup (..)) import Data.Semigroup (Semigroup (..))
import Prelude.Compat import Prelude.Compat
@ -19,6 +19,11 @@ instance Monoid (ResponseEquality b) where
mempty = ResponseEquality $ \_ _ -> True mempty = ResponseEquality $ \_ _ -> True
mappend = (<>) mappend = (<>)
instance Eq a => Eq (Response a) where
a == b = responseBody a == responseBody b
&& responseStatus a == responseStatus b
&& responseHeaders a == responseHeaders b
-- | Use `Eq` instance for `Response` -- | Use `Eq` instance for `Response`
-- --
-- /Since 0.0.0.0/ -- /Since 0.0.0.0/