@@ -104,6 +104,9 @@ spec = describe "Servant.Docs" $ do
104104 it "contains request body samples" $
105105 md `shouldContain` "17"
106106
107+ it "does not generate any docs mentioning the 'empty-api' path" $
108+ md `shouldNotContain` "empty-api"
109+
107110
108111-- * APIs
109112
@@ -128,6 +131,7 @@ instance MimeRender PlainText Int where
128131type TestApi1 = Get '[JSON, PlainText] (Headers '[Header "Location" String] Int)
129132 :<|> ReqBody '[JSON] String :> Post '[JSON] Datatype1
130133 :<|> Header "X-Test" Int :> Put '[JSON] Int
134+ :<|> "empty-api" :> EmptyAPI
131135
132136data TT = TT1 | TT2 deriving (Show, Eq)
133137data UT = UT1 | UT2 deriving (Show, Eq)