2017-05-16 10:18:16 +02:00
|
|
|
{-# LANGUAGE DeriveDataTypeable #-}
|
|
|
|
{-# OPTIONS_HADDOCK not-home #-}
|
|
|
|
module Servant.API.Empty(EmptyAPI(..)) where
|
|
|
|
|
2018-03-11 16:58:31 +01:00
|
|
|
import Data.Typeable
|
|
|
|
(Typeable)
|
2017-05-16 10:18:16 +02:00
|
|
|
import Prelude ()
|
|
|
|
import Prelude.Compat
|
|
|
|
|
2017-05-16 18:03:25 +02:00
|
|
|
-- | An empty API: one which serves nothing. Morally speaking, this should be
|
|
|
|
-- the unit of ':<|>'. Implementors of interpretations of API types should
|
|
|
|
-- treat 'EmptyAPI' as close to the unit as possible.
|
2017-05-16 18:04:25 +02:00
|
|
|
data EmptyAPI = EmptyAPI deriving (Typeable, Eq, Show, Bounded, Enum)
|