@@ -71,6 +71,8 @@ module Servant.API.ContentTypes
71import Control.Arrow
71import Control.Arrow
73import Control.Monad.Compat
73import Control.Monad.Compat
74+import Control.DeepSeq
74import Data.Aeson
76import Data.Aeson
75 (FromJSON (..), ToJSON (..), encode)
77 (FromJSON (..), ToJSON (..), encode)
76import Data.Aeson.Parser
78import Data.Aeson.Parser
@@ -361,6 +363,8 @@ instance MimeRender OctetStream BS.ByteString where
361data NoContent = NoContent
363data NoContent = NoContent
362 deriving (Show, Eq, Read, Generic)
364 deriving (Show, Eq, Read, Generic)
366+instance NFData NoContent
365--------------------------------------------------------------------------
369--------------------------------------------------------------------------
366-- * MimeUnrender Instances
370-- * MimeUnrender Instances