nuttycom/aftok - Change MXLZBRQNXRIJ4BTAEDSLA4N5PABEG7GMWSM7GS4ACJQ6BE4PVAKQC

Created by Kris Nuttycombe on December 10, 2014

MXLZBRQNXRIJ4BTAEDSLA4N5PABEG7GMWSM7GS4ACJQ6BE4PVAKQC

main

B:BD[2.191] → [2.191:285]

  _  <- lift . lift $ insertRow db "auctions"
    [ ("raiseAmount", a ^. (raiseAmount . btc))

[2.191]

[2.285]

  _  <-  lift . lift $ insertRow db "auctions"
    [ ("raiseAmount", show $ a ^. (raiseAmount . btc))

B:BD[2.341] → [2.341:387]

  lift . lift . (fmap AuctionId) getLastRowID

[2.341]

[4.1385]

  lift . lift . fmap (AuctionId . fromInteger) $ getLastRowID db