nuttycom/aftok - Change GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC

Create amends endpoint, switch to UUID primary keys

Created by Kris Nuttycombe on May 24, 2015

GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC

Dependencies

In channels

main

Change contents

Insertion in lib/Quixotic/Auction.hs at line 22 [4.5084]
[3.188]
[4.5324]
```
newtype BidId = BidId UUID deriving (Show, Eq)
makePrisms ''BidId
```
Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 8 [5.456]
B:BD[5.713] → [6.4:38]
```
import Data.ByteString.Char8 as B
```
[5.713]
[5.713]
```
import qualified Data.ByteString.Char8 as B
```
Insertion in lib/Quixotic/Database/PostgreSQL.hs at line 10 [5.456]
[5.731]
[5.731]
```
import Data.List as L
```
Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 14 [5.456]
∅:D[7.56] → [5.753:786]
B:BD[5.753] → [5.753:786]
```
import qualified Data.List as DL
```
[7.56]
[5.786]
```
import Data.UUID(UUID)
```
Insertion in lib/Quixotic/Database/PostgreSQL.hs at line 48 [5.456]
[8.224]
[5.1215]
```
eidParser :: FieldParser EventId
eidParser f v = EventId <$> fromField f v
```

Deletion in lib/Quixotic/Database/PostgreSQL.hs at line 72 [5.456]

B:BD[5.1606] → [5.1606:1607]

B:BD[5.1607] → [6.766:872]

∅:D[7.229] → [5.1715:1753]

∅:D[8.303] → [5.1715:1753]

∅:D[6.872] → [5.1715:1753]

∅:D[9.3511] → [5.1715:1753]

B:BD[5.1715] → [5.1715:1753]

B:BD[5.1753] → [6.873:958]

∅:D[6.958] → [5.1829:2289]

B:BD[5.1829] → [5.1829:2289]

B:BD[5.2289] → [10.52:90]

B:BD[10.90] → [11.85:472]

∅:D[11.472] → [10.159:160]

B:BD[10.159] → [10.159:160]

∅:D[10.160] → [5.2289:2338]

B:BD[5.2289] → [5.2289:2338]


workEventParser :: RowParser LogEvent
workEventParser = fieldWith eventTypeParser <*> fieldWith utcParser
logEntryParser :: RowParser LogEntry
logEntryParser  = LogEntry <$> fieldWith btcAddrParser <*> workEventParser <*> field
auctionRowParser :: RowParser Auction
auctionRowParser = Auction <$> fieldWith btcParser <*> field
bidRowParser :: RowParser Bid
bidRowParser = Bid <$> fieldWith uidParser 
                   <*> fieldWith secondsParser 
                   <*> fieldWith btcParser 
                   <*> field
userRowParser :: RowParser User
userRowParser = User <$> fieldWith usernameParser
                     <*> fieldWith btcAddrParser
                     <*> field
qdbUserRowParser :: RowParser QDBUser
qdbUserRowParser = QDBUser <$> fieldWith uidParser 
                           <*> userRowParser
projectRowParser :: RowParser Project
projectRowParser = Project <$> field 
                           <*> field 
                           <*> fieldWith uidParser
qdbProjectRowParser :: RowParser QDBProject
qdbProjectRowParser = QDBProject <$> fieldWith pidParser <*> projectRowParser
-- Local newtypes to permit field serialization

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 84 [5.456]

∅:D[2.224] → [5.2484:2597]

B:BD[5.2484] → [5.2484:2597]

-- Local newtypes to permit row deserialization via
-- typeclass. Wish I could just pass the RowParser instances

[2.224]

[5.2597]

logEntryParser :: RowParser LogEntry
logEntryParser = 
  LogEntry <$> fieldWith btcAddrParser 
           <*> (fieldWith eventTypeParser <*> fieldWith utcParser)
           <*> field

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 90 [5.456]

B:BD[5.2598] → [5.2598:2729]

newtype PLogEntry = PLogEntry { pLogEntry :: LogEntry } 
instance FromRow PLogEntry where
  fromRow = PLogEntry <$> logEntryParser

[5.2598]

[5.2729]

qdbLogEntryParser :: RowParser QDBLogEntry
qdbLogEntryParser = 
  (,,,) <$> fieldWith eidParser 
        <*> fieldWith pidParser
        <*> fieldWith uidParser 
        <*> logEntryParser
  
auctionParser :: RowParser Auction
auctionParser = 
  Auction <$> fieldWith btcParser 
          <*> field

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 102 [5.456]

B:BD[5.2730] → [5.2730:2828]

newtype PBid = PBid { pBid :: Bid }
instance FromRow PBid where
  fromRow = PBid <$> bidRowParser

[5.2730]

[5.2828]

bidParser :: RowParser Bid
bidParser = 
  Bid <$> fieldWith uidParser 
      <*> fieldWith secondsParser 
      <*> fieldWith btcParser 
      <*> field

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 109 [5.456]

B:BD[5.2829] → [5.2829:2934]

newtype PUser = PUser { pUser :: User }
instance FromRow PUser where
  fromRow = PUser <$> userRowParser

[5.2829]

[5.2934]

userParser :: RowParser User
userParser = 
  User <$> fieldWith usernameParser
       <*> fieldWith btcAddrParser
       <*> field

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 115 [5.456]

B:BD[5.2935] → [5.2935:3061]

newtype PAuction = PAuction { pAuction :: Auction }
instance FromRow PAuction where
  fromRow = PAuction <$> auctionRowParser

[5.2935]

[5.3061]

qdbUserParser :: RowParser QDBUser
qdbUserParser = 
  (,) <$> fieldWith uidParser 
      <*> userParser

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 120 [5.456]

B:BD[5.3062] → [10.187:313]

