eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add EmptyAPI type

Browse source
This commit is contained in:
David Turner 2017-05-16 08:18:16 +00:00
parent 02fad699aa
commit d02c7668ee
2 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
servant/servant.cabal
View file

@ -36,6 +36,7 @@ library
Servant.API.BasicAuth Servant.API.BasicAuth
Servant.API.Capture Servant.API.Capture
Servant.API.ContentTypes Servant.API.ContentTypes
Servant.API.Empty
Servant.API.Experimental.Auth Servant.API.Experimental.Auth
Servant.API.Header Servant.API.Header
Servant.API.HttpVersion Servant.API.HttpVersion

10
servant/src/Servant/API/Empty.hs Normal file
View file

@ -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)