coulomb/inter-hub-haskell
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make hub discovery public

Browse source
This commit is contained in:
tegwick 2026-06-14 22:48:53 +02:00
parent 2e450e3a2d
commit 5c13de1b8f
7 changed files with 100 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Web/Controller/Api/V2/Hubs.hs
View file

@ -27,7 +27,6 @@ instance Controller ApiV2HubsController where
listHubs :: (?context :: ControllerContext, ?modelContext :: ModelContext, ?respond :: Respond, ?request :: Request) => IO ()
listHubs = do
_consumer <- requireApiConsumer
(page, perPage) <- getPageParams
let pageOffset = (page - 1) * perPage
total <- query @Hub |> fetchCount