jimmy/postgrest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add a root path item

Browse Source
This commit is contained in:
Jacky Hu
2016-06-18 10:18:43 +08:00
parent d34056b3b9
commit 0e456543bf
1 changed files with 11 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/PostgREST/ApiSpec.hs
+11 -1
View File
@@ -186,8 +186,18 @@ makePathItem (t, cs, _) = ("/" ++ unpack tn, p $ tableInsertable t)
rs = makeRowFilters cs rs = makeRowFilters cs
tn = tableName t tn = tableName t
makeRootPathItem :: (FilePath, PathItem)
makeRootPathItem = ("/", p)
where
getOp = (mempty :: Operation)
& tags .~ Set.fromList ["/"]
& produces ?~ MimeList [(fromString . show) ApplicationJSON]
& at 200 ?~ "OK"
pr = (mempty :: PathItem) & get ?~ getOp
p = pr
makePathItems :: [(Table, [Column], [Text])] -> InsOrdHashMap FilePath PathItem makePathItems :: [(Table, [Column], [Text])] -> InsOrdHashMap FilePath PathItem
makePathItems ti = fromList (map makePathItem ti) makePathItems ti = fromList $ makeRootPathItem : map makePathItem ti
apiSpec :: [(Table, [Column], [Text])] -> String -> Integer -> Swagger apiSpec :: [(Table, [Column], [Text])] -> String -> Integer -> Swagger
apiSpec ti h p = (mempty :: Swagger) apiSpec ti h p = (mempty :: Swagger)