A few steps down a road to be abandoned.

Dependencies

• [2] WFZDMVUX Rename ADB -> QDB
• [3] 75N3UJ4J More progression toward lenses.
• [4] 64C6AWH6 Rename Ananke -> Quixotic, project reboot.
• [5] FRPWIKCN Added log event parsing to Quixotic.Database.SQLite
• [6] TZQJVHBA Add auction functions to ADB.
• [7] 64VI73NP Server now compiles using abstracted SQLite
• [8] LAROLAYU WIP
• [9] WO2MINIF Auctions now compile!

Change contents

• replacement in lib/Quixotic/Auction.hs at line 12
  [4.5214]→[4.5214:5248](∅→∅)
  − newtype AuctionId = AuctionId Int
  [4.5214]

  [4.5248]
  + newtype AuctionId = AuctionId Int deriving (Show, Eq)
• edit in lib/Quixotic/Database/SQLite.hs at line 20
  [4.1307]

  [2.143]
  + _ <- defineTableOpt db True auctionTable
• replacement in lib/Quixotic/Database/SQLite.hs at line 37
  [4.583]→[4.583:633](∅→∅)
  − , ("eventTime", formatSqlTime (logTime ev)) ]
  [4.583]

  [4.4371]
  + , ("eventTime", formatSqlTime (logTime ev))

  + ]
• edit in lib/Quixotic/Database/SQLite.hs at line 47
  [3.1296]→[3.1296:1297](∅→∅)
  −
• replacement in lib/Quixotic/Database/SQLite.hs at line 48
  [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
  [4.4814]→[4.4814:4898](∅→∅)
  − , Column "eventTime" (SQLDateTime DATETIME) [] ] []
  [4.4814]

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

  + ] []
• edit in lib/Quixotic/Database/SQLite.hs at line 97
  [4.4899]
  + auctionTable :: SQLTable

  + auctionTable = Table "auctions" [ Column "raiseAmouont" (SQLInt BIG False False) []

  + , Column "endsAt" (SQLDateTime DATETIME) []

  + ] []

  +