nuttycom/aftok - Change 5ZSKPQ3KY6T6O5S6T6HW4OHJMQXA72WKJSJJMGKGX2WMFTNZ7EGAC

Add created_at and auction_start timestamps to auction

Created by Kris Nuttycombe on October 29, 2016

5ZSKPQ3KY6T6O5S6T6HW4OHJMQXA72WKJSJJMGKGX2WMFTNZ7EGAC

Dependencies

In channels

main

Change contents

Replacement in lib/Aftok/Auction.hs at line 21 [4.5084]

B:BD[3.239] → [2.234:291]

∅:D[5.106] → [6.69:102]

∅:D[2.291] → [6.69:102]

B:BD[6.69] → [6.69:102]

B:BD[6.102] → [2.292:320]

∅:D[2.320] → [6.131:164]

B:BD[6.131] → [6.131:164]

B:BD[6.164] → [2.321:351]

  { _projectId   :: ProjectId
  , _initiator   :: UserId
  --, _createdAt    :: C.UTCTime
  , _raiseAmount :: Satoshi
  --, _auctionStart :: C.UTCTime
  , _auctionEnd  :: C.UTCTime

[3.239]

[4.5319]

  { _projectId    :: ProjectId
  , _initiator    :: UserId
  , _createdAt    :: C.UTCTime
  , _raiseAmount  :: Satoshi
  , _auctionStart :: C.UTCTime
  , _auctionEnd   :: C.UTCTime

Insertion in lib/Aftok/Database/PostgreSQL.hs at line 122 [7.456]
[5.177]
[6.275]
```
          <*> fieldWith utcParser
```
Insertion in lib/Aftok/Database/PostgreSQL.hs at line 124 [7.456]
[6.309]
[8.2144]
```
          <*> fieldWith utcParser
```

Replacement in lib/Aftok/Database/PostgreSQL.hs at line 292 [7.456]

B:BD[9.611] → [3.3136:3201]

      "SELECT raise_amount, end_time FROM auctions WHERE id = ?"

[9.611]

[10.3377]

      "SELECT project_id, initiator_id, created_at, raise_amount, start_time, end_time FROM auctions WHERE id = ?"

Replacement in server/Aftok/Snaplet/Auctions.hs at line 27 [6.2441]

B:BD[6.2994] → [6.2994:3076]

data AuctionCreateRequest = CA { raiseAmount :: Word64, auctionEnd :: C.UTCTime }

[6.2994]

[6.3076]

data AuctionCreateRequest = CA { raiseAmount :: Word64, auctionStart :: C.UTCTime , auctionEnd :: C.UTCTime }

Replacement in server/Aftok/Snaplet/Auctions.hs at line 31 [6.2441]

B:BD[11.5226] → [11.5226:5282]

  p o = CA <$> o .: "raiseAmount" <*> o .: "auctionEnd"

[11.5226]

[12.885]

  p o = CA <$> o .: "raiseAmount"
           <*> o .: "auctionStart"
           <*> o .: "auctionEnd"

Replacement in server/Aftok/Snaplet/Auctions.hs at line 47 [6.2441]

B:BD[6.3561] → [6.3561:3594]

B:BD[6.3594] → [5.1029:1121]

  --t <- liftIO C.getCurrentTime
  snapEval . createAuction $ Auction pid uid (Satoshi . raiseAmount $ req) (auctionEnd req)

[6.3561]

[13.987]

  t <- liftIO C.getCurrentTime
  snapEval . createAuction $ 
    Auction pid uid t (Satoshi . raiseAmount $ req) (auctionStart req) (auctionEnd req)