@@ -42,14 +42,14 @@ import Servant.API ((:<|>) (..), (:>), AuthProtect,
4242 Headers, HttpVersion,
4343 IsSecure (..), JSON,
4444 NoContent (..), Patch, PlainText,
45− Post, Put,
45+ Post, Put, EmptyAPI,
4646 QueryFlag, QueryParam, QueryParams,
4747 Raw, RemoteHost, ReqBody,
4848 StdMethod (..), Verb, addHeader)
4949import Servant.API.Internal.Test.ComprehensiveAPI
5050import Servant.Server (Server, Handler, Tagged (..), err401, err403,
5151 err404, serve, serveWithContext,
52− Context((:.), EmptyContext))
52+ Context((:.), EmptyContext), emptyAPIServer)
5353import Test.Hspec (Spec, context, describe, it,
5454 shouldBe, shouldContain)
5555import qualified Test.Hspec.Wai as THW
@@ -609,6 +609,7 @@ type MiscCombinatorsAPI
609609 = "version" :> HttpVersion :> Get '[JSON] String
610610 :<|> "secure" :> IsSecure :> Get '[JSON] String
611611 :<|> "host" :> RemoteHost :> Get '[JSON] String
612+ :<|> "empty" :> EmptyAPI
612613
613614miscApi :: Proxy MiscCombinatorsAPI
614615miscApi = Proxy
@@ -617,6 +618,7 @@ miscServ :: Server MiscCombinatorsAPI
617618miscServ = versionHandler
618619 :<|> secureHandler
619620 :<|> hostHandler
621+ :<|> emptyAPIServer
620622
621623 where versionHandler = return . show
622624 secureHandler Secure = return "secure"
@@ -635,6 +637,9 @@ miscCombinatorSpec = with (return $ serve miscApi miscServ) $
635637 it "Checks that hspec-wai issues request from 0.0.0.0" $
636638 go "/host" "\"0.0.0.0:0\""
637639
640+ it "Doesn't serve anything from the empty API" $
641+ Test.Hspec.Wai.get "empty" `shouldRespondWith` 404
642+
638643 where go path res = Test.Hspec.Wai.get path `shouldRespondWith` res
639644
640645-- }}}