eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add NoContent instance for NFData

Browse source
This commit is contained in:
Domen Kožar 2018-11-27 16:41:31 +00:00
parent e3e5d2b230
commit e7655d380a
No known key found for this signature in database
GPG key ID: C2FFBCAFD2C24246
2 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
servant/servant.cabal
View file

@ -109,6 +109,7 @@ library
, attoparsec >= 0.13.2.2 && < 0.14 , attoparsec >= 0.13.2.2 && < 0.14
, bifunctors >= 5.5.3 && < 5.6 , bifunctors >= 5.5.3 && < 5.6
, case-insensitive >= 1.2.0.11 && < 1.3 , case-insensitive >= 1.2.0.11 && < 1.3
, deepseq >= 1.4.2.0 && < 1.5
, http-media >= 0.7.1.3 && < 0.8 , http-media >= 0.7.1.3 && < 0.8
, http-types >= 0.12.2 && < 0.13 , http-types >= 0.12.2 && < 0.13
, mmorph >= 1.1.2 && < 1.2 , mmorph >= 1.1.2 && < 1.2

4
servant/src/Servant/API/ContentTypes.hs
View file

@ -71,6 +71,8 @@ module Servant.API.ContentTypes
import Control.Arrow import Control.Arrow
(left) (left)
import Control.Monad.Compat import Control.Monad.Compat
import Control.DeepSeq
(NFData)
import Data.Aeson import Data.Aeson
(FromJSON (..), ToJSON (..), encode) (FromJSON (..), ToJSON (..), encode)
import Data.Aeson.Parser import Data.Aeson.Parser
@ -361,6 +363,8 @@ instance MimeRender OctetStream BS.ByteString where
data NoContent = NoContent data NoContent = NoContent
deriving (Show, Eq, Read, Generic) deriving (Show, Eq, Read, Generic)
instance NFData NoContent
-------------------------------------------------------------------------- --------------------------------------------------------------------------
-- * MimeUnrender Instances -- * MimeUnrender Instances