newtype PQDBUser = PQDBUser { pQDBUser :: QDBUser }
instance FromRow PQDBUser where
  fromRow = PQDBUser <$> qdbUserRowParser

[5.3062]

[10.313]

projectParser :: RowParser Project
projectParser = 
  Project <$> field 
          <*> field 
          <*> fieldWith uidParser

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 126 [5.456]

B:BD[10.314] → [12.167:293]

newtype PProject = PProject { pProject :: Project }
instance FromRow PProject where
  fromRow = PProject <$> projectRowParser

[10.314]

[12.293]

qdbProjectParser :: RowParser QDBProject
qdbProjectParser = 
  (,) <$> fieldWith pidParser 
      <*> projectParser

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 131 [5.456]

∅:D[12.294] → [11.473:620]

B:BD[10.314] → [11.473:620]

newtype PQDBProject = PQDBProject { pQDBProject :: QDBProject }
instance FromRow PQDBProject where
  fromRow = PQDBProject <$> qdbProjectRowParser

[12.294]

[11.620]

pexec :: (ToRow d) => Query -> d -> QDBM Int64 
pexec q d = do
  conn <- ask
  lift $ execute conn q d

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 136 [5.456]

B:BD[11.621] → [13.1159:1232]

pquery :: (ToRow d, FromRow r) => Query -> d -> QDBM [r]
pquery q d = do

[11.621]

[5.3172]

pinsert :: (ToRow d) => (UUID -> r) -> Query -> d -> QDBM r 
pinsert f q d = do

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 139 [5.456]
B:BD[5.3186] → [13.1233:1257]
```
  lift $ query conn q d
```
[5.3186]
[13.1257]
```
  ids  <- lift $ query conn q d
  pure . f . fromOnly $ L.head ids
```

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 142 [5.456]

B:BD[13.1258] → [13.1258:1320]

pexec :: (ToRow d) => Query -> d -> QDBM Int64
pexec q d = do

[13.1258]

[13.1320]

pquery :: (ToRow d) => RowParser r -> Query -> d -> QDBM [r]
pquery p q d = do

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 145 [5.456]
B:BD[13.1334] → [13.1334:1361]
```
  lift $ execute conn q d 
```
[13.1334]
[13.1361]
```
  lift $ queryWith p conn q d
```
Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 148 [5.456]
B:BD[12.359] → [12.359:424]
∅:D[12.424] → [13.1489:1510]
∅:D[6.1024] → [13.1489:1510]
B:BD[13.1489] → [13.1489:1510]
```
createEvent' (ProjectId pid) (UserId uid) (LogEntry a e m) = do 
  eventIds <- pquery
```
[12.359]
[13.1510]
```
createEvent' (ProjectId pid) (UserId uid) (LogEntry a e m) = 
  pinsert EventId
```

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 159 [5.456]

B:BD[5.3405] → [13.1667:1714]

  pure . EventId . fromOnly $ DL.head eventIds

[5.3405]


findEvent' :: EventId -> QDBM (Maybe QDBLogEntry)
findEvent' (EventId eid) = do 
  logEntries <- pquery qdbLogEntryParser
    "SELECT id, project_id, user_id, btc_addr, event_type, event_time, event_metadata FROM work_events \
    \WHERE id = ?"
    (Only eid)
  pure $ headMay logEntries

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 170 [5.456]
B:BD[2.374] → [2.374:402]
```
  let q (Before e) = pquery
```
[2.374]
[2.402]
```
  let q p (Before e) = pquery p
```
Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 174 [5.456]
B:BD[2.585] → [2.585:615]
```
      q (During s e) = pquery
```
[2.585]
[2.615]
```
      q p (During s e) = pquery p
```
Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 179 [5.456]
B:BD[2.841] → [2.841:868]
```
      q (After s) = pquery
```
[2.841]
[2.868]
```
      q p (After s) = pquery p
```
Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 183 [5.456]
B:BD[2.1051] → [2.1051:1083]
```
  in  fmap pLogEntry <$> q ival
```
[2.1051]
[2.1083]
```
  in  q logEntryParser ival
```
Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 185 [5.456]
∅:D[2.1084] → [13.1715:1768]
B:BD[5.3406] → [13.1715:1768]
```
amendEvent' :: EventId -> LogModification -> QDBM ()
```
[2.1084]
[13.1768]
```
amendEvent' :: EventId -> EventAmendment -> QDBM AmendmentId
```

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 187 [5.456]

B:BD[13.1815] → [13.1815:1920]

  void $ pexec
    "INSERT INTO event_time_amendments (event_id, mod_time, event_time) VALUES (?, ?, ?)"

[13.1815]

[7.264]

  pinsert AmendmentId
    "INSERT INTO event_time_amendments (event_id, mod_time, event_time) VALUES (?, ?, ?) RETURNING id"

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 192 [5.456]

B:BD[13.2005] → [13.2005:2108]

  void $ pexec
    "INSERT INTO event_addr_amendments (event_id, mod_time, btc_addr) VALUES (?, ?, ?)"

[13.2005]

[7.318]

  pinsert AmendmentId
    "INSERT INTO event_addr_amendments (event_id, mod_time, btc_addr) VALUES (?, ?, ?) RETURNING id"

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 197 [5.456]

B:BD[13.2208] → [13.2208:2315]

B:BD[13.2315] → [7.377:420]

  void $ pexec
    "INSERT INTO event_metadata_amendments (event_id, mod_time, btc_addr) VALUES (?, ?, ?)"
    ( eid, fromThyme $ mt ^. _ModTime, v )

[13.2208]

