Add NoContent instance for NFData

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

View file

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

View file

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