@@ -23,7 +23,7 @@ import Server.Query.Pagination
2323-- MARK: Implementation
2424
2525type PostApi = ReqBody '[JSON] [P.PostId] :> Post '[JSON] (ResponseWithUsers [P.Post]) :<|>
26− "last" :> ReqBody '[JSON] (PaginatingRequest P.PostId ()) :> Post '[JSON] (ResponseWithUsers [P.Post]) :<|>
26+ "last" :> ReqBody '[JSON] (PaginatingRequest P.PostId (Maybe ())) :> Post '[JSON] (ResponseWithUsers [P.Post]) :<|>
2727 "forUser" :> ReqBody '[JSON] (PaginatingRequest P.PostId UserId) :> Post '[JSON] (ResponseWithUsers [P.Post]) :<|>
2828 "publish" :> ReqBody '[JSON] P.PostCreation :> Post '[JSON] P.PostId
2929
@@ -33,7 +33,7 @@ postApi uId = getPostsApi :<|> lastPosts :<|> getPostsForUserApi :<|> publishPos
3333getPostsApi :: [P.PostId] -> App (ResponseWithUsers [P.Post])
3434getPostsApi = maybeNotFound . runQnotFound . getPosts
3535
36−lastPosts :: PaginatingRequest P.PostId () -> App (ResponseWithUsers [P.Post])
36+lastPosts :: PaginatingRequest P.PostId (Maybe ()) -> App (ResponseWithUsers [P.Post])
3737lastPosts (PaginatingRequest pId lim _) = maybeNotFound . runQnotFound $ getLastPosts pId lim
3838
3939getPostsForUserApi :: PaginatingRequest P.PostId UserId -> App (ResponseWithUsers [P.Post])