diff --git a/src/Servant/API/Patch.hs b/src/Servant/API/Patch.hs new file mode 100644 index 00000000..d2643d5b --- /dev/null +++ b/src/Servant/API/Patch.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE DeriveDataTypeable #-} +module Servant.API.Patch where + +import Data.Typeable ( Typeable ) + +-- | Endpoint for PATCH requests. The type variable represents the type of the +-- response body (not the request body, use 'Servant.API.ReqBody.ReqBody' for +-- that). +-- +-- If the HTTP response is empty, only () is supported. +-- +-- Example: +-- +-- > -- POST /books +-- > -- with a JSON encoded Book as the request body +-- > -- returning the just-created Book +-- > type MyApi = "books" :> ReqBody Book :> Post Book +data Patch a + deriving Typeable