_name :: Text,
        _description :: Maybe Text,

    listAuctions,

    name,
    description

import Aftok.Database ()

import Aftok.Database (Limit(..))

import Aftok.Interval (RangeQuery(..))

    <*> field
    <*> field

    [sql| INSERT INTO auctions (project_id, initiator_id, raise_amount, end_time)

    [sql| INSERT INTO auctions (project_id, initiator_id, name, description, raise_amount, end_time)

      auc ^. name,
      auc ^. description,

      [sql| SELECT project_id, initiator_id, created_at, raise_amount, start_time, end_time

      [sql| SELECT project_id, initiator_id, created_at, name, description, raise_amount, start_time, end_time

listAuctions :: ProjectId -> RangeQuery -> Limit -> DBM [Auction]
listAuctions pid rq (Limit limit) =
  case rq of
    (Before e) ->
      pquery
      auctionParser
      [sql| SELECT project_id, initiator_id, created_at, name, description, raise_amount, start_time, end_time
          FROM auctions
          WHERE project_id = ?
          AND end_time < ?
          LIMIT ? |]
      (pid ^. _ProjectId, C.fromThyme e, limit)
    (During s e) ->
      pquery
      auctionParser
      [sql| SELECT project_id, initiator_id, created_at, name, description, raise_amount, start_time, end_time
          FROM auctions
          WHERE project_id = ?
          AND end_time >= ? AND end_time < ?
          LIMIT ? |]
      (pid ^. _ProjectId, C.fromThyme s, C.fromThyme e, limit)
    (After s) ->
      pquery
      auctionParser
      [sql| SELECT project_id, initiator_id, created_at, name, description, raise_amount, start_time, end_time
          FROM auctions
          WHERE project_id = ?
          AND end_time >= ?
          LIMIT ? |]
      (pid ^. _ProjectId, C.fromThyme s, limit)
    Always ->
      pquery
      auctionParser
      [sql| SELECT project_id, initiator_id, created_at, name, description, raise_amount, start_time, end_time
          FROM auctions
          WHERE project_id = ?
          LIMIT ? |]
      (pid ^. _ProjectId, limit)

    Limit(..),

findEvents :: ProjectId -> UserId -> RangeQuery -> Word32 -> DBM [LogEntry]
findEvents (ProjectId pid) (UserId uid) rquery limit = do

findEvents :: ProjectId -> UserId -> RangeQuery -> Limit -> DBM [LogEntry]
findEvents (ProjectId pid) (UserId uid) rquery (Limit limit) = do

    (ListAuctions pid rq l) -> Q.listAuctions pid rq l

data Limit = Limit Word32

  FindEvents :: ProjectId -> UserId -> RangeQuery -> Word32 -> DBOp [LogEntry]

  FindEvents :: ProjectId -> UserId -> RangeQuery -> Limit -> DBOp [LogEntry]

  ListAuctions :: ProjectId -> RangeQuery -> Limit -> DBOp [A.Auction]

  Word32 ->

  Limit ->

listAuctions :: (MonadDB m) =>  UserId -> ProjectId -> RangeQuery -> Limit -> m [A.Auction]
listAuctions uid pid rq l = do
  withProjectAuth pid uid $ ListAuctions pid rq l

Description: (Describe migration here.)
Created: 2021-01-03 16:16:17.234201601 UTC
Depends: 2020-11-25_04-22-24_zcash-support 2016-10-29_20-54-44_auction-timestamps 2016-10-13_05-36-55_user-event-log
Apply: |
  ALTER TABLE auctions ADD COLUMN name text NOT NULL;
  ALTER TABLE auctions ADD COLUMN description text;

auctionListHandler :: S.Handler App App [Auction]
auctionListHandler = do
  uid <- requireUserId
  pid <- requireProjectId
  snapEval $ listAuctions pid uid

      auctionListRoute =
        serveJSON (fmap auctionJSON) $ method GET auctionListHandler