nuttycom/aftok - Change MWUPXTBF2LATVOJLJTXSDFB3OMFGMXDNETWJA3JHUOUBTUJ7WJAAC

A few steps down a road to be abandoned.

Created by Kris Nuttycombe on December 9, 2014

MWUPXTBF2LATVOJLJTXSDFB3OMFGMXDNETWJA3JHUOUBTUJ7WJAAC

Dependencies

In channels

main

Change contents

Replacement in lib/Quixotic/Auction.hs at line 12 [4.5084]
B:BD[4.5214] → [4.5214:5248]
```
newtype AuctionId = AuctionId Int
```
[4.5214]
[4.5248]
```
newtype AuctionId = AuctionId Int deriving (Show, Eq)
```
Insertion in lib/Quixotic/Database/SQLite.hs at line 20 [6.3612]
[5.1307]
[2.143]
```
  _ <- defineTableOpt db True auctionTable
```

Replacement in lib/Quixotic/Database/SQLite.hs at line 37 [6.3612]

B:BD[7.583] → [7.583:633]

    , ("eventTime", formatSqlTime (logTime ev)) ]

[7.583]

[6.4371]

    , ("eventTime", formatSqlTime (logTime ev)) 
    ]

Deletion in lib/Quixotic/Database/SQLite.hs at line 47 [6.3612]
B:BD[3.1296] → [3.1296:1297]

Replacement in lib/Quixotic/Database/SQLite.hs at line 48 [6.3612]

B:BD[3.1361] → [3.1361:1385]

newAuction' = undefined

[3.1361]

[3.1385]

newAuction' a = do
  db <- ask
  _  <- lift . lift $ insertRow db "auctions"
    [ ("raiseAmount", a ^. (raiseAmount . btc))
    , ("eventTime", formatSqlTime $ a ^. endsAt) 
    ]
  lift . lift . (fmap AuctionId) getLastRowID

Replacement in lib/Quixotic/Database/SQLite.hs at line 94 [6.3612]

B:BD[6.4814] → [6.4814:4898]

                                , Column "eventTime" (SQLDateTime DATETIME) [] ] []

[6.4814]

[6.4898]

                                , Column "eventTime" (SQLDateTime DATETIME) [] 
                                ] []

Insertion in lib/Quixotic/Database/SQLite.hs at line 97 [6.3612]

[6.4899]

auctionTable :: SQLTable
auctionTable = Table "auctions" [ Column "raiseAmouont" (SQLInt BIG False False) []
                                , Column "endsAt"       (SQLDateTime DATETIME) [] 
                                ] []