From 71011745c0692f52994ad82df6f096cce23a4abe Mon Sep 17 00:00:00 2001
From: Timo von Holtz <tvh@anchor.com.au>
Date: Tue, 10 Feb 2015 11:28:16 +1100
Subject: [PATCH] Actually include the Patch.hs

---
 src/Servant/API/Patch.hs | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 src/Servant/API/Patch.hs

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