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

Make method non poly-kinded in Verb

Browse source
This commit is contained in:
Gaël Deest 2022-02-03 13:49:33 +01:00
parent ae75b54589
commit e5989175be
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -26,13 +26,13 @@ import Network.HTTP.Types.Method
-- provided, but you are free to define your own: -- provided, but you are free to define your own:
-- --
-- >>> type Post204 contentTypes a = Verb 'POST 204 contentTypes a -- >>> type Post204 contentTypes a = Verb 'POST 204 contentTypes a
data Verb (method :: k1) (statusCode :: Nat) (contentTypes :: [*]) (a :: *) data Verb (method :: StdMethod) (statusCode :: Nat) (contentTypes :: [*]) (a :: *)
deriving (Typeable, Generic) deriving (Typeable, Generic)
-- | @NoContentVerb@ is a specific type to represent 'NoContent' responses. -- | @NoContentVerb@ is a specific type to represent 'NoContent' responses.
-- It does not require either a list of content types (because there's -- It does not require either a list of content types (because there's
-- no content) or a status code (because it should always be 204). -- no content) or a status code (because it should always be 204).
data NoContentVerb (method :: k1) data NoContentVerb (method :: StdMethod)
deriving (Typeable, Generic) deriving (Typeable, Generic)
-- * 200 responses -- * 200 responses