[13.2346]

  pinsert AmendmentId
    "INSERT INTO event_metadata_amendments (event_id, mod_time, btc_addr) VALUES (?, ?, ?) RETURNING id"
    ( eid, fromThyme $ mt ^. _ModTime, v)

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 203 [5.456]
B:BD[14.626] → [13.2394:2411]
```
  rows <- pquery
```
[14.626]
[2.1085]
```
  logEntries <- pquery logEntryParser
```
Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 206 [5.456]
∅:D[14.762] → [5.3583:3624]
B:BD[5.3583] → [5.3583:3624]
```
  pure . workIndex $ fmap pLogEntry rows
```
[14.762]
[5.3624]
```
  pure $ workIndex logEntries
```

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 209 [5.456]

B:BD[12.482] → [12.482:510]

∅:D[12.510] → [13.2467:2486]

B:BD[14.859] → [13.2467:2486]

∅:D[13.2486] → [14.860:954]

B:BD[5.3748] → [14.860:954]

createAuction' pid auc = do
  aucIds <- pquery
    "INSERT INTO auctions (project_id, raise_amount, end_time) VALUES (?, ?, ?) RETURNING id"

[12.482]

[14.954]

createAuction' pid auc = 
  pinsert AuctionId
    "INSERT INTO auctions (project_id, raise_amount, end_time) \
    \VALUES (?, ?, ?) RETURNING id"

Deletion in lib/Quixotic/Database/PostgreSQL.hs at line 214 [5.456]
∅:D[14.1029] → [5.3881:3928]
B:BD[5.3881] → [5.3881:3928]
```
  pure . AuctionId . fromOnly $ DL.head aucIds
```
Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 217 [5.456]
∅:D[12.585] → [13.2538:2555]
B:BD[5.4020] → [13.2538:2555]
∅:D[13.2555] → [5.4062:4129]
B:BD[5.4062] → [5.4062:4129]
```
  rows <- pquery
    "SELECT raise_amount, end_time FROM auctions WHERE ROWID = ?" 
```
[12.585]
[5.4129]
```
  auctions <- pquery auctionParser
    "SELECT raise_amount, end_time FROM auctions WHERE id = ?" 
```
Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 220 [5.456]
B:BD[5.4162] → [5.4162:4200]
```
  pure . fmap pAuction $ headMay rows
```
[5.4162]
[5.4200]
```
  pure $ headMay auctions
```
Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 222 [5.456]
B:BD[5.4201] → [12.586:628]
```
createBid' :: AuctionId -> Bid -> QDBM ()
```
[5.4201]
[12.628]
```
createBid' :: AuctionId -> Bid -> QDBM BidId
```

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 224 [5.456]

∅:D[12.666] → [13.2599:2614]

B:BD[5.4298] → [13.2599:2614]

∅:D[13.2614] → [15.54:159]

B:BD[5.4341] → [15.54:159]

  void $ pexec
    "INSERT INTO bids (auction_id, bidder_id, bid_seconds, bid_amount, bid_time) values (?, ?, ?, ?, ?)"

[12.666]

[5.4444]

  pinsert BidId
    "INSERT INTO bids (auction_id, bidder_id, bid_seconds, bid_amount, bid_time) \
    \VALUES (?, ?, ?, ?, ?) RETURNING id"

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 235 [5.456]
∅:D[13.2652] → [5.4652:4673]
B:BD[5.4652] → [5.4652:4673]
B:BD[5.4673] → [13.2653:2670]
```
readBids' aucId = do
  rows <- pquery
```
[13.2652]
[5.4715]
```
readBids' aucId = 
  pquery bidParser
```
Deletion in lib/Quixotic/Database/PostgreSQL.hs at line 239 [5.456]
B:BD[5.4837] → [5.4837:4861]
```
  pure $ fmap pBid rows
```
Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 241 [5.456]
∅:D[13.2706] → [10.315:338]
B:BD[5.4914] → [10.315:338]
B:BD[10.338] → [13.2707:2724]
```
createUser' user' = do
  uids <- pquery
```
[13.2706]
[15.160]
```
createUser' user' = 
  pinsert UserId
```
Deletion in lib/Quixotic/Database/PostgreSQL.hs at line 245 [5.456]
∅:D[10.427] → [5.5140:5182]
∅:D[9.3777] → [5.5140:5182]
B:BD[5.5140] → [5.5140:5182]
```
  pure . UserId . fromOnly $ DL.head uids
```
Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 248 [5.456]
B:BD[5.5269] → [13.2767:2785]
```
  users <- pquery
```
[5.5269]
[5.5312]
```
  users <- pquery userParser
```
Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 251 [5.456]
B:BD[5.5388] → [5.5388:5424]
```
  pure . fmap pUser $ headMay users
```
[5.5388]
[5.5424]
```
  pure $ headMay users
```
Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 255 [5.456]
B:BD[10.539] → [13.2843:2861]
```
  users <- pquery
```
[10.539]
[10.582]
```
  users <- pquery qdbUserParser
```
Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 258 [5.456]
B:BD[10.664] → [10.664:703]
```
  pure . fmap pQDBUser $ headMay users
```
[10.664]
[5.5524]
```
  pure $ headMay users
```
Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 263 [5.456]
B:BD[16.41] → [13.2907:2924]
```
  pids <- pquery
```
[16.41]
[11.747]
```
  pid <- pinsert ProjectId
```

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 266 [5.456]

B:BD[16.90] → [16.90:126]

B:BD[16.126] → [13.2925:2940]

∅:D[13.2940] → [16.155:273]

B:BD[16.155] → [16.155:273]

  let pid = fromOnly $ DL.head pids
  void $ pexec
    "INSERT INTO project_companions (project_id, companion_id) VALUES (?, ?)"
    (pid, uid)
  pure . ProjectId $ pid

[16.90]

[12.667]

  void $ pexec 
    "INSERT INTO project_companions (project_id, user_id) VALUES (?, ?)"
    (pid ^. _ProjectId, uid)
  pure pid

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 273 [5.456]
B:BD[12.752] → [12.752:773]
```
  projects <- pquery
```
[12.752]
[12.773]
```
  projects <- pquery projectParser
```
Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 276 [5.456]
B:BD[12.871] → [12.871:913]
```
  pure . fmap pProject $ headMay projects
```
[12.871]
[10.704]
```
  pure $ headMay projects
```
Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 279 [5.456]
∅:D[13.2990] → [11.1030:1066]
B:BD[11.1030] → [11.1030:1066]
B:BD[11.1066] → [13.2991:3011]
```
findUserProjects' (UserId uid) = do
  results <- pquery
```
[13.2990]
[11.1111]
```
findUserProjects' (UserId uid) = 
  pquery qdbProjectParser
```
Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 283 [5.456]
B:BD[16.348] → [16.348:380]
```
    \WHERE pc.companion_id = ?"
```
[16.348]
[16.380]
```
    \WHERE pc.user_id = ?"
```
Deletion in lib/Quixotic/Database/PostgreSQL.hs at line 285 [5.456]
∅:D[16.395] → [11.1334:1368]
B:BD[11.1334] → [11.1334:1368]
```
  pure $ fmap pQDBProject results
```
Insertion in lib/Quixotic/Database/PostgreSQL.hs at line 286 [5.456]
[11.1369]
[13.3012]
Insertion in lib/Quixotic/Database/PostgreSQL.hs at line 291 [5.456]
[13.3066]
[2.1187]
```
  , findEvent = findEvent'
```
Deletion in lib/Quixotic/Database.hs at line 6 [18.4936]
B:BD[17.838] → [5.6556:6576]
```
import Control.Lens
```

Replacement in lib/Quixotic/Database.hs at line 12 [18.4936]

B:BD[18.5045] → [5.6578:6668]

data QDBUser = QDBUser 
  { _userId :: UserId 
  , _user :: User
  }
makeLenses ''QDBUser

[18.5045]

[14.1389]

type QDBUser     = (UserId, User)
type QDBLogEntry = (EventId, ProjectId, UserId, LogEntry)
type QDBProject  = (ProjectId, Project)

Deletion in lib/Quixotic/Database.hs at line 16 [18.4936]
B:BD[14.1390] → [14.1390:1499]
∅:D[14.1499] → [5.6668:6669]
B:BD[5.6668] → [5.6668:6669]
```
data QDBProject = QDBProject
  { _projectId :: ProjectId
  , _project :: Project
  }
makeLenses ''QDBProject
```

Replacement in lib/Quixotic/Database.hs at line 18 [18.4936]

∅:D[12.1145] → [13.3134:3190]

B:BD[13.3134] → [13.3134:3190]

  , amendEvent    :: EventId -> LogModification -> m ()

[12.1145]

[2.1244]

  , amendEvent    :: EventId -> EventAmendment -> m AmendmentId
  , findEvent     :: EventId -> m (Maybe QDBLogEntry)

Replacement in lib/Quixotic/Database.hs at line 25 [18.4936]
B:BD[12.1256] → [12.1256:1302]
```
  , createBid     :: AuctionId -> Bid -> m ()
```
[12.1256]
[14.1598]
```
  , createBid     :: AuctionId -> Bid -> m BidId
```
Deletion in lib/Quixotic/Json.hs at line 27 [19.19]
B:BD[13.3941] → [13.3941:3991]
```
                       , trivialVersion :: Word8 
```

Replacement in lib/Quixotic/Json.hs at line 29 [19.19]

B:BD[19.485] → [13.4043:4176]

printVersion :: Version -> Text
printVersion Version{..} = intercalate "." (fmap tshow [majorVersion, minorVersion, trivialVersion])

[19.485]

[14.2225]

instance Show Version where
  show Version{..} = intercalate "." $ fmap show [majorVersion, minorVersion]

Replacement in lib/Quixotic/Json.hs at line 33 [19.19]

B:BD[13.4211] → [13.4211:4309]

versionParser = Version <$> P.decimal <*> (P.char '.' >> P.decimal) <*> (P.char '.' >> P.decimal)

[13.4211]

[13.4309]

versionParser = Version <$> P.decimal <*> (P.char '.' >> P.decimal)

Deletion in lib/Quixotic/Json.hs at line 35 [19.19]

B:BD[13.4310] → [13.4310:4454]

∅:D[13.4454] → [14.2288:2289]

B:BD[14.2288] → [14.2288:2289]

versioned :: Version -> Value -> Value
versioned ver v = object [ "schemaVersion" .= printVersion ver
                         , "value" .= v ]

Replacement in lib/Quixotic/Json.hs at line 42 [19.19]
B:BD[14.2559] → [20.127:128]
[14.2415]
[13.4828]
```
-- TODO: Include source location information, and implement quote patterns.
```

Insertion in lib/Quixotic/Json.hs at line 47 [19.19]

[13.4995]

[20.186]


versioned :: Version -> Value -> Value
versioned ver v = object [ "schemaVersion" .= tshow ver
                         , "value" .= v ]

Insertion in lib/Quixotic/Json.hs at line 52 [19.19]

[20.187]

[13.4996]

{-| 
 - Convenience function to allow dispatch of different serialized
 - versions to different parsers.
 -}

Replacement in lib/Quixotic/Json.hs at line 58 [19.19]

B:BD[13.5089] → [13.5089:5265]

  vers <- v .: "schemaVersion"
  vers' <- either (\_ -> mzero) pure $ P.parseOnly versionParser (encodeUtf8 vers)
  value <- v .: "value"
  f vers' value
unversion _ _ = mzero

[13.5089]

[19.485]

  verstr   <- v .: "schemaVersion"
  vers  <- either fail pure $ P.parseOnly versionParser (encodeUtf8 verstr)
  v .: "value" >>= f vers
unversion _ x = 
  fail $ show x <> " did not contain the expected version information."
--------------
-- Versions --
--------------
v1 :: Value -> Value
v1 = versioned $ Version 1 0
unv1 :: String -> (Value -> Parser a) -> Value -> Parser a
unv1 name f v =
  let p (Version 1 0) = f 
      p ver = const . fail $ "Unrecognized " <> name <> " schema version: " <> show ver
  in  unversion p v
-----------------
-- Serializers --
-----------------

Replacement in lib/Quixotic/Json.hs at line 83 [19.19]

B:BD[12.1552] → [12.1552:1573]

B:BD[12.1573] → [2.1663:1728]

∅:D[2.1728] → [12.1630:1682]

B:BD[12.1630] → [12.1630:1682]

qdbProjectJSON qp = 
  object [ "projectId" .= (tshow $ qp ^. (projectId._ProjectId))
         , "project" .= projectJSON (qp ^. project)

[12.1552]

[12.1682]

qdbProjectJSON (projectId, project) = v1 $
  object [ "projectId" .=  (tshow $ projectId ^. _ProjectId)
         , "project" .= projectJSON project

Replacement in lib/Quixotic/Json.hs at line 89 [19.19]
B:BD[13.5298] → [13.5298:5315]
```
projectJSON p = 
```
[13.5298]
[13.5315]
```
projectJSON p = v1 $
```

Replacement in lib/Quixotic/Json.hs at line 95 [19.19]

B:BD[12.1727] → [12.1727:1904]

payoutsJSON (Payouts m) = toJSON $ MS.mapKeys (^. _BtcAddr) m
parsePayoutsJSON :: Value -> Parser Payouts
parsePayoutsJSON v = 
  Payouts . MS.mapKeys BtcAddr <$> parseJSON v

[12.1727]

[12.1904]

payoutsJSON (Payouts m) = v1 $
  toJSON $ MS.mapKeys (^. _BtcAddr) m

Replacement in lib/Quixotic/Json.hs at line 99 [19.19]
B:BD[12.1941] → [12.1941:1975]
```
workIndexJSON (WorkIndex widx) = 
```
[12.1941]
[12.1975]
```
workIndexJSON (WorkIndex widx) = v1 $
```

Replacement in lib/Quixotic/Json.hs at line 103 [19.19]

B:BD[12.2094] → [12.2094:2133]

eventIdJSON (EventId eid) = toJSON eid

[12.2094]

[2.1798]

eventIdJSON (EventId eid) = v1 $
  object [ "eventId" .= tshow eid ]

Replacement in lib/Quixotic/Json.hs at line 107 [19.19]
B:BD[2.1833] → [2.1833:1867]
```
logEntryJSON (LogEntry a ev m) = 
```
[2.1833]
[2.1867]
```
logEntryJSON (LogEntry a ev m) = v1 $
```

Insertion in lib/Quixotic/Json.hs at line 113 [19.19]

[2.2031]

[12.2133]


amendmentIdJSON :: AmendmentId -> Value
amendmentIdJSON (AmendmentId aid) = v1 $
  object [ "amendmentId" .= tshow aid ]
-------------
-- Parsers --
-------------

Insertion in lib/Quixotic/Json.hs at line 122 [19.19]

[12.2134]

parsePayoutsJSON :: Value -> Parser Payouts
parsePayoutsJSON = unv1 "payouts" $ \v ->
  Payouts . MS.mapKeys BtcAddr <$> parseJSON v 
parseEventAmendment :: ModTime -> Value -> Parser EventAmendment
parseEventAmendment t = 
  let parseA x "timeChange" = TimeChange t <$> x .: "eventTime"
      parseA x "addrChage"  = do
        addrText <- x .: "btcAddr" 
        maybe 
          (fail $ (show addrText) <> "is not a valid BTC address") 
          (pure . AddressChange t) 
          $ parseBtcAddr addrText
      parseA x "metadataChange" = 
        MetadataChange t <$> x .: "eventMeta"
      parseA _ other = 
        fail $ "Amendment value " <> other <> " not recognized."
      p (Object x) = x .: "amendment" >>= parseA x
      p x = fail $ "Value " <> show x <> " missing 'amendment' field."
  in unv1 "amendment" p

Replacement in lib/Quixotic/TimeLog.hs at line 13 [21.846]
B:BD[13.5584] → [13.5584:5608]
```
  , LogModification(..)
```
[13.5584]
[18.5326]
```
  , EventAmendment(..)
  , AmendmentId(AmendmentId), _AmendmentId
```
Insertion in lib/Quixotic/TimeLog.hs at line 27 [21.846]
[7.808]
[22.41]
```
import Data.Foldable as F
```
Deletion in lib/Quixotic/TimeLog.hs at line 30 [21.846]
∅:D[22.94] → [23.65:91]
∅:D[24.119] → [23.65:91]
∅:D[25.225] → [23.65:91]
∅:D[7.808] → [23.65:91]
∅:D[9.3878] → [23.65:91]
∅:D[13.5660] → [23.65:91]
B:BD[26.1808] → [23.65:91]
```
import Data.Foldable as F
```
Insertion in lib/Quixotic/TimeLog.hs at line 33 [21.846]
[7.838]
[7.838]
```
import Data.UUID
```
Replacement in lib/Quixotic/TimeLog.hs at line 71 [21.846]
B:BD[21.1725] → [13.5683:5735]
```
newtype EventId = EventId Int64 deriving (Show, Eq)
```
[21.1725]
[13.5735]
```
newtype EventId = EventId UUID deriving (Show, Eq)
```

Replacement in lib/Quixotic/TimeLog.hs at line 77 [21.846]

B:BD[13.5813] → [7.929:981]

∅:D[7.981] → [13.5863:5970]

B:BD[13.5863] → [13.5863:5970]

data LogModification = TimeChange ModTime C.UTCTime
                     | AddressChange ModTime BtcAddr
                     | MetadataChange ModTime A.Value

[13.5813]

[13.5970]

data EventAmendment = TimeChange ModTime C.UTCTime
                    | AddressChange ModTime BtcAddr
                    | MetadataChange ModTime A.Value
newtype AmendmentId = AmendmentId UUID deriving (Show, Eq)
makePrisms ''AmendmentId

Replacement in lib/Quixotic.hs at line 50 [21.2457]

B:BD[14.3400] → [14.3400:3442]

newtype InvitationId = InvitationId Int64

[14.3400]

[14.3442]

newtype InvitationId = InvitationId UUID deriving (Show, Eq)

Insertion in payouts/Main.hs at line 12 [27.1503]
[27.1745]
[28.810]
```
import System.IO(FilePath)
```
Replacement in payouts/Main.hs at line 37 [27.1503]
B:BD[27.2108] → [29.478:516]
```
loadConfig :: FilePath -> IO QPConfig
```
[27.2108]
[29.516]
```
loadConfig :: System.IO.FilePath -> IO QPConfig
```
Insertion in quixotic.cabal at line 53 [18.1]
[22.1528]
[2.2997]
```
    , semigroupoids
```
Replacement in quixotic.cabal at line 58 [18.1]
B:BD[2.3113] → [2.3113:3149]
```
    , uuid                >= 1.3.10
```
[2.3113]
[7.2887]
```
    , uuid                >= 1.3
```

Insertion in quixotic.cabal at line 101 [18.1]

[30.1277]

[31.487]

    , aeson
    , attoparsec
    , base64-bytestring

Deletion in quixotic.cabal at line 106 [18.1]
∅:D[30.1319] → [32.119:131]
B:BD[32.119] → [32.119:131]
```
    , aeson
```
Insertion in quixotic.cabal at line 107 [18.1]
[32.148]
[32.148]
```
    , configurator              
```
Deletion in quixotic.cabal at line 110 [18.1]
∅:D[2.3169] → [32.161:209]
B:BD[32.161] → [32.161:209]
```
    , mtl                       >= 2     && < 3
```
Replacement in quixotic.cabal at line 111 [18.1]
B:BD[33.52] → [33.52:72]
∅:D[33.72] → [32.222:233]
B:BD[32.222] → [32.222:233]
B:BD[32.233] → [7.2965:2977]
∅:D[7.2977] → [33.73:92]
B:BD[32.244] → [33.73:92]
```
    , sqlite-simple
    , text
    , thyme
    , transformers
```
[33.52]
[32.244]
```
    , mtl                       >= 2     && < 3
```
Deletion in quixotic.cabal at line 113 [18.1]
B:BD[32.294] → [27.3150:3183]
```
    , configurator              
```
Insertion in quixotic.cabal at line 115 [18.1]
[5.7376]
[5.7376]
```
    , resource-pool-catchio
```

Replacement in quixotic.cabal at line 120 [18.1]

B:BD[5.7467] → [31.505:546]

∅:D[31.546] → [5.7467:7495]

B:BD[5.7467] → [5.7467:7495]

    , attoparsec
    , base64-bytestring
    , resource-pool-catchio

[5.7467]

[27.3217]

    , text
    , thyme
    , transformers
    , uuid                >= 1.3

Replacement in scripts/log_end.sh at line 1 [16.532]

B:BD[16.532] → [16.533:652]

curl -v -u "nuttycom:kjntest" -X POST -d '' http://localhost:8000/projects/1/logEnd/1KamUn1BaRMd2HwikyQWGTdUvfPScg9QA5

[16.532]

curl -v -u "nuttycom:kjntest" -X POST -d '' http://localhost:8000/projects/6f4cba6f-02ec-4cc3-9241-00609d6a6f6a/logEnd/1KamUn1BaRMd2HwikyQWGTdUvfPScg9QA5

Replacement in scripts/log_start.sh at line 1 [16.689]

B:BD[16.689] → [16.690:811]

curl -v -u "nuttycom:kjntest" -X POST -d '' http://localhost:8000/projects/1/logStart/1KamUn1BaRMd2HwikyQWGTdUvfPScg9QA5

[16.689]

curl -v -u "nuttycom:kjntest" -X POST -d '' http://localhost:8000/projects/6f4cba6f-02ec-4cc3-9241-00609d6a6f6a/logStart/1KamUn1BaRMd2HwikyQWGTdUvfPScg9QA5

Insertion in server/Main.hs at line 11 [34.5188]
[20.626]
[19.918]
```
import System.IO(FilePath)
```
Replacement in server/Main.hs at line 33 [34.5188]
B:BD[35.383] → [5.7875:7903]
```
  , authSiteKey :: FilePath
```
[35.383]
[5.7903]
```
  , authSiteKey :: System.IO.FilePath
```

Replacement in server/Main.hs at line 60 [34.5188]

B:BD[2.3333] → [2.3333:3485]

      logIntervalsRoute  = serveJSON workIndexJSON $ method GET loggedIntervalsHandler
      --amendEventRoute    = void $ method PUT amendEventHandler

[2.3333]

[12.2569]

      logIntervalsRoute  = serveJSON workIndexJSON   $ method GET loggedIntervalsHandler
      amendEventRoute    = serveJSON amendmentIdJSON $ method PUT amendEventHandler

Replacement in server/Main.hs at line 71 [34.5188]

B:BD[12.2968] → [2.3486:3549]

            --, ("events/:eventId/amend", amendEventHandler),

[12.2968]

            , ("events/:eventId/amend", amendEventRoute)

Replacement in server/Main.hs at line 83 [34.5188]
∅:D[5.9051] → [35.431:469]
B:BD[36.315] → [35.431:469]
```
loadQConfig :: FilePath -> IO QConfig
```
[5.9051]
[35.469]
```
loadQConfig :: System.IO.FilePath -> IO QConfig
```
Replacement in server/Quixotic/Snaplet/Auth.hs at line 39 [37.203]
B:BD[37.2128] → [37.2128:2161]
```
    Just u -> pure (u ^. userId)
```
[37.2128]
[37.2161]
```
    Just u -> pure (u ^. _1)
```
Replacement in server/Quixotic/Snaplet/Auth.hs at line 50 [37.203]
B:BD[15.2181] → [15.2181:2233]
```
      if any (\p -> p ^. projectId == pid) projects
```
[15.2181]
[2.4135]
```
      if any (\p -> p ^. _1 == pid) projects
```
Insertion in server/Quixotic/Snaplet/WorkLog.hs at line 8 [31.5424]
[31.5625]
[7.2995]
```
import Data.Aeson.Types
import Data.UUID as U
```
Insertion in server/Quixotic/Snaplet/WorkLog.hs at line 15 [31.5424]
[2.4678]
[31.5704]
```
import Quixotic.Json
```
Insertion in server/Quixotic/Snaplet/WorkLog.hs at line 26 [31.5424]
[31.5831]
[6.3150]
```
-- TODO: ignore "duplicate" events within some small time limit?
```

Deletion in server/Quixotic/Snaplet/WorkLog.hs at line 34 [31.5424]

B:BD[7.3064] → [6.3247:3324]

B:BD[6.3324] → [2.4747:4818]

  let logEntry addr = LogEntry addr (evCtr timestamp) (A.decode requestBody)
      storeEv addr  = runReaderT . createEvent pid uid $ logEntry addr

Replacement in server/Quixotic/Snaplet/WorkLog.hs at line 36 [31.5424]

B:BD[31.6308] → [31.6308:6347]

    Just addr -> liftPG $ storeEv addr

[31.6308]

[31.6347]

    Just addr -> 
      let logEntry a = LogEntry a (evCtr timestamp) (A.decode requestBody)
          storeEv  a = runReaderT . createEvent pid uid $ logEntry a
      in  liftPG $ storeEv addr

Replacement in server/Quixotic/Snaplet/WorkLog.hs at line 56 [31.5424]

B:BD[2.5224] → [2.5224:5337]

    (Nothing, Nothing) -> snapError 400 $ "You must at least one of the \"after\" or \"before\" query parameter"

[2.5224]

[2.5337]

    (Nothing, Nothing) -> snapError 400 "You must at least one of the \"after\" or \"before\" query parameter"

Replacement in server/Quixotic/Snaplet/WorkLog.hs at line 62 [31.5424]

B:BD[31.6744] → [2.5387:5426]

∅:D[2.5426] → [37.3730:3780]

B:BD[37.3730] → [37.3730:3780]

  pid <- fmap snd requireProjectAccess
  widx <- liftPG . runReaderT $ readWorkIndex pid

[31.6744]

[7.3065]

  pid   <- fmap snd requireProjectAccess
  widx  <- liftPG . runReaderT $ readWorkIndex pid

Replacement in server/Quixotic/Snaplet/WorkLog.hs at line 67 [31.5424]

B:BD[37.3782] → [2.5427:5479]

-- amendEventHandler :: Handler App App AmendmentId

[37.3782]

[2.5479]

amendEventHandler :: Handler App App AmendmentId
amendEventHandler = do
  QDB{..} <- view qdb <$> with qm get
  (uid, _) <- requireProjectAccess
  eventIdBytes <- getParam "eventId"
  eventId <- maybe 
    (snapError 400 "eventId parameter is required") 
    (pure . EventId) 
    (eventIdBytes >>= U.fromASCIIBytes)

Insertion in server/Quixotic/Snaplet/WorkLog.hs at line 77 [31.5424]

[2.5480]

  ev <- liftPG . runReaderT $ findEvent eventId
  (_, _, uid', _) <- maybe (snapError 404 ("Event not found for id " <> tshow eventId)) pure ev
  modTime <- ModTime <$> liftIO C.getCurrentTime
  requestJSON <- readRequestJSON 4096
  if uid' == uid
    then either 
      (snapError 400 . pack)
      (liftPG . runReaderT . amendEvent eventId)
      (parseEither (parseEventAmendment modTime) requestJSON)
    else
      (snapError 403 "You do not have permission to view this event.")

Insertion in server/Quixotic/Snaplet.hs at line 10 [31.1088]
[31.1290]
[31.1290]
```
import qualified Data.Aeson as A
```

Insertion in server/Quixotic/Snaplet.hs at line 56 [31.1088]

[31.3199]

[37.3903]


readRequestJSON :: MonadSnap m => Int64 -> m A.Value
readRequestJSON i = do
  requestBody <- A.decode <$> readRequestBody i
  maybe (snapError 400 "Could not interpret request body as a nonempty JSON value.") pure requestBody

Insertion in sql/quixotic-pg.sql at line 1 [21.3144]
[21.3144]
[21.3145]
```
create extension "uuid-ossp";
```
Replacement in sql/quixotic-pg.sql at line 4 [21.3144]
B:BD[21.3166] → [15.3832:3857]
```
  id serial primary key,
```
[21.3166]
[15.3857]
```
  id uuid primary key default uuid_generate_v4(),
```
Replacement in sql/quixotic-pg.sql at line 11 [21.3144]
B:BD[15.3959] → [15.3959:3984]
```
  id serial primary key,
```
[15.3959]
[15.3984]
```
  id uuid primary key default uuid_generate_v4(),
```
Replacement in sql/quixotic-pg.sql at line 14 [21.3144]
∅:D[16.1620] → [15.4069:4123]
B:BD[15.4069] → [15.4069:4123]
```
  initiator_id integer references users (id) not null
```
[16.1620]
[16.1621]
```
  initiator_id uuid references users (id) not null
```

Replacement in sql/quixotic-pg.sql at line 18 [21.3144]

B:BD[16.1659] → [16.1659:1767]

  project_id integer references projects(id) not null,
  companion_id integer references users(id) not null

[16.1659]

[21.3201]

  project_id uuid references projects(id) not null,
  companion_id uuid references users(id) not null

Replacement in sql/quixotic-pg.sql at line 25 [21.3144]

∅:D[15.4209] → [21.3234:3259]

B:BD[21.3234] → [21.3234:3259]

B:BD[21.3259] → [15.4210:4314]

  id serial primary key,
  project_id integer references projects(id) not null,
  user_id integer references users(id) not null,

[15.4209]

[15.4314]

  id uuid primary key default uuid_generate_v4(),
  project_id uuid references projects(id) not null,
  user_id uuid references users(id) not null,

Replacement in sql/quixotic-pg.sql at line 35 [21.3144]

B:BD[15.4449] → [15.4449:4584]

  id serial primary key,
  project_id integer references projects(id) not null,
  initiator_id integer references users (id) not null,

[15.4449]

[15.4584]

  id uuid primary key default uuid_generate_v4(),
  project_id uuid references projects(id) not null,
  initiator_id uuid references users (id) not null,

Replacement in sql/quixotic-pg.sql at line 43 [21.3144]

∅:D[15.4689] → [21.3442:3467]

B:BD[21.3442] → [21.3442:3467]

B:BD[21.3467] → [15.4690:4798]

  id serial primary key,
  auction_id integer references projects (id) not null,
  bidder_id integer references users (id) not null,

[15.4689]

[15.4798]

  id uuid primary key default uuid_generate_v4(),
  auction_id uuid references projects (id) not null,
  bidder_id uuid references users (id) not null,

Create amends endpoint, switch to UUID primary keys

Dependencies

In channels

Change contents

Insertion in lib/Quixotic/Auction.hs at line 22 [4.5084]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 8 [5.456]

Insertion in lib/Quixotic/Database/PostgreSQL.hs at line 10 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 14 [5.456]

Insertion in lib/Quixotic/Database/PostgreSQL.hs at line 48 [5.456]

Deletion in lib/Quixotic/Database/PostgreSQL.hs at line 72 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 84 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 90 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 102 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 109 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 115 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 120 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 126 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 131 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 136 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 139 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 142 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 145 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 148 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 159 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 170 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 174 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 179 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 183 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 185 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 187 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 192 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 197 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 203 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 206 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 209 [5.456]

Deletion in lib/Quixotic/Database/PostgreSQL.hs at line 214 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 217 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 220 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 222 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 224 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 235 [5.456]

Deletion in lib/Quixotic/Database/PostgreSQL.hs at line 239 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 241 [5.456]

Deletion in lib/Quixotic/Database/PostgreSQL.hs at line 245 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 248 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 251 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 255 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 258 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 263 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 266 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 273 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 276 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 279 [5.456]

Replacement in lib/Quixotic/Database/PostgreSQL.hs at line 283 [5.456]

Deletion in lib/Quixotic/Database/PostgreSQL.hs at line 285 [5.456]

Insertion in lib/Quixotic/Database/PostgreSQL.hs at line 286 [5.456]

Insertion in lib/Quixotic/Database/PostgreSQL.hs at line 291 [5.456]

Deletion in lib/Quixotic/Database.hs at line 6 [18.4936]

Replacement in lib/Quixotic/Database.hs at line 12 [18.4936]

Deletion in lib/Quixotic/Database.hs at line 16 [18.4936]

Replacement in lib/Quixotic/Database.hs at line 18 [18.4936]

Replacement in lib/Quixotic/Database.hs at line 25 [18.4936]

Deletion in lib/Quixotic/Json.hs at line 27 [19.19]

Replacement in lib/Quixotic/Json.hs at line 29 [19.19]

Replacement in lib/Quixotic/Json.hs at line 33 [19.19]

Deletion in lib/Quixotic/Json.hs at line 35 [19.19]

Replacement in lib/Quixotic/Json.hs at line 42 [19.19]

Insertion in lib/Quixotic/Json.hs at line 47 [19.19]

Insertion in lib/Quixotic/Json.hs at line 52 [19.19]

Replacement in lib/Quixotic/Json.hs at line 58 [19.19]

Replacement in lib/Quixotic/Json.hs at line 83 [19.19]

Replacement in lib/Quixotic/Json.hs at line 89 [19.19]

Replacement in lib/Quixotic/Json.hs at line 95 [19.19]

Replacement in lib/Quixotic/Json.hs at line 99 [19.19]

Replacement in lib/Quixotic/Json.hs at line 103 [19.19]

Replacement in lib/Quixotic/Json.hs at line 107 [19.19]

Insertion in lib/Quixotic/Json.hs at line 113 [19.19]

Insertion in lib/Quixotic/Json.hs at line 122 [19.19]

Replacement in lib/Quixotic/TimeLog.hs at line 13 [21.846]

Insertion in lib/Quixotic/TimeLog.hs at line 27 [21.846]