query.hs

-- first I want to select some elements to display in my table
select $ from $ \(foo `innerJoin` bar) -> do
  on (foo ^. FooBar ==. bar ^. BarId)
  where_ (foo ^. FooFoo ==. E.val True)
  orderBy [asc (foo ^. FooId)]
  offset (resultsPerPage * pageNum)
  limit resultsPerPage
  pure (foo, bar)
  
-- then I want to count the total to know how many pages are there
select $ from $ \(foo `innerJoin` bar) -> do
  on (foo ^. FooBar ==. bar ^. BarId)
  where_ (foo ^. FooFoo ==. E.val True)
  pure countRows
  
-- they're identical except for the last lines