Adds application/json to inspect type (#853)

2017-04-06 10:43:56 -05:00
parent 10f6ce45db
commit 0cf49bb8b6
3 changed files with 3 additions and 2 deletions
@@ -237,7 +237,7 @@ makeRootPathItem = ("/", p)
  where
    getOp = (mempty :: Operation)
      & tags .~ Set.fromList ["/"]
-      & produces ?~ makeMimeList [CTOpenAPI]
+      & produces ?~ makeMimeList [CTOpenAPI, CTApplicationJSON]
      & at 200 ?~ "OK"
    pr = (mempty :: PathItem) & get ?~ getOp
    p = pr