From d02c7668ee5f1a043b9a846d74133c708b806c93 Mon Sep 17 00:00:00 2001
From: David Turner <dave.c.turner@gmail.com>
Date: Tue, 16 May 2017 08:18:16 +0000
Subject: [PATCH] Add EmptyAPI type

---
 servant/servant.cabal            |  1 +
 servant/src/Servant/API/Empty.hs | 10 ++++++++++
 2 files changed, 11 insertions(+)
 create mode 100644 servant/src/Servant/API/Empty.hs

diff --git a/servant/servant.cabal b/servant/servant.cabal
index 14229d16..3e126d66 100644
--- a/servant/servant.cabal
+++ b/servant/servant.cabal
@@ -36,6 +36,7 @@ library
     Servant.API.BasicAuth
     Servant.API.Capture
     Servant.API.ContentTypes
+    Servant.API.Empty
     Servant.API.Experimental.Auth
     Servant.API.Header
     Servant.API.HttpVersion
diff --git a/servant/src/Servant/API/Empty.hs b/servant/src/Servant/API/Empty.hs
new file mode 100644
index 00000000..5aa5c0ab
--- /dev/null
+++ b/servant/src/Servant/API/Empty.hs
@@ -0,0 +1,10 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# OPTIONS_HADDOCK not-home    #-}
+module Servant.API.Empty(EmptyAPI(..)) where
+
+import           Data.Typeable    (Typeable)
+import           Prelude ()
+import           Prelude.Compat
+
+-- | An empty API: one which serves nothing.
+data EmptyAPI = EmptyAPI deriving (Typeable, Eq, Show, Bounded)