nuttycom/aftok - Change LUM4VQJIHJKQWWD5NVWTVSNPKQTMGQQICTFOTM6W4BMME2G3G5RQC

Increment.

Created by Kris Nuttycombe on December 11, 2014

LUM4VQJIHJKQWWD5NVWTVSNPKQTMGQQICTFOTM6W4BMME2G3G5RQC

Dependencies

In channels

main

Change contents

Replacement in lib/Quixotic/Database/SQLite.hs at line 43 [5.3612]

∅:D[3.733] → [4.1370:1467]

B:BD[5.4455] → [4.1370:1467]

B:BD[4.1467] → [3.734:783]

∅:D[6.345] → [7.35:96]

∅:D[3.783] → [7.35:96]

B:BD[4.1511] → [7.35:96]

  let baseResult = EitherT $ execStatement db "SELECT btcAddr, event, eventTime from workEvents"
  rows <- lift $ bimapEitherT pack id baseResult
  return . intervals . catMaybes $ fmap parseRow (join rows)

[3.733]

[8.1295]

  let selection = execStatement db "SELECT btcAddr, event, eventTime from workEvents" 
  rows <- lift . EitherT $ fmap (over _Left pack) selection
  return . intervals . catMaybes $ fmap parseLogEntry (join rows)

Replacement in lib/Quixotic/Database/SQLite.hs at line 47 [5.3612]

B:BD[8.1297] → [8.1297:1361]

newAuction' :: Auction -> ReaderT a (EitherT Text IO) AuctionId

[8.1296]

[2.160]

newAuction' :: Auction -> ReaderT SQLiteHandle (EitherT Text IO) AuctionId

Replacement in lib/Quixotic/Database/SQLite.hs at line 57 [5.3612]

B:BD[8.1451] → [8.1451:1476]

readAuction' = undefined

[8.1451]

[8.1476]

readAuction' (AuctionId aid) = do
  db <- ask
  let selection = execParamStatement db 
                  "SELECT raiseAmount, endsAt FROM auctions WHERE ROWID = :aid" 
                  [("aid", Int aid)]
  rows <- lift . EitherT $ fmap (over _Left pack) selection

Replacement in lib/Quixotic/Database/SQLite.hs at line 74 [5.3612]

B:BD[5.4556] → [7.97:155]

parseRow :: Row Value -> Maybe LogEntry
parseRow row = do

[5.4556]

[7.155]

parseLogEntry :: Row Value -> Maybe LogEntry
parseLogEntry row = do

Insertion in lib/Quixotic/Database/SQLite.hs at line 81 [5.3612]

[7.313]

parseAuction :: Row Value -> Maybe Auction
parseAuction row = 
  Auction <$> (lookup "raiseAmount" row >>= valueBTC)
          <*> (lookup "endsAt" row >>= valueTime)
valueBTC :: Value -> Maybe BTC
valueBTC (Int i) _ = Just $ BTC i
valueBTC _ = Nothing

Replacement in lib/Quixotic/Database/SQLite.hs at line 107 [5.3612]

B:BD[5.4669] → [5.4669:4814]

B:BD[5.4814] → [2.388:505]

eventTable = Table "workEvents" [ Column "btcAddr"   (SQLVarChar 256) []
                                , Column "event"     (SQLVarChar 64) []
                                , Column "eventTime" (SQLDateTime DATETIME) [] 
                                ] []

[5.4669]

[5.4898]

eventTable = Table "workEvents" 
  [ Column "btcAddr"   (SQLVarChar 256) []
  , Column "event"     (SQLVarChar 64) []
  , Column "eventTime" (SQLDateTime DATETIME) [] 
  ] []

Replacement in lib/Quixotic/Database/SQLite.hs at line 114 [5.3612]

B:BD[2.531] → [2.531:735]

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

[2.531]

[2.735]

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

Replacement in lib/Quixotic.hs at line 14 [9.2457]

B:BD[9.2662] → [8.1933:1996]

newtype BTC = BTC { _btc :: Integer } deriving (Show, Eq, Ord)

[9.2662]

[8.1996]

newtype BTC = BTC { _btc :: Int64 } deriving (Show, Eq, Ord)