Add a default case for BodyTypes (fixes error messages)

haskell-servant · Feb 6, 2016 · aa9d62d · aa9d62d
1 parent 59f1c8c
commit aa9d62d
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/Servant/Swagger/Internal/TypeLevel/API.hs b/src/Servant/Swagger/Internal/TypeLevel/API.hs
@@ -80,4 +80,5 @@ type family BodyTypes c api :: [*] where
   BodyTypes c (ReqBody cs a :> api) = AddBodyType c cs a (BodyTypes c api)
   BodyTypes c (e :> api) = BodyTypes c api
   BodyTypes c (a :<|> b) = Merge (BodyTypes c a) (BodyTypes c b)
+  BodyTypes c api = '[]