, setStatusCode
, resCanHaveBody
- , (≈)
- , (≉)
, isInformational
, isSuccessful
, isRedirection
import Data.Convertible.Base
import Data.Convertible.Instances.Ascii ()
import Data.Convertible.Utils
+import Data.Eq.Indirect
import Data.Monoid.Unicode
import Network.HTTP.Lucu.Headers
import Network.HTTP.Lucu.HttpVersion
{-# INLINEABLE resCanHaveBody #-}
resCanHaveBody (Response {..})
| isInformational resStatus = False
- | resStatus â\89\88 NoContent = False
- | resStatus â\89\88 ResetContent = False
- | resStatus â\89\88 NotModified = False
+ | resStatus â\89¡: NoContent = False
+ | resStatus â\89¡: ResetContent = False
+ | resStatus â\89¡: NotModified = False
| otherwise = True
-- |@'isInformational' sc@ returns 'True' iff @sc '<' 200@.