λ res ^. responseStatus
Status {statusCode = 200, statusMessage = "OK"}
λ :t res ^. responseStatus
res ^. responseStatus :: Status
λ :i Status
data Status
= Network.HTTP.Types.Status.Status {Network.HTTP.Types.Status.statusCode :: Int,
Network.HTTP.Types.Status.statusMessage :: Data.ByteString.Internal.ByteString}
-- Defined in ‘Network.HTTP.Types.Status’
instance Enum Status -- Defined in ‘Network.HTTP.Types.Status’
instance Eq Status -- Defined in ‘Network.HTTP.Types.Status’
instance Ord Status -- Defined in ‘Network.HTTP.Types.Status’
instance Show Status -- Defined in ‘Network.HTTP.Types.Status’
You can see how to get the status, where it comes from. So you can just do "if res ^. responseStatus /= status200 then ...".
Cheers.