Add EmptyAPI type
commitd02c7668ee5f1a043b9a846d74133c708b806c93
authorDavid Turner <dave.c.turner@gmail.com>
dateTue 16 May 2017, 08:18 (9 years ago)
parent02fad69
servant/servant.cabal+1
@@ -36,6 +36,7 @@ library
3636 Servant.API.BasicAuth
3737 Servant.API.Capture
3838 Servant.API.ContentTypes
39+ Servant.API.Empty
3940 Servant.API.Experimental.Auth
4041 Servant.API.Header
4142 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)