on master help sign in
Fix docs: emptyAPIServer -> emptyServer (#1344)
e364470Brandon Chinn
servant-server/src/Servant/Server/Internal.hs+2−2
@@ -750,12 +750,12 @@ data EmptyServer = EmptyServer deriving (Typeable, Eq, Show, Bounded, Enum)
750emptyServer :: ServerT EmptyAPI m
750emptyServer :: ServerT EmptyAPI m
751emptyServer = Tagged EmptyServer
751emptyServer = Tagged EmptyServer
752
752
753−-- | The server for an `EmptyAPI` is `emptyAPIServer`.
753+-- | The server for an `EmptyAPI` is `emptyServer`.
754--
754--
755-- > type MyApi = "nothing" :> EmptyApi
755-- > type MyApi = "nothing" :> EmptyApi
756-- >
756-- >
757-- > server :: Server MyApi
757-- > server :: Server MyApi
758−-- > server = emptyAPIServer
758+-- > server = emptyServer
759instance HasServer EmptyAPI context where
759instance HasServer EmptyAPI context where
760 type ServerT EmptyAPI m = Tagged m EmptyServer
760 type ServerT EmptyAPI m = Tagged m EmptyServer
761
761