on master help sign in
Add EmptyAPI type
d02c766David Turner
servant/servant.cabal+1
@@ -36,6 +36,7 @@ library
36 Servant.API.BasicAuth
36 Servant.API.BasicAuth
37 Servant.API.Capture
37 Servant.API.Capture
38 Servant.API.ContentTypes
38 Servant.API.ContentTypes
39+ Servant.API.Empty
39 Servant.API.Experimental.Auth
40 Servant.API.Experimental.Auth
40 Servant.API.Header
41 Servant.API.Header
41 Servant.API.HttpVersion
42 Servant.API.HttpVersion
servant/src/Servant/API/Empty.hsnew file+10
@@ -0,0 +1,10 @@
1+{-# LANGUAGE DeriveDataTypeable #-}
2+{-# OPTIONS_HADDOCK not-home #-}
3+module Servant.API.Empty(EmptyAPI(..)) where
4+
5+import Data.Typeable (Typeable)
6+import Prelude ()
7+import Prelude.Compat
8+
9+-- | An empty API: one which serves nothing.
10+data EmptyAPI = EmptyAPI deriving (Typeable, Eq, Show, Bounded)