add paginatedServer to tests

haskell-servant · Feb 18, 2025 · 980064e · 980064e
1 parent e5f0350
commit 980064e
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/servant-client/test/Servant/ClientTestUtils.hs b/servant-client/test/Servant/ClientTestUtils.hs
@@ -473,3 +473,9 @@ usersServer mpage = do
   let pageNum = maybe 1 unRange mpage
   -- pageNum is guaranteed to be between 1 and 100
   return [Person "Example" $ fromIntegral pageNum]
+
+paginatedAPI :: Proxy PaginatedAPI
+paginatedAPI = Proxy
+
+paginatedServer :: Application
+paginatedServer = serve paginatedAPI usersServer