@@ -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
753−-- | The server for an `EmptyAPI` is `emptyAPIServer`.
753+-- | The server for an `EmptyAPI` is `emptyServer`.
755-- > type MyApi = "nothing" :> EmptyApi
755-- > type MyApi = "nothing" :> EmptyApi
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