git.iko.soy/servant
on master help sign in
Rename EmptyAPIServer to EmptyServer and add deriving clause
commit6feb27e7b25f43ee71e47af5c047bf2dd2f312c1 authorDavid Turner <dave.c.turner@gmail.com> dateTue 16 May 2017, 15:53 (9 years ago) parent6256007
2 files changed+5−5
compare with master
unifiedsplit
servant-server/src/Servant/Server.hs+1−1 servant-server/src/Servant/Server/Internal.hs+4−4
servant-server/src/Servant/Server.hs+1−1
@@ -17,7 +17,7 @@ module Servant.Server
1717 , -- * Handlers for all standard combinators
1818 HasServer(..)
1919 , Server
20− , EmptyAPIServer
20+ , EmptyServer
2121 , emptyAPIServer
2222 , Handler (..)
2323 , runHandler
servant-server/src/Servant/Server/Internal.hs+4−4
@@ -532,12 +532,12 @@ instance HasServer api context => HasServer (HttpVersion :> api) context where
532532 route Proxy context subserver =
533533 route (Proxy :: Proxy api) context (passToServer subserver httpVersion)
534534
535−-- | Singleton type representing a server that serves an empty API
536−data EmptyAPIServer = EmptyAPIServer
535+-- | Singleton type representing a server that serves an empty API.
536+data EmptyServer = EmptyServer deriving (Typeable, Eq, Show, Bounded, Enum)
537537
538538-- | Server for `EmptyAPI`
539539emptyAPIServer :: Server EmptyAPI
540−emptyAPIServer = Tagged EmptyAPIServer
540+emptyAPIServer = Tagged EmptyServer
541541
542542-- | The server for an `EmptyAPI` is `emptyAPIServer`.
543543--
@@ -546,7 +546,7 @@ emptyAPIServer = Tagged EmptyAPIServer
546546-- > server :: Server MyApi
547547-- > server = emptyAPIServer
548548instance HasServer EmptyAPI context where
549− type ServerT EmptyAPI m = Tagged m EmptyAPIServer
549+ type ServerT EmptyAPI m = Tagged m EmptyServer
550550
551551 route Proxy _ _ = StaticRouter mempty mempty
552552