nuttycom/aftok - Change ASF3UPJLCX7KIUCNJD5KAXSPDXCUEJHLL4HBRTRUBPCW73IXOCWQC

Add auction creation and bid handlers

Created by Kris Nuttycombe on May 4, 2016

ASF3UPJLCX7KIUCNJD5KAXSPDXCUEJHLL4HBRTRUBPCW73IXOCWQC

Dependencies

In channels

main

Change contents

Insertion in aftok.cabal at line 117 [5.1]
[3.161]
[4.1178]
```
    , hourglass
```
Deletion in lib/Aftok/Database.hs at line 114 [5.4936]
B:BD[6.554] → [6.554:555]
∅:D[6.555] → [4.5425:5426]
B:BD[4.5425] → [4.5425:5426]

Insertion in lib/Aftok/Database.hs at line 176 [5.4936]

[6.1024]


createBid :: AuctionId -> UserId -> Bid -> DBProg (BidId)
createBid aid uid bid = do
  maybeAuc <- findAuction aid uid
  let createOp = CreateBid aid bid
  fc $ maybe (raiseSubjectNotFound createOp) (const createOp) maybeAuc

Insertion in lib/Aftok/Json.hs at line 90 [8.19]

[7.1693]


projectIdJSON :: ProjectId -> Value
projectIdJSON pid = v1 $
  object [ "projectId" .= tshow (pid ^. _ProjectId) ]

Insertion in lib/Aftok/Json.hs at line 102 [8.19]

[2.539]

auctionIdJSON :: AuctionId -> Value
auctionIdJSON pid = v1 $
  object [ "auctionId" .= tshow (pid ^. _AuctionId) ]

Insertion in lib/Aftok/Json.hs at line 112 [8.19]

[9.1179]

[10.2560]


bidIdJSON :: BidId -> Value
bidIdJSON pid = v1 $
  object [ "bidId" .= tshow (pid ^. _BidId) ]

Insertion in lib/Aftok/Json.hs at line 117 [8.19]
[10.2561]
[7.1695]
Insertion in server/Aftok/Snaplet/Auctions.hs at line 6 [11.2441]
[2.897]
[11.2531]
```
  , auctionBidHandler
```
Insertion in server/Aftok/Snaplet/Auctions.hs at line 13 [11.2441]
[11.2636]
[11.2636]
```
import           Data.Hourglass.Types (Seconds(..))
```

Replacement in server/Aftok/Snaplet/Auctions.hs at line 16 [11.2441]

B:BD[11.2776] → [11.2776:2837]

B:BD[11.2837] → [2.898:963]

import           Aftok.Auction      (AuctionId, Auction(..))
import           Aftok.Database     (createAuction, findAuction)

[11.2724]

[11.2837]

import           Aftok              (UserId)
import           Aftok.Auction      (AuctionId, Auction(..), BidId, Bid(..))
import           Aftok.Database     (createAuction, findAuction, createBid)

Insertion in server/Aftok/Snaplet/Auctions.hs at line 34 [11.2441]

[11.3282]

    _          -> mzero
bidCreateParser :: UserId -> C.UTCTime-> Value -> Parser Bid
bidCreateParser uid t = unv1 "bids" $ \v ->
  case v of
    (Object o) -> Bid uid <$> (Seconds <$> o .: "bidSeconds")
                          <*> (Satoshi <$> o .: "bidAmount")
                          <*> pure t

Replacement in server/Aftok/Snaplet/Auctions.hs at line 57 [11.2441]

B:BD[2.1105] → [2.1105:1150]

  maybeAuc <- snapEval $ findAuction aid uid

[2.1105]

[2.1150]

  maybeAuc <- snapEval $ findAuction aid uid -- this will verify auction access

Insertion in server/Aftok/Snaplet/Auctions.hs at line 59 [11.2441]

[2.1231]


auctionBidHandler :: Handler App App BidId
auctionBidHandler = do
  uid <- requireUserId
  aid <- requireAuctionId
  timestamp <- liftIO C.getCurrentTime
  requestBody <- readRequestJSON 4096
  bid <- either (snapError 400 . tshow) pure $ parseEither (bidCreateParser uid timestamp) requestBody
  snapEval $ createBid aid uid bid

Replacement in server/Main.hs at line 43 [13.5188]
∅:D[12.213] → [4.12580:12647]
∅:D[14.1145] → [4.12580:12647]
B:BD[7.2397] → [4.12580:12647]
```
      projectCreateRoute = void $ method POST projectCreateHandler
```
[12.213]
[4.12647]
```
      projectCreateRoute = serveJSON projectIdJSON $ method POST projectCreateHandler
```

Replacement in server/Main.hs at line 47 [13.5188]

∅:D[4.12819] → [7.2398:2480]

B:BD[7.2398] → [7.2398:2480]

      logEventRoute f    = serveJSON eventIdJSON . method POST $ logWorkHandler f

[4.12819]

[15.3245]

      logEventRoute f    = serveJSON eventIdJSON $ method POST (logWorkHandler f)

Replacement in server/Main.hs at line 53 [13.5188]

B:BD[4.12971] → [11.4163:4230]

      auctionCreateRoute = void $ method POST auctionCreateHandler

[4.12971]

[2.1722]

      auctionCreateRoute = serveJSON auctionIdJSON $ method POST auctionCreateHandler

Insertion in server/Main.hs at line 55 [13.5188]

[2.1802]

[11.4230]

      auctionBidRoute    = serveJSON bidIdJSON $ method POST auctionBidHandler

Insertion in server/Main.hs at line 76 [13.5188]

[2.1864]

[11.4299]

            , ("auctions/:auctionId/bid",      auctionBidRoute)