{"header":{"message":"Work in progress replacing sqlite with postgres.","description":null,"timestamp":"2015-01-20T15:29:34Z","authors":[{"email":"kris.nuttycombe@gmail.com","name":"Kris Nuttycombe"}]},"hash":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","authors":[],"deps":{"hashes":[["IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","Work in progress replacing sqlite with postgres."],["AA",null],["JKMHA2QGDSVHD4DKDYQUYNJJ3LUQCOPOWEC3543BDWDXLYIBBZXQC","SQLite support is now relatively sane."],["NJZ3DKZYZTAEHPAEXS3XFWIPCJFR3D4642UQMGQABVFGNKQUEQVAC","THEY CAN TALK!"],["MK7ODWHUEPOMAEVK5D3OWW25QRAXKDO4ZVJKNZGWKB5434MP2LNAC","Some minor renaming."],["NTPC7KJEAPA34SBIA74FVQSJXYNW32RIUQTHUSUTKMEUCPLUIBJAC","Trivial changes, feature scratchpad."],["EMVTF2IWNQGRL44FC4JNG5FYYQTZSFPNM6SOM7IAEH6T7PPK2NVAC","WIP moving back to snap."],["NVOCQVASZWTKQJG7GPH7KHKZZR7NUG4WLV5YY4KAIRPCJRWCZPIAC","Initial failing tests."],["Z3M53KTLZMPOISMHE25SZJSWX5TA37IV33IRE7KNRAD3PKEAEJXQC","Adrift."],["7XN3I3QJHYMKU2DCUXX34WQMSJ4ZJOWW7FME34EANO3E5W4Q632AC","Add 'loggedIntervals' endpoint."],["MWUPXTBF2LATVOJLJTXSDFB3OMFGMXDNETWJA3JHUOUBTUJ7WJAAC","A few steps down a road to be abandoned."],["WO2MINIF4TXOHWSE7JWXRZYN64XRVLYIRFMF4SMPSOXKA2V77KMQC","Auctions now compile!"],["WZUHEZSBRKHQMNWDKVG4X6DDIQEAXTGI6IGAJ5ERPRQ3W2KUMX4QC","Start of migration back toward snap."],["LAROLAYUGJ4Q5AEFV5EJMIA2ZKBNCBWHHHPCJ3CKCNIUIYUKRFVQC","WIP"],["5W5M56VJFJEBXMGBVKGCKPHOEMVTKUOQMLPJP7VNDQLTYNJXXLHQC","Move library code to 'lib'"],["LUM4VQJIHJKQWWD5NVWTVSNPKQTMGQQICTFOTM6W4BMME2G3G5RQC","Increment."],["GKGVYBZGPJXO7N7GLHLRNYQPXFHBQSNQN53OKRFCXLQEYDTC5I4QC","Added JSON serialization to TimeLog"],["TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC","Lenses, sqlite-simple"],["W35DDBFYF6Z4ZPCFEO5RPAONZLYCSNTXUSTS6FIUUVZHCI6Q7GHAC","Factor common JSON conversions up into client lib module."],["TZQJVHBAMDNWDBYCDE3SDVGBG2T5FOE3J5JAD6NENRW36XBHUUFQC","Add auction functions to ADB."],["7DBNV3GV773FH5ZLQWFX4RBOS4Q3CIK2RYZNNABY3ZOETYZCXRNQC","Initial, stack-based impl of time log event reduction."],["75N3UJ4JK56KXF56GASGPAWLFYGJDETVJNYTF4KXFCQM767JUU5AC","More progression toward lenses."],["WFZDMVUXZ2KPTMRAZGEYHKEJTKOKWVYCXKKAKQ7K6I5TMSLBUJ4QC","Rename ADB -> QDB"],["ADMKQQGCGVSHHIMVQ4XFRDCG544SBJCYALSKZV45CQQBZ4ACUH2AC","Initial empty Snap project."],["2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC","Switch to more modern cabal2nix-based workflow."],["FRPWIKCNGK6PM6VCKEHEUG5A2LWL7WFN66L4CPQ7DLN4WAS3TIZQC","Added log event parsing to Quixotic.Database.SQLite"],["64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","Rename Ananke -> Quixotic, project reboot."],["TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC","Completed conversion to snap."],["RSEB2NFGUBTFESE5BJKDUVQL5Y5ZVGY5O4CJX2LNP63MS3NRHHZQC","Replacing Snap with Scotty."],["64VI73NPSFNWTL6UXM6YHRFLNJZ3NUJ2R3CL53MO2HSZWFGBIRTQC","Server now compiles using abstracted SQLite"],["OBFPJS2GHO2PEHBHGEHKIUOUAFIQHPIZXEVD2YIE3ZIE2PVMH5VAC","Project successfully builds and tests under nix."]],"deps":["JKMHA2QGDSVHD4DKDYQUYNJJ3LUQCOPOWEC3543BDWDXLYIBBZXQC","NJZ3DKZYZTAEHPAEXS3XFWIPCJFR3D4642UQMGQABVFGNKQUEQVAC","MK7ODWHUEPOMAEVK5D3OWW25QRAXKDO4ZVJKNZGWKB5434MP2LNAC"],"known":["ADMKQQGCGVSHHIMVQ4XFRDCG544SBJCYALSKZV45CQQBZ4ACUH2AC","NVOCQVASZWTKQJG7GPH7KHKZZR7NUG4WLV5YY4KAIRPCJRWCZPIAC","7DBNV3GV773FH5ZLQWFX4RBOS4Q3CIK2RYZNNABY3ZOETYZCXRNQC","GKGVYBZGPJXO7N7GLHLRNYQPXFHBQSNQN53OKRFCXLQEYDTC5I4QC","RSEB2NFGUBTFESE5BJKDUVQL5Y5ZVGY5O4CJX2LNP63MS3NRHHZQC","64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","64VI73NPSFNWTL6UXM6YHRFLNJZ3NUJ2R3CL53MO2HSZWFGBIRTQC","FRPWIKCNGK6PM6VCKEHEUG5A2LWL7WFN66L4CPQ7DLN4WAS3TIZQC","Z3M53KTLZMPOISMHE25SZJSWX5TA37IV33IRE7KNRAD3PKEAEJXQC","NTPC7KJEAPA34SBIA74FVQSJXYNW32RIUQTHUSUTKMEUCPLUIBJAC","5W5M56VJFJEBXMGBVKGCKPHOEMVTKUOQMLPJP7VNDQLTYNJXXLHQC","WZUHEZSBRKHQMNWDKVG4X6DDIQEAXTGI6IGAJ5ERPRQ3W2KUMX4QC","EMVTF2IWNQGRL44FC4JNG5FYYQTZSFPNM6SOM7IAEH6T7PPK2NVAC","LAROLAYUGJ4Q5AEFV5EJMIA2ZKBNCBWHHHPCJ3CKCNIUIYUKRFVQC","WO2MINIF4TXOHWSE7JWXRZYN64XRVLYIRFMF4SMPSOXKA2V77KMQC","TZQJVHBAMDNWDBYCDE3SDVGBG2T5FOE3J5JAD6NENRW36XBHUUFQC","WFZDMVUXZ2KPTMRAZGEYHKEJTKOKWVYCXKKAKQ7K6I5TMSLBUJ4QC","75N3UJ4JK56KXF56GASGPAWLFYGJDETVJNYTF4KXFCQM767JUU5AC","MWUPXTBF2LATVOJLJTXSDFB3OMFGMXDNETWJA3JHUOUBTUJ7WJAAC","LUM4VQJIHJKQWWD5NVWTVSNPKQTMGQQICTFOTM6W4BMME2G3G5RQC","TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC","TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC","W35DDBFYF6Z4ZPCFEO5RPAONZLYCSNTXUSTS6FIUUVZHCI6Q7GHAC","2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC","7XN3I3QJHYMKU2DCUXX34WQMSJ4ZJOWW7FME34EANO3E5W4Q632AC"]},"hunks":[{"Edit":{"inode":{"change":5,"pos":5084},"path":"lib/Quixotic/Auction.hs","line":7,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":5,"pos":116},"to":{"change":5,"start":3,"end":21},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":5213},"to":{"change":5,"start":3,"end":21},"introduced_by":5}],"inode":{"change":5,"pos":5084}}},"contents":[{"Del":{"text":"import Data.Group","pos":"WO2MINIF4TXOHWSE7JWXRZYN64XRVLYIRFMF4SMPSOXKA2V77KMQC:20"}}]}},{"Replacement":{"inode":{"change":5,"pos":5084},"path":"lib/Quixotic/Auction.hs","line":8,"ins":{"up_context":[{"change":5,"pos":43}],"down_context":[{"change":5,"pos":59}],"flag":"BLOCK","start":3,"end":27,"inode":{"change":5,"pos":5084}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":43},"to":{"change":5,"start":43,"end":59},"introduced_by":5}],"inode":{"change":5,"pos":5084}},"ins_contents":[{"Add":{"text":"import Network.Bitcoin","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:25"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:26"}}],"del_contents":[{"Del":{"text":"import Quixotic","pos":"WO2MINIF4TXOHWSE7JWXRZYN64XRVLYIRFMF4SMPSOXKA2V77KMQC:58"}}]}},{"Edit":{"inode":{"change":5,"pos":5084},"path":"lib/Quixotic/Auction.hs","line":13,"atom":{"NewVertex":{"up_context":[{"change":5,"pos":59}],"down_context":[{"change":5,"pos":5248}],"flag":"BLOCK","start":28,"end":51,"inode":{"change":5,"pos":5084}}},"contents":[{"Add":{"text":"makePrisms ''AuctionId","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:50"}}]}},{"Edit":{"inode":{"change":5,"pos":5084},"path":"lib/Quixotic/Auction.hs","line":19,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":5323},"to":{"change":5,"start":5323,"end":5324},"introduced_by":5}],"inode":{"change":5,"pos":5084}}},"contents":[{"Del":{"text":"","pos":"LAROLAYUGJ4Q5AEFV5EJMIA2ZKBNCBWHHHPCJ3CKCNIUIYUKRFVQC:5323"}}]}},{"Edit":{"inode":{"change":5,"pos":5084},"path":"lib/Quixotic/Auction.hs","line":27,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":5,"pos":122},"to":{"change":5,"start":5404,"end":5405},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":5404},"to":{"change":5,"start":5404,"end":5405},"introduced_by":5}],"inode":{"change":5,"pos":5084}}},"contents":[{"Del":{"text":"","pos":"LAROLAYUGJ4Q5AEFV5EJMIA2ZKBNCBWHHHPCJ3CKCNIUIYUKRFVQC:5404"}}]}},{"Replacement":{"inode":{"change":5,"pos":5084},"path":"lib/Quixotic/Auction.hs","line":34,"ins":{"up_context":[{"change":5,"pos":241}],"down_context":[{"change":5,"pos":301}],"flag":"BLOCK","start":52,"end":99,"inode":{"change":5,"pos":5084}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":241},"to":{"change":5,"start":241,"end":301},"introduced_by":5}],"inode":{"change":5,"pos":5084}},"ins_contents":[{"Add":{"text":" btc bid = toRational $ bid ^. bidAmount","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:98"}}],"del_contents":[{"Del":{"text":" btc bid = toRational $ bid ^. (bidAmount . satoshis)","pos":"TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC:300"}}]}},{"Replacement":{"inode":{"change":5,"pos":5084},"path":"lib/Quixotic/Auction.hs","line":43,"ins":{"up_context":[{"change":5,"pos":538}],"down_context":[{"change":5,"pos":652}],"flag":"BLOCK","start":100,"end":227,"inode":{"change":5,"pos":5084}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":538},"to":{"change":5,"start":343,"end":470},"introduced_by":5}],"inode":{"change":5,"pos":5084}},"ins_contents":[{"Add":{"text":" | total + (x ^. bidAmount) < (auction ^. raiseAmount) = ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:164"}},{"Add":{"text":" x : (takeWinningBids (total + (x ^. bidAmount)) xs)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:226"}}],"del_contents":[{"Del":{"text":" | (total ++ x ^. bidAmount) < (auction ^. raiseAmount) = ","pos":"TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC:408"}},{"Del":{"text":" x : (takeWinningBids (total ++ x ^. bidAmount) xs)","pos":"TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC:469"}}]}},{"Replacement":{"inode":{"change":5,"pos":5084},"path":"lib/Quixotic/Auction.hs","line":47,"ins":{"up_context":[{"change":5,"pos":727}],"down_context":[{"change":5,"pos":581}],"flag":"BLOCK","start":228,"end":403,"inode":{"change":5,"pos":5084}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":727},"to":{"change":5,"start":583,"end":732},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":732},"to":{"change":5,"start":471,"end":581},"introduced_by":5}],"inode":{"change":5,"pos":5084}},"ins_contents":[{"Add":{"text":" | total < (auction ^. raiseAmount) = ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:273"}},{"Add":{"text":" let remainder = (auction ^. raiseAmount) - total","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:332"}},{"Add":{"text":" winFraction = toRational $ remainder / (x ^. bidAmount)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:402"}}],"del_contents":[{"Del":{"text":" | total < auction ^. raiseAmount = ","pos":"75N3UJ4JK56KXF56GASGPAWLFYGJDETVJNYTF4KXFCQM767JUU5AC:626"}},{"Del":{"text":" let remainder = (auction ^. raiseAmount) ++ invert total","pos":"75N3UJ4JK56KXF56GASGPAWLFYGJDETVJNYTF4KXFCQM767JUU5AC:693"}},{"Del":{"text":" winFraction :: Rational","pos":"75N3UJ4JK56KXF56GASGPAWLFYGJDETVJNYTF4KXFCQM767JUU5AC:731"}},{"Del":{"text":" winFraction = (toRational $ remainder ^. satoshis) / (toRational $ x ^. (bidAmount . satoshis))","pos":"TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC:580"}}]}},{"Replacement":{"inode":{"change":5,"pos":5084},"path":"lib/Quixotic/Auction.hs","line":57,"ins":{"up_context":[{"change":5,"pos":1147}],"down_context":[],"flag":"BLOCK","start":404,"end":454,"inode":{"change":5,"pos":5084}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1147},"to":{"change":5,"start":1147,"end":1188},"introduced_by":5}],"inode":{"change":5,"pos":5084}},"ins_contents":[{"Add":{"text":" in takeWinningBids (fromInteger 0) $ sort bids","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:453"}}],"del_contents":[{"Del":{"text":" in takeWinningBids mempty $ sort bids","pos":"WO2MINIF4TXOHWSE7JWXRZYN64XRVLYIRFMF4SMPSOXKA2V77KMQC:1187"}}]}},{"FileAdd":{"meta":{"basename":"PostgreSQL.hs","metadata":0},"context":[{"change":5,"pos":40}],"contents":[{"Add":{"text":"{-# LANGUAGE ScopedTypeVariables, OverloadedStrings, NoImplicitPrelude #-}","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:531"}},{"Add":{"text":"{-# LANGUAGE TemplateHaskell #-}","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:564"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:565"}},{"Add":{"text":"module Quixotic.Database.PostgreSQL (postgresQDB) where","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:621"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:622"}},{"Add":{"text":"import Blaze.ByteString.Builder (fromByteString)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:671"}},{"Add":{"text":"import ClassyPrelude","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:692"}},{"Add":{"text":"import Control.Lens","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:712"}},{"Add":{"text":"import Data.Fixed","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:730"}},{"Add":{"text":"import Data.Hourglass","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:752"}},{"Add":{"text":"import qualified Data.List as DL","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:785"}},{"Add":{"text":"import Database.PostgreSQL.Simple","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:819"}},{"Add":{"text":"import Database.PostgreSQL.Simple.ToField","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:861"}},{"Add":{"text":"import Database.PostgreSQL.Simple.FromField","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:905"}},{"Add":{"text":"import Database.PostgreSQL.Simple.ToRow","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:945"}},{"Add":{"text":"import Database.PostgreSQL.Simple.FromRow","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:987"}},{"Add":{"text":"import Network.Bitcoin","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1010"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1011"}},{"Add":{"text":"import Quixotic","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1027"}},{"Add":{"text":"import Quixotic.Auction","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1051"}},{"Add":{"text":"import Quixotic.Database","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1076"}},{"Add":{"text":"import Quixotic.TimeLog","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1100"}},{"Add":{"text":"import Quixotic.Users","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1122"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1123"}},{"Add":{"text":"eventTypeParser :: FieldParser EventType","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1164"}},{"Add":{"text":"eventTypeParser f v = fromField f v >>= nameEvent","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1214"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1215"}},{"Add":{"text":"uidParser :: FieldParser UserId","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1247"}},{"Add":{"text":"uidParser f v = UserId <$> fromField f v","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1288"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1289"}},{"Add":{"text":"secondsParser :: FieldParser Seconds","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1326"}},{"Add":{"text":"secondsParser f v = Seconds <$> fromField f v","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1372"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1373"}},{"Add":{"text":"usernameParser :: FieldParser UserName","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1412"}},{"Add":{"text":"usernameParser f v = UserName <$> fromField f v","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1460"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1461"}},{"Add":{"text":"btcAddrParser :: FieldParser BtcAddr","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1498"}},{"Add":{"text":"btcAddrParser f v = BtcAddr <$> fromField f v","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1544"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1545"}},{"Add":{"text":"btcParser :: FieldParser BTC","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1574"}},{"Add":{"text":"btcParser f v = fromField f v","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1604"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1605"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1606"}},{"Add":{"text":"workEventParser :: RowParser WorkEvent","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1645"}},{"Add":{"text":"workEventParser = WorkEvent <$> fieldWith eventTypeParser <*> field ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1714"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1715"}},{"Add":{"text":"logEntryParser :: RowParser LogEntry","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1752"}},{"Add":{"text":"logEntryParser = LogEntry <$> fieldWith btcAddrParser <*> workEventParser ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1828"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1829"}},{"Add":{"text":"auctionRowParser :: RowParser Auction","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1867"}},{"Add":{"text":"auctionRowParser = Auction <$> fieldWith btcParser <*> field","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1928"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1929"}},{"Add":{"text":"bidRowParser :: RowParser Bid","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1959"}},{"Add":{"text":"bidRowParser = Bid <$> fieldWith uidParser ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2003"}},{"Add":{"text":" <*> fieldWith secondsParser ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2051"}},{"Add":{"text":" <*> fieldWith btcParser ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2095"}},{"Add":{"text":" <*> field","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2124"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2125"}},{"Add":{"text":"userRowParser :: RowParser User","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2157"}},{"Add":{"text":"userRowParser = User <$> fieldWith usernameParser","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2207"}},{"Add":{"text":" <*> fieldWith btcAddrParser","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2256"}},{"Add":{"text":" <*> field","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2287"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2288"}},{"Add":{"text":"-- Local newtypes to permit field serialization ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2337"}},{"Add":{"text":"newtype PBTC = PBTC { pBTC :: BTC }","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2373"}},{"Add":{"text":"instance ToField PBTC where","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2401"}},{"Add":{"text":" toField (PBTC btc) = Plain . fromByteString . fromString $ showFixed False btc","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2482"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2483"}},{"Add":{"text":"-- Local newtypes to permit row deserialization via","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2535"}},{"Add":{"text":"-- typeclass. Wish I could just pass the RowParser instances","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2596"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2597"}},{"Add":{"text":"newtype PLogEntry = PLogEntry { pLogEntry :: LogEntry } ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2654"}},{"Add":{"text":"instance FromRow PLogEntry where","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2687"}},{"Add":{"text":" fromRow = PLogEntry <$> logEntryParser","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2728"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2729"}},{"Add":{"text":"newtype PBid = PBid { pBid :: Bid }","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2765"}},{"Add":{"text":"instance FromRow PBid where","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2793"}},{"Add":{"text":" fromRow = PBid <$> bidRowParser","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2827"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2828"}},{"Add":{"text":"newtype PUser = PUser { pUser :: User }","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2868"}},{"Add":{"text":"instance FromRow PUser where","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2897"}},{"Add":{"text":" fromRow = PUser <$> userRowParser","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2933"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2934"}},{"Add":{"text":"newtype PAuction = PAuction { pAuction :: Auction }","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2986"}},{"Add":{"text":"instance FromRow PAuction where","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3018"}},{"Add":{"text":" fromRow = PAuction <$> auctionRowParser","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3060"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3061"}},{"Add":{"text":"recordEvent' :: UserId -> LogEntry -> ReaderT Connection IO ()","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3124"}},{"Add":{"text":"recordEvent' (UserId uid) (LogEntry a e) = do ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3171"}},{"Add":{"text":" conn <- ask","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3185"}},{"Add":{"text":" void . lift $ execute conn ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3215"}},{"Add":{"text":" \"INSERT INTO work_events (user_id, btc_addr, event_type, event_time) VALUES (?, ?, ?, ?)\" ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3310"}},{"Add":{"text":" ( uid","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3320"}},{"Add":{"text":" , a ^. address","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3339"}},{"Add":{"text":" , e ^. (eventType . to eventName)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3377"}},{"Add":{"text":" , e ^. eventTime","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3398"}},{"Add":{"text":" )","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3404"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3405"}},{"Add":{"text":"readWorkIndex' :: ReaderT Connection IO WorkIndex","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3455"}},{"Add":{"text":"readWorkIndex' = do","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3475"}},{"Add":{"text":" conn <- ask","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3489"}},{"Add":{"text":" rows <- lift $ query_ conn","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3518"}},{"Add":{"text":" \"SELECT btc_addr, event_type, event_time from work_events\" ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3582"}},{"Add":{"text":" pure . workIndex $ fmap pLogEntry rows","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3623"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3624"}},{"Add":{"text":"newAuction' :: Auction -> ReaderT Connection IO AuctionId","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3682"}},{"Add":{"text":"newAuction' auc = do","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3703"}},{"Add":{"text":" conn <- ask","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3717"}},{"Add":{"text":" aucIds <- lift $ query conn","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3747"}},{"Add":{"text":" \"INSERT INTO auctions (raise_amount, end_time) VALUES (?, ?) RETURNING id\"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3826"}},{"Add":{"text":" (auc ^. (raiseAmount.to PBTC), auc ^. auctionEnd)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3880"}},{"Add":{"text":" pure . AuctionId . fromOnly $ DL.head aucIds","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3927"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3928"}},{"Add":{"text":"readAuction' :: AuctionId -> ReaderT Connection IO (Maybe Auction)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3995"}},{"Add":{"text":"readAuction' aucId = do","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4019"}},{"Add":{"text":" conn <- ask","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4033"}},{"Add":{"text":" rows <- lift $ query conn","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4061"}},{"Add":{"text":" \"SELECT raise_amount, end_time FROM auctions WHERE ROWID = ?\" ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4128"}},{"Add":{"text":" (Only (aucId ^. _AuctionId))","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4161"}},{"Add":{"text":" pure . fmap pAuction $ headMay rows","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4199"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4200"}},{"Add":{"text":"recordBid' :: AuctionId -> Bid -> ReaderT Connection IO ()","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4259"}},{"Add":{"text":"recordBid' (AuctionId aucId) bid = do","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4297"}},{"Add":{"text":" conn <- ask","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4311"}},{"Add":{"text":" void . lift $ execute conn","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4340"}},{"Add":{"text":" \"INSERT INTO bids (auction_id, user_id, bid_seconds, bid_amount, bid_time) values (?, ?, ?, ?, ?)\"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4443"}},{"Add":{"text":" ( aucId ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4456"}},{"Add":{"text":" , bid ^. (bidUser._UserId)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4487"}},{"Add":{"text":" , case bid ^. bidSeconds of (Seconds i) -> i","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4536"}},{"Add":{"text":" , bid ^. (bidAmount.to PBTC)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4569"}},{"Add":{"text":" , bid ^. bidTime","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4590"}},{"Add":{"text":" )","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4596"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4597"}},{"Add":{"text":"readBids' :: AuctionId -> ReaderT Connection IO [Bid]","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4651"}},{"Add":{"text":"readBids' aucId = do","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4672"}},{"Add":{"text":" conn <- ask","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4686"}},{"Add":{"text":" rows <- lift $ query conn","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4714"}},{"Add":{"text":" \"SELECT user_id, bid_seconds, bid_amount, bid_time FROM bids WHERE auction_id = ?\"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4801"}},{"Add":{"text":" (Only $ (aucId ^. _AuctionId))","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4836"}},{"Add":{"text":" pure $ fmap pBid rows","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4860"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4861"}},{"Add":{"text":"createUser' :: User -> ReaderT Connection IO UserId","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4913"}},{"Add":{"text":"createUser' user = do","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4935"}},{"Add":{"text":" conn <- ask","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4949"}},{"Add":{"text":" uids <- lift $ query conn","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4977"}},{"Add":{"text":" \"INSERT INTO users (handle, btc_addr, email) VALUES (?, ?) RETURNING id\"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5054"}},{"Add":{"text":" (user ^. (username._UserName), user ^. (userAddress.address), user ^. userEmail)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5139"}},{"Add":{"text":" pure . UserId . fromOnly $ DL.head uids","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5181"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5182"}},{"Add":{"text":"findUser' :: UserId -> ReaderT Connection IO (Maybe User)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5240"}},{"Add":{"text":"findUser' (UserId uid) = do","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5268"}},{"Add":{"text":" conn <- ask","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5282"}},{"Add":{"text":" users <- lift $ query conn","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5311"}},{"Add":{"text":" \"SELECT handle, btc_addr, email FROM users WHERE id = ?\"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5372"}},{"Add":{"text":" (Only uid)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5387"}},{"Add":{"text":" pure . fmap pUser $ headMay users","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5423"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5424"}},{"Add":{"text":"findUserByHandle' :: Handle -> ReaderT Connection IO (Maybe QDBUser)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5493"}},{"Add":{"text":"findUserByHandle' = undefined","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5523"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5524"}},{"Add":{"text":"postgresQDB :: QDB (ReaderT Connection IO)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5567"}},{"Add":{"text":"postgresQDB = QDB ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5586"}},{"Add":{"text":" { recordEvent = recordEvent'","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5617"}},{"Add":{"text":" , readWorkIndex = readWorkIndex' ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5653"}},{"Add":{"text":" , newAuction = newAuction'","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5682"}},{"Add":{"text":" , readAuction = readAuction'","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5713"}},{"Add":{"text":" , recordBid = recordBid'","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5740"}},{"Add":{"text":" , readBids = readBids'","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5765"}},{"Add":{"text":" , createUser = createUser'","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5794"}},{"Add":{"text":" , findUser = findUser'","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5819"}},{"Add":{"text":" , findUserByHandle = findUserByHandle'","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5860"}},{"Add":{"text":" }","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5864"}}]}},{"Edit":{"inode":{"change":5,"pos":3612},"path":"lib/Quixotic/Database/SQLite.hs","line":11,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":65}],"down_context":[{"change":5,"pos":102}],"flag":"BLOCK","start":5906,"end":5938,"inode":{"change":5,"pos":3612}}},"contents":[{"Add":{"text":"import qualified Text.Read as R","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5937"}}]}},{"Replacement":{"inode":{"change":5,"pos":3612},"path":"lib/Quixotic/Database/SQLite.hs","line":37,"ins":{"up_context":[{"change":5,"pos":1399}],"down_context":[{"change":5,"pos":1462}],"flag":"BLOCK","start":5939,"end":6003,"inode":{"change":5,"pos":3612}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1399},"to":{"change":5,"start":1399,"end":1462},"introduced_by":5}],"inode":{"change":5,"pos":3612}},"ins_contents":[{"Add":{"text":" let auctionParser = Auction <$> fmap R.read field <*> field","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6002"}}],"del_contents":[{"Del":{"text":" let auctionParser = Auction <$> (fmap BTC field) <*> field","pos":"TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC:1461"}}]}},{"Replacement":{"inode":{"change":5,"pos":3612},"path":"lib/Quixotic/Database/SQLite.hs","line":45,"ins":{"up_context":[{"change":2,"pos":151}],"down_context":[{"change":2,"pos":249}],"flag":"BLOCK","start":6004,"end":6105,"inode":{"change":5,"pos":3612}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":151},"to":{"change":2,"start":151,"end":249},"introduced_by":2}],"inode":{"change":5,"pos":3612}},"ins_contents":[{"Add":{"text":" let bidParser = Bid <$> fmap UserId field <*> fmap Seconds field <*> fmap R.read field <*> field","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6104"}}],"del_contents":[{"Del":{"text":" let bidParser = Bid <$> fmap UserId field <*> fmap Seconds field <*> fmap BTC field <*> field","pos":"JKMHA2QGDSVHD4DKDYQUYNJJ3LUQCOPOWEC3543BDWDXLYIBBZXQC:248"}}]}},{"Edit":{"inode":{"change":5,"pos":3612},"path":"lib/Quixotic/Database/SQLite.hs","line":62,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":631},"to":{"change":2,"start":631,"end":656},"introduced_by":2}],"inode":{"change":5,"pos":3612}}},"contents":[{"Del":{"text":"","pos":"JKMHA2QGDSVHD4DKDYQUYNJJ3LUQCOPOWEC3543BDWDXLYIBBZXQC:631"}},{"Del":{"text":"newtype PBTC = PBTC BTC","pos":"JKMHA2QGDSVHD4DKDYQUYNJJ3LUQCOPOWEC3543BDWDXLYIBBZXQC:655"}}]}},{"Replacement":{"inode":{"change":5,"pos":3612},"path":"lib/Quixotic/Database/SQLite.hs","line":63,"ins":{"up_context":[{"change":2,"pos":657}],"down_context":[{"change":5,"pos":1580}],"flag":"BLOCK","start":6106,"end":6227,"inode":{"change":5,"pos":3612}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":657},"to":{"change":2,"start":657,"end":722},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":2,"pos":722},"to":{"change":5,"start":797,"end":798},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":5,"pos":1498},"to":{"change":5,"start":797,"end":798},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":797},"to":{"change":5,"start":797,"end":798},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":798},"to":{"change":5,"start":1499,"end":1580},"introduced_by":5}],"inode":{"change":5,"pos":3612}},"ins_contents":[{"Add":{"text":"-- TODO: Record the user id","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6133"}},{"Add":{"text":"recordEvent' :: UserId -> LogEntry -> ReaderT Connection IO ()","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6196"}},{"Add":{"text":"recordEvent' _ logEntry = do ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6226"}}],"del_contents":[{"Del":{"text":"instance ToField PBTC where","pos":"JKMHA2QGDSVHD4DKDYQUYNJJ3LUQCOPOWEC3543BDWDXLYIBBZXQC:684"}},{"Del":{"text":" toField (PBTC (BTC i)) = toField i","pos":"JKMHA2QGDSVHD4DKDYQUYNJJ3LUQCOPOWEC3543BDWDXLYIBBZXQC:721"}},{"Del":{"text":"","pos":"LUM4VQJIHJKQWWD5NVWTVSNPKQTMGQQICTFOTM6W4BMME2G3G5RQC:797"}},{"Del":{"text":"recordEvent' :: LogEntry -> ReaderT Connection IO ()","pos":"TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC:1551"}},{"Del":{"text":"recordEvent' logEntry = do ","pos":"TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC:1579"}}]}},{"Replacement":{"inode":{"change":5,"pos":3612},"path":"lib/Quixotic/Database/SQLite.hs","line":83,"ins":{"up_context":[{"change":5,"pos":2151}],"down_context":[{"change":5,"pos":2208}],"flag":"BLOCK","start":6228,"end":6279,"inode":{"change":5,"pos":3612}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":2151},"to":{"change":5,"start":2151,"end":2208},"introduced_by":5}],"inode":{"change":5,"pos":3612}},"ins_contents":[{"Add":{"text":" (show $ auc ^. raiseAmount, auc ^. auctionEnd)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6278"}}],"del_contents":[{"Del":{"text":" (auc ^. (raiseAmount . satoshis), auc ^. auctionEnd)","pos":"TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC:2207"}}]}},{"Replacement":{"inode":{"change":5,"pos":3612},"path":"lib/Quixotic/Database/SQLite.hs","line":102,"ins":{"up_context":[{"change":2,"pos":895}],"down_context":[{"change":2,"pos":925}],"flag":"BLOCK","start":6280,"end":6310,"inode":{"change":5,"pos":3612}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":895},"to":{"change":2,"start":895,"end":925},"introduced_by":2}],"inode":{"change":5,"pos":3612}},"ins_contents":[{"Add":{"text":" , show $ bid ^. bidAmount","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6309"}}],"del_contents":[{"Del":{"text":" , PBTC $ bid ^. bidAmount","pos":"JKMHA2QGDSVHD4DKDYQUYNJJ3LUQCOPOWEC3543BDWDXLYIBBZXQC:924"}}]}},{"Replacement":{"inode":{"change":5,"pos":3612},"path":"lib/Quixotic/Database/SQLite.hs","line":115,"ins":{"up_context":[{"change":5,"pos":2989}],"down_context":[{"change":2,"pos":1249}],"flag":"BLOCK","start":6311,"end":6330,"inode":{"change":5,"pos":3612}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":2989},"to":{"change":2,"start":1227,"end":1249},"introduced_by":2}],"inode":{"change":5,"pos":3612}},"ins_contents":[{"Add":{"text":"createUser' u = do","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6329"}}],"del_contents":[{"Del":{"text":"createUser' user = do","pos":"JKMHA2QGDSVHD4DKDYQUYNJJ3LUQCOPOWEC3543BDWDXLYIBBZXQC:1248"}}]}},{"Replacement":{"inode":{"change":5,"pos":3612},"path":"lib/Quixotic/Database/SQLite.hs","line":119,"ins":{"up_context":[{"change":2,"pos":1341}],"down_context":[{"change":2,"pos":1398}],"flag":"BLOCK","start":6331,"end":6382,"inode":{"change":5,"pos":3612}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":1341},"to":{"change":2,"start":1341,"end":1398},"introduced_by":2}],"inode":{"change":5,"pos":3612}},"ins_contents":[{"Add":{"text":" (u ^. (userAddress . address), u ^. userEmail)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6381"}}],"del_contents":[{"Del":{"text":" (user ^. (userAddress . address), user ^. userEmail)","pos":"JKMHA2QGDSVHD4DKDYQUYNJJ3LUQCOPOWEC3543BDWDXLYIBBZXQC:1397"}}]}},{"Replacement":{"inode":{"change":5,"pos":3612},"path":"lib/Quixotic/Database/SQLite.hs","line":122,"ins":{"up_context":[{"change":5,"pos":736}],"down_context":[{"change":5,"pos":3045}],"flag":"BLOCK","start":6383,"end":6424,"inode":{"change":5,"pos":3612}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":736},"to":{"change":5,"start":3014,"end":3045},"introduced_by":5}],"inode":{"change":5,"pos":3612}},"ins_contents":[{"Add":{"text":"sqliteQDB :: QDB (ReaderT Connection IO)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6423"}}],"del_contents":[{"Del":{"text":"sqliteQDB :: QDB IO Connection","pos":"TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC:3044"}}]}},{"Edit":{"inode":{"change":5,"pos":3612},"path":"lib/Quixotic/Database/SQLite.hs","line":131,"atom":{"NewVertex":{"up_context":[{"change":5,"pos":3270}],"down_context":[{"change":5,"pos":3270}],"flag":"BLOCK","start":6425,"end":6501,"inode":{"change":5,"pos":3612}}},"contents":[{"Add":{"text":" , findUser = \\_ -> pure Nothing","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6458"}},{"Add":{"text":" , findUserByHandle = \\_ -> pure Nothing","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6500"}}]}},{"Replacement":{"inode":{"change":5,"pos":4936},"path":"lib/Quixotic/Database.hs","line":1,"ins":{"up_context":[{"change":5,"pos":4936}],"down_context":[{"change":5,"pos":426}],"flag":"BLOCK","start":6503,"end":6555,"inode":{"change":5,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":4936},"to":{"change":5,"start":391,"end":426},"introduced_by":5}],"inode":{"change":5,"pos":4936}},"ins_contents":[{"Add":{"text":"{-# LANGUAGE NoImplicitPrelude, TemplateHaskell #-}","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6554"}}],"del_contents":[{"Del":{"text":"{-# LANGUAGE NoImplicitPrelude #-}","pos":"EMVTF2IWNQGRL44FC4JNG5FYYQTZSFPNM6SOM7IAEH6T7PPK2NVAC:425"}}]}},{"Edit":{"inode":{"change":5,"pos":4936},"path":"lib/Quixotic/Database.hs","line":6,"atom":{"NewVertex":{"up_context":[{"change":5,"pos":838}],"down_context":[{"change":5,"pos":5521}],"flag":"BLOCK","start":6556,"end":6577,"inode":{"change":5,"pos":4936}}},"contents":[{"Add":{"text":"import Control.Lens","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6575"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6576"}}]}},{"Replacement":{"inode":{"change":5,"pos":4936},"path":"lib/Quixotic/Database.hs","line":12,"ins":{"up_context":[{"change":5,"pos":5045}],"down_context":[{"change":5,"pos":5159}],"flag":"BLOCK","start":6578,"end":7064,"inode":{"change":5,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":5045},"to":{"change":5,"start":161,"end":181},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":181},"to":{"change":5,"start":5568,"end":5614},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":5065},"to":{"change":5,"start":5568,"end":5614},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":5614},"to":{"change":5,"start":839,"end":882},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":882},"to":{"change":5,"start":5674,"end":5725},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":5674},"to":{"change":5,"start":5674,"end":5725},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":5725},"to":{"change":5,"start":3276,"end":3388},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":3388},"to":{"change":2,"start":1444,"end":1491},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":2,"pos":1491},"to":{"change":5,"start":5885,"end":5930},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":5885},"to":{"change":5,"start":5885,"end":5930},"introduced_by":5}],"inode":{"change":5,"pos":4936}},"ins_contents":[{"Add":{"text":"data QDBUser = QDBUser ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6601"}},{"Add":{"text":" { _userId :: UserId ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6624"}},{"Add":{"text":" , _user :: User","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6642"}},{"Add":{"text":" }","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6646"}},{"Add":{"text":"makeLenses ''QDBUser","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6667"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6668"}},{"Add":{"text":"data QDB m = QDB ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6686"}},{"Add":{"text":" { recordEvent :: UserId -> LogEntry -> m ()","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6732"}},{"Add":{"text":" , readWorkIndex :: m WorkIndex","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6765"}},{"Add":{"text":" , newAuction :: Auction -> m AuctionId","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6806"}},{"Add":{"text":" , readAuction :: AuctionId -> m (Maybe Auction)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6856"}},{"Add":{"text":" , recordBid :: AuctionId -> Bid -> m ()","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6898"}},{"Add":{"text":" , readBids :: AuctionId -> m [Bid]","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6935"}},{"Add":{"text":" , createUser :: User -> m UserId","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6970"}},{"Add":{"text":" , findUser :: UserId -> m (Maybe User)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7011"}},{"Add":{"text":" , findUserByHandle :: Handle -> m (Maybe QDBUser)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7063"}}],"del_contents":[{"Del":{"text":"data QDB m a = QDB ","pos":"WFZDMVUXZ2KPTMRAZGEYHKEJTKOKWVYCXKKAKQ7K6I5TMSLBUJ4QC:180"}},{"Del":{"text":" { recordEvent :: LogEntry -> ReaderT a m ()","pos":"LAROLAYUGJ4Q5AEFV5EJMIA2ZKBNCBWHHHPCJ3CKCNIUIYUKRFVQC:5613"}},{"Del":{"text":" , readWorkIndex :: ReaderT a m WorkIndex","pos":"TZQJVHBAMDNWDBYCDE3SDVGBG2T5FOE3J5JAD6NENRW36XBHUUFQC:881"}},{"Del":{"text":" , newAuction :: Auction -> ReaderT a m AuctionId","pos":"LAROLAYUGJ4Q5AEFV5EJMIA2ZKBNCBWHHHPCJ3CKCNIUIYUKRFVQC:5724"}},{"Del":{"text":" , readAuction :: AuctionId -> ReaderT a m (Maybe Auction)","pos":"TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC:3335"}},{"Del":{"text":" , recordBid :: AuctionId -> Bid -> ReaderT a m ()","pos":"TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC:3387"}},{"Del":{"text":" , readBids :: AuctionId -> ReaderT a m [Bid]","pos":"JKMHA2QGDSVHD4DKDYQUYNJJ3LUQCOPOWEC3543BDWDXLYIBBZXQC:1490"}},{"Del":{"text":" , createUser :: User -> ReaderT a m UserId","pos":"LAROLAYUGJ4Q5AEFV5EJMIA2ZKBNCBWHHHPCJ3CKCNIUIYUKRFVQC:5929"}}]}},{"Edit":{"inode":{"change":5,"pos":5932},"path":"lib/Quixotic/Users.hs","line":11,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":1598}],"down_context":[{"change":5,"pos":6088}],"flag":"BLOCK","start":7066,"end":7086,"inode":{"change":5,"pos":5932}}},"contents":[{"Add":{"text":"makePrisms ''UserId","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7085"}}]}},{"Edit":{"inode":{"change":5,"pos":5932},"path":"lib/Quixotic/Users.hs","line":13,"atom":{"NewVertex":{"up_context":[{"change":5,"pos":6089}],"down_context":[{"change":5,"pos":6089}],"flag":"BLOCK","start":7087,"end":7163,"inode":{"change":5,"pos":5932}}},"contents":[{"Add":{"text":"newtype UserName = UserName Text deriving (Show, Eq)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7139"}},{"Add":{"text":"makePrisms ''UserName","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7161"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7162"}}]}},{"Replacement":{"inode":{"change":5,"pos":5932},"path":"lib/Quixotic/Users.hs","line":17,"ins":{"up_context":[{"change":5,"pos":6106}],"down_context":[{"change":2,"pos":1627}],"flag":"BLOCK","start":7164,"end":7218,"inode":{"change":5,"pos":5932}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":6106},"to":{"change":2,"start":1599,"end":1627},"introduced_by":2}],"inode":{"change":5,"pos":5932}},"ins_contents":[{"Add":{"text":" { _username :: UserName","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7189"}},{"Add":{"text":" , _userAddress :: BtcAddr","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7217"}}],"del_contents":[{"Del":{"text":" { _userAddress :: BtcAddr","pos":"JKMHA2QGDSVHD4DKDYQUYNJJ3LUQCOPOWEC3543BDWDXLYIBBZXQC:1626"}}]}},{"Edit":{"inode":{"change":5,"pos":5932},"path":"lib/Quixotic/Users.hs","line":21,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":6159},"to":{"change":2,"start":1651,"end":1652},"introduced_by":2}],"inode":{"change":5,"pos":5932}}},"contents":[{"Del":{"text":"","pos":"JKMHA2QGDSVHD4DKDYQUYNJJ3LUQCOPOWEC3543BDWDXLYIBBZXQC:1651"}}]}},{"Edit":{"inode":{"change":5,"pos":5932},"path":"lib/Quixotic/Users.hs","line":22,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":1670}],"down_context":[],"flag":"BLOCK","start":7219,"end":7220,"inode":{"change":5,"pos":5932}}},"contents":[{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7219"}}]}},{"Edit":{"inode":{"change":5,"pos":2457},"path":"lib/Quixotic.hs","line":9,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1787},"to":{"change":5,"start":1270,"end":1288},"introduced_by":5}],"inode":{"change":5,"pos":2457}}},"contents":[{"Del":{"text":"import Data.Group","pos":"WO2MINIF4TXOHWSE7JWXRZYN64XRVLYIRFMF4SMPSOXKA2V77KMQC:1287"}}]}},{"Edit":{"inode":{"change":5,"pos":2457},"path":"lib/Quixotic.hs","line":12,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":5,"pos":1198},"to":{"change":5,"start":2661,"end":2662},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":1932},"to":{"change":5,"start":2661,"end":2662},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":2661},"to":{"change":5,"start":2661,"end":2662},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":2662},"to":{"change":5,"start":4901,"end":4967},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":1272},"to":{"change":5,"start":1996,"end":2013},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":4967},"to":{"change":5,"start":1996,"end":2013},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1996},"to":{"change":5,"start":1996,"end":2013},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":2013},"to":{"change":5,"start":1354,"end":1384},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1354},"to":{"change":5,"start":1354,"end":1384},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1384},"to":{"change":5,"start":4968,"end":5009},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":2053},"to":{"change":5,"start":1427,"end":1514},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":5009},"to":{"change":5,"start":1427,"end":1514},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1427},"to":{"change":5,"start":1427,"end":1514},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1514},"to":{"change":5,"start":5010,"end":5046},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":2091},"to":{"change":5,"start":1553,"end":1581},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":5046},"to":{"change":5,"start":1553,"end":1581},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1553},"to":{"change":5,"start":1553,"end":1581},"introduced_by":5}],"inode":{"change":5,"pos":2457}}},"contents":[{"Del":{"text":"","pos":"NVOCQVASZWTKQJG7GPH7KHKZZR7NUG4WLV5YY4KAIRPCJRWCZPIAC:2661"}},{"Del":{"text":"newtype BTC = BTC { _satoshis :: Int64 } deriving (Show, Eq, Ord)","pos":"TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC:4966"}},{"Del":{"text":"makeLenses ''BTC","pos":"75N3UJ4JK56KXF56GASGPAWLFYGJDETVJNYTF4KXFCQM767JUU5AC:2012"}},{"Del":{"text":"","pos":"WO2MINIF4TXOHWSE7JWXRZYN64XRVLYIRFMF4SMPSOXKA2V77KMQC:1354"}},{"Del":{"text":"instance Semigroup BTC where","pos":"WO2MINIF4TXOHWSE7JWXRZYN64XRVLYIRFMF4SMPSOXKA2V77KMQC:1383"}},{"Del":{"text":" (<>) (BTC b1) (BTC b2) = BTC $ b1 + b2","pos":"TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC:5008"}},{"Del":{"text":"","pos":"WO2MINIF4TXOHWSE7JWXRZYN64XRVLYIRFMF4SMPSOXKA2V77KMQC:1427"}},{"Del":{"text":"instance Monoid BTC where","pos":"WO2MINIF4TXOHWSE7JWXRZYN64XRVLYIRFMF4SMPSOXKA2V77KMQC:1453"}},{"Del":{"text":" mempty = BTC 0","pos":"WO2MINIF4TXOHWSE7JWXRZYN64XRVLYIRFMF4SMPSOXKA2V77KMQC:1470"}},{"Del":{"text":" mappend = (<>)","pos":"WO2MINIF4TXOHWSE7JWXRZYN64XRVLYIRFMF4SMPSOXKA2V77KMQC:1487"}},{"Del":{"text":"","pos":"WO2MINIF4TXOHWSE7JWXRZYN64XRVLYIRFMF4SMPSOXKA2V77KMQC:1488"}},{"Del":{"text":"instance Group BTC where","pos":"WO2MINIF4TXOHWSE7JWXRZYN64XRVLYIRFMF4SMPSOXKA2V77KMQC:1513"}},{"Del":{"text":" invert (BTC b) = BTC . negate $ b","pos":"TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC:5045"}},{"Del":{"text":"","pos":"WO2MINIF4TXOHWSE7JWXRZYN64XRVLYIRFMF4SMPSOXKA2V77KMQC:1553"}},{"Del":{"text":"instance Abelian BTC where","pos":"WO2MINIF4TXOHWSE7JWXRZYN64XRVLYIRFMF4SMPSOXKA2V77KMQC:1580"}}]}},{"Edit":{"inode":{"change":5,"pos":1},"path":"quixotic.cabal","line":23,"atom":{"NewVertex":{"up_context":[{"change":5,"pos":672}],"down_context":[{"change":5,"pos":672}],"flag":"BLOCK","start":7223,"end":7274,"inode":{"change":5,"pos":1}}},"contents":[{"Add":{"text":" Quixotic.Database.PostgreSQL","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7273"}}]}},{"Edit":{"inode":{"change":5,"pos":1},"path":"quixotic.cabal","line":40,"atom":{"NewVertex":{"up_context":[{"change":5,"pos":5169}],"down_context":[{"change":5,"pos":1947}],"flag":"BLOCK","start":7275,"end":7351,"inode":{"change":5,"pos":1}}},"contents":[{"Add":{"text":" , postgresql-simple >= 0.4.9 && < 0.5","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7322"}},{"Add":{"text":" , blaze-builder ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7350"}}]}},{"Edit":{"inode":{"change":5,"pos":1},"path":"quixotic.cabal","line":88,"atom":{"NewVertex":{"up_context":[{"change":31,"pos":3216}],"down_context":[{"change":5,"pos":443}],"flag":"BLOCK","start":7352,"end":7427,"inode":{"change":5,"pos":1}}},"contents":[{"Add":{"text":" , postgresql-simple","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7375"}},{"Add":{"text":" , snap >= 0.13 && < 0.14","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7426"}}]}},{"Edit":{"inode":{"change":5,"pos":1},"path":"quixotic.cabal","line":92,"atom":{"NewVertex":{"up_context":[{"change":5,"pos":545}],"down_context":[{"change":31,"pos":3217}],"flag":"BLOCK","start":7428,"end":7495,"inode":{"change":5,"pos":1}}},"contents":[{"Add":{"text":" , snaplet-postgresql-simple >= 0.6","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7466"}},{"Add":{"text":" , resource-pool-catchio","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7494"}}]}},{"Replacement":{"inode":{"change":5,"pos":5188},"path":"server/Main.hs","line":2,"ins":{"up_context":[{"change":5,"pos":1459}],"down_context":[{"change":5,"pos":5255}],"flag":"BLOCK","start":7498,"end":7548,"inode":{"change":5,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1459},"to":{"change":5,"start":95,"end":128},"introduced_by":5}],"inode":{"change":5,"pos":5188}},"ins_contents":[{"Add":{"text":"{-# LANGUAGE RecordWildCards, TemplateHaskell #-}","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7547"}}],"del_contents":[{"Del":{"text":"{-# LANGUAGE RecordWildCards #-}","pos":"TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC:127"}}]}},{"Edit":{"inode":{"change":5,"pos":5188},"path":"server/Main.hs","line":9,"atom":{"NewVertex":{"up_context":[{"change":5,"pos":643}],"down_context":[{"change":5,"pos":191}],"flag":"BLOCK","start":7549,"end":7572,"inode":{"change":5,"pos":5188}}},"contents":[{"Add":{"text":"import Control.Lens.TH","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7571"}}]}},{"Replacement":{"inode":{"change":5,"pos":5188},"path":"server/Main.hs","line":15,"ins":{"up_context":[{"change":5,"pos":660}],"down_context":[{"change":5,"pos":918}],"flag":"BLOCK","start":7573,"end":7624,"inode":{"change":5,"pos":5188}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":5,"pos":170},"to":{"change":5,"start":226,"end":256},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":660},"to":{"change":5,"start":226,"end":256},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":122},"to":{"change":5,"start":226,"end":256},"introduced_by":5}],"inode":{"change":5,"pos":5188}},"ins_contents":[{"Add":{"text":"import Data.Pool","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7589"}},{"Add":{"text":"import Database.PostgreSQL.Simple","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7623"}}],"del_contents":[{"Del":{"text":"import Database.SQLite.Simple","pos":"TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC:255"}}]}},{"Replacement":{"inode":{"change":5,"pos":5188},"path":"server/Main.hs","line":20,"ins":{"up_context":[{"change":5,"pos":2543}],"down_context":[{"change":5,"pos":920}],"flag":"BLOCK","start":7625,"end":7661,"inode":{"change":5,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":2543},"to":{"change":5,"start":185,"end":217},"introduced_by":5}],"inode":{"change":5,"pos":5188}},"ins_contents":[{"Add":{"text":"import Quixotic.Database.PostgreSQL","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7660"}}],"del_contents":[{"Del":{"text":"import Quixotic.Database.SQLite","pos":"64VI73NPSFNWTL6UXM6YHRFLNJZ3NUJ2R3CL53MO2HSZWFGBIRTQC:216"}}]}},{"Edit":{"inode":{"change":5,"pos":5188},"path":"server/Main.hs","line":27,"atom":{"NewVertex":{"up_context":[{"change":5,"pos":218}],"down_context":[{"change":5,"pos":5492}],"flag":"BLOCK","start":7662,"end":7874,"inode":{"change":5,"pos":5188}}},"contents":[{"Add":{"text":"import Snap.Snaplet","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7681"}},{"Add":{"text":"import Snap.Snaplet.Auth","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7706"}},{"Add":{"text":"import Snap.Snaplet.Auth.Backends.PostgresqlSimple","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7757"}},{"Add":{"text":"import Snap.Snaplet.PostgresqlSimple","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7794"}},{"Add":{"text":"import Snap.Snaplet.Session","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7822"}},{"Add":{"text":"import Snap.Snaplet.Session.Backends.CookieSession","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7873"}}]}},{"Edit":{"inode":{"change":5,"pos":5188},"path":"server/Main.hs","line":34,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":5493},"to":{"change":5,"start":1478,"end":1492},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1492},"to":{"change":5,"start":1634,"end":1644},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1644},"to":{"change":5,"start":219,"end":255},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":255},"to":{"change":5,"start":257,"end":284},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":189},"to":{"change":5,"start":257,"end":284},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":284},"to":{"change":5,"start":256,"end":339},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":246},"to":{"change":5,"start":2594,"end":2595},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":304},"to":{"change":5,"start":2594,"end":2595},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":334},"to":{"change":5,"start":2594,"end":2595},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":339},"to":{"change":5,"start":2594,"end":2595},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":1673},"to":{"change":5,"start":2594,"end":2595},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":6332},"to":{"change":5,"start":2594,"end":2595},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1492},"to":{"change":5,"start":2594,"end":2595},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":2595},"to":{"change":5,"start":207,"end":245},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":245},"to":{"change":5,"start":335,"end":353},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":353},"to":{"change":4,"start":2,"end":210},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":210},"to":{"change":5,"start":6540,"end":6545},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":5,"pos":504},"to":{"change":5,"start":6540,"end":6545},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":6540},"to":{"change":5,"start":6540,"end":6545},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":6545},"to":{"change":5,"start":1931,"end":1932},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1931},"to":{"change":5,"start":1931,"end":1932},"introduced_by":5}],"inode":{"change":5,"pos":5188}}},"contents":[{"Del":{"text":"main :: IO ()","pos":"RSEB2NFGUBTFESE5BJKDUVQL5Y5ZVGY5O4CJX2LNP63MS3NRHHZQC:1491"}},{"Del":{"text":"main = do","pos":"WZUHEZSBRKHQMNWDKVG4X6DDIQEAXTGI6IGAJ5ERPRQ3W2KUMX4QC:1643"}},{"Del":{"text":" cfg <- loadQConfig \"quixotic.cfg\"","pos":"2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC:254"}},{"Del":{"text":" db <- open $ dbName cfg","pos":"TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC:283"}},{"Del":{"text":" sconf <- snapConfig cfg","pos":"2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC:281"}},{"Del":{"text":" simpleHttpServe sconf $ runReaderT (site sqliteQDB) db","pos":"2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC:338"}},{"Del":{"text":"","pos":"64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC:2594"}},{"Del":{"text":"site :: QDB IO a -> ReaderT a Snap ()","pos":"WFZDMVUXZ2KPTMRAZGEYHKEJTKOKWVYCXKKAKQ7K6I5TMSLBUJ4QC:244"}},{"Del":{"text":"site qdb = route ","pos":"TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC:352"}},{"Del":{"text":" [ (\"logStart/:btcAddr\", logWorkHandler qdb StartWork)","pos":"MK7ODWHUEPOMAEVK5D3OWW25QRAXKDO4ZVJKNZGWKB5434MP2LNAC:57"}},{"Del":{"text":" , (\"logEnd/:btcAddr\", logWorkHandler qdb StopWork)","pos":"MK7ODWHUEPOMAEVK5D3OWW25QRAXKDO4ZVJKNZGWKB5434MP2LNAC:112"}},{"Del":{"text":" , (\"loggedIntervals/:btcAddr\", loggedIntervalsHandler qdb)","pos":"MK7ODWHUEPOMAEVK5D3OWW25QRAXKDO4ZVJKNZGWKB5434MP2LNAC:173"}},{"Del":{"text":" , (\"payouts\", payoutsHandler qdb)","pos":"MK7ODWHUEPOMAEVK5D3OWW25QRAXKDO4ZVJKNZGWKB5434MP2LNAC:209"}},{"Del":{"text":" ] ","pos":"LAROLAYUGJ4Q5AEFV5EJMIA2ZKBNCBWHHHPCJ3CKCNIUIYUKRFVQC:6544"}},{"Del":{"text":"","pos":"WZUHEZSBRKHQMNWDKVG4X6DDIQEAXTGI6IGAJ5ERPRQ3W2KUMX4QC:1931"}}]}},{"Edit":{"inode":{"change":5,"pos":5188},"path":"server/Main.hs","line":37,"atom":{"NewVertex":{"up_context":[{"change":5,"pos":383}],"down_context":[{"change":3,"pos":42}],"flag":"BLOCK","start":7875,"end":7934,"inode":{"change":5,"pos":5188}}},"contents":[{"Add":{"text":" , authSiteKey :: FilePath","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7902"}},{"Add":{"text":" , cookieTimeout :: Maybe Int","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7933"}}]}},{"Replacement":{"inode":{"change":5,"pos":5188},"path":"server/Main.hs","line":41,"ins":{"up_context":[{"change":3,"pos":95}],"down_context":[{"change":5,"pos":309}],"flag":"BLOCK","start":7935,"end":7959,"inode":{"change":5,"pos":5188}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":95},"to":{"change":5,"start":288,"end":309},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":5,"pos":430},"to":{"change":5,"start":288,"end":309},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":288},"to":{"change":5,"start":288,"end":309},"introduced_by":5}],"inode":{"change":5,"pos":5188}},"ins_contents":[{"Add":{"text":" -- , dbName :: String","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7958"}}],"del_contents":[{"Del":{"text":" , dbName :: String","pos":"Z3M53KTLZMPOISMHE25SZJSWX5TA37IV33IRE7KNRAD3PKEAEJXQC:308"}}]}},{"Edit":{"inode":{"change":5,"pos":5188},"path":"server/Main.hs","line":43,"atom":{"NewVertex":{"up_context":[{"change":5,"pos":314}],"down_context":[{"change":5,"pos":314}],"flag":"BLOCK","start":7960,"end":8170,"inode":{"change":5,"pos":5188}}},"contents":[{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7960"}},{"Add":{"text":"type PQDB = QDB (ReaderT Connection IO)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8000"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8001"}},{"Add":{"text":"data App = App ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8017"}},{"Add":{"text":" { _qdb :: Snaplet PQDB","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8043"}},{"Add":{"text":" , _sess :: Snaplet SessionManager","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8079"}},{"Add":{"text":" , _db :: Snaplet Postgres","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8109"}},{"Add":{"text":" , _auth :: Snaplet (AuthManager App)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8148"}},{"Add":{"text":" }","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8152"}},{"Add":{"text":"makeLenses ''App","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8169"}}]}},{"Edit":{"inode":{"change":5,"pos":5188},"path":"server/Main.hs","line":54,"atom":{"NewVertex":{"up_context":[{"change":5,"pos":315}],"down_context":[{"change":5,"pos":431}],"flag":"BLOCK","start":8171,"end":9051,"inode":{"change":5,"pos":5188}}},"contents":[{"Add":{"text":"main :: IO ()","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8184"}},{"Add":{"text":"main = do","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8194"}},{"Add":{"text":" cfg <- loadQConfig \"quixotic.cfg\"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8230"}},{"Add":{"text":" sconf <- snapConfig cfg","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8256"}},{"Add":{"text":" --simpleHttpServe sconf $ runReaderT (site sqliteQDB) db","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8315"}},{"Add":{"text":" serveSnaplet sconf $ appInit cfg","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8350"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8351"}},{"Add":{"text":"appInit :: QConfig -> SnapletInit App App","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8393"}},{"Add":{"text":"appInit QConfig{..} = makeSnaplet \"quixotic\" \"Quixotic Time Tracker\" Nothing $ do","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8475"}},{"Add":{"text":" qdbs <- nestSnaplet \"qdb\" qdb qdbpgSnapletInit","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8525"}},{"Add":{"text":" sesss <- nestSnaplet \"sessions\" sess $ ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8567"}},{"Add":{"text":" initCookieSessionManager (fpToString authSiteKey) \"quookie\" cookieTimeout","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8652"}},{"Add":{"text":" pgs <- nestSnaplet \"db\" db pgsInit","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8691"}},{"Add":{"text":" auths <- nestSnaplet \"auth\" auth $ initPostgresAuth sess pgs","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8754"}},{"Add":{"text":" addRoutes [ (\"logStart/:btcAddr\", logWorkHandler StartWork)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8816"}},{"Add":{"text":" , (\"logEnd/:btcAddr\", logWorkHandler StopWork)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8877"}},{"Add":{"text":"-- , (\"loggedIntervals/:btcAddr\", loggedIntervalsHandler qdb)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8950"}},{"Add":{"text":"-- , (\"payouts\", payoutsHandler qdb)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8998"}},{"Add":{"text":" ] ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9013"}},{"Add":{"text":" return $ App qdbs sesss pgs auths","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9049"}},{"Add":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9050"}}]}},{"Edit":{"inode":{"change":5,"pos":5188},"path":"server/Main.hs","line":84,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":143}],"down_context":[{"change":3,"pos":143}],"flag":"BLOCK","start":9052,"end":9154,"inode":{"change":5,"pos":5188}}},"contents":[{"Add":{"text":" <*> (fmap fpFromText $ C.require cfg \"siteKey\")","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9109"}},{"Add":{"text":" <*> C.lookup cfg \"cookieTimeout\" ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9153"}}]}},{"Replacement":{"inode":{"change":5,"pos":5188},"path":"server/Main.hs","line":88,"ins":{"up_context":[{"change":3,"pos":264}],"down_context":[{"change":5,"pos":829}],"flag":"BLOCK","start":9155,"end":9192,"inode":{"change":5,"pos":5188}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":264},"to":{"change":5,"start":795,"end":829},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":795},"to":{"change":5,"start":795,"end":829},"introduced_by":5}],"inode":{"change":5,"pos":5188}},"ins_contents":[{"Add":{"text":" -- <*> C.require cfg \"db\" ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9191"}}],"del_contents":[{"Del":{"text":" <*> C.require cfg \"db\" ","pos":"2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC:828"}}]}},{"Replacement":{"inode":{"change":5,"pos":5188},"path":"server/Main.hs","line":98,"ins":{"up_context":[{"change":5,"pos":1078}],"down_context":[{"change":5,"pos":1126}],"flag":"BLOCK","start":9193,"end":9240,"inode":{"change":5,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1078},"to":{"change":5,"start":1078,"end":1126},"introduced_by":5}],"inode":{"change":5,"pos":5188}},"ins_contents":[{"Add":{"text":"snapConfig :: QConfig -> IO (SC.Config Snap a)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9239"}}],"del_contents":[{"Del":{"text":"snapConfig :: QConfig -> IO (SC.Config Snap ())","pos":"2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC:1125"}}]}},{"Replacement":{"inode":{"change":5,"pos":5188},"path":"server/Main.hs","line":101,"ins":{"up_context":[{"change":5,"pos":5696}],"down_context":[{"change":5,"pos":6062}],"flag":"BLOCK","start":9241,"end":9373,"inode":{"change":5,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":5696},"to":{"change":4,"start":211,"end":300},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":300},"to":{"change":5,"start":649,"end":669},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":649},"to":{"change":5,"start":649,"end":669},"introduced_by":5},{"previous":"","flag":"DELETED","from":{"change":5,"pos":669},"to":{"change":5,"start":6623,"end":6664},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":620},"to":{"change":5,"start":6623,"end":6664},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":6664},"to":{"change":5,"start":670,"end":884},"introduced_by":5}],"inode":{"change":5,"pos":5188}},"ins_contents":[{"Add":{"text":"qdbpgSnapletInit :: SnapletInit a PQDB","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9279"}},{"Add":{"text":"qdbpgSnapletInit = makeSnaplet \"qdbpg\" \"QDB on Postgresql\" Nothing $ do","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9351"}},{"Add":{"text":" return postgresQDB","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9372"}}],"del_contents":[{"Del":{"text":"logWorkHandler :: QDB IO a -> EventType -> ReaderT a Snap ()","pos":"MK7ODWHUEPOMAEVK5D3OWW25QRAXKDO4ZVJKNZGWKB5434MP2LNAC:271"}},{"Del":{"text":"logWorkHandler qdb ev = do ","pos":"MK7ODWHUEPOMAEVK5D3OWW25QRAXKDO4ZVJKNZGWKB5434MP2LNAC:299"}},{"Del":{"text":" let QDB{..} = qdb","pos":"TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC:668"}},{"Del":{"text":" addrBytes <- lift $ getParam \"btcAddr\"","pos":"LAROLAYUGJ4Q5AEFV5EJMIA2ZKBNCBWHHHPCJ3CKCNIUIYUKRFVQC:6663"}},{"Del":{"text":" timestamp <- lift $ liftIO getCurrentTime","pos":"TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC:713"}},{"Del":{"text":" maybe ","pos":"TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC:722"}},{"Del":{"text":" (lift $ snapError 400 \"\")","pos":"TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC:752"}},{"Del":{"text":" (\\a -> mapReaderT liftIO $ recordEvent (LogEntry a (WorkEvent ev timestamp)))","pos":"TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC:834"}},{"Del":{"text":" (fmap decodeUtf8 addrBytes >>= parseBtcAddr)","pos":"TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC:883"}}]}},{"Replacement":{"inode":{"change":5,"pos":5188},"path":"server/Main.hs","line":105,"ins":{"up_context":[{"change":5,"pos":6063}],"down_context":[{"change":5,"pos":981}],"flag":"BLOCK","start":9374,"end":9872,"inode":{"change":5,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":6063},"to":{"change":4,"start":301,"end":389},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":389},"to":{"change":5,"start":790,"end":981},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":790},"to":{"change":5,"start":790,"end":981},"introduced_by":5}],"inode":{"change":5,"pos":5188}},"ins_contents":[{"Add":{"text":"logWorkHandler :: EventType -> Handler App App ()","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9423"}},{"Add":{"text":"logWorkHandler evType = do ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9451"}},{"Add":{"text":" QDB{..} <- with qdb mempty","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9480"}},{"Add":{"text":" pg <- with db getPostgresState","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9513"}},{"Add":{"text":" authedUser <- with auth currentUser","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9551"}},{"Add":{"text":" qUid <- ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9562"}},{"Add":{"text":" addrBytes <- getParam \"btcAddr\"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9596"}},{"Add":{"text":" timestamp <- liftIO getCurrentTime","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9633"}},{"Add":{"text":" let workEvent = WorkEvent evType timestamp","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9678"}},{"Add":{"text":" btcAddr = fmap decodeUtf8 addrBytes >>= parseBtcAddr","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9737"}},{"Add":{"text":" storeEv uid addr = runReaderT . recordEvent uid $ LogEntry addr workEvent","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9817"}},{"Add":{"text":" maybe (snapError 400 \"\") (liftPG . storeEv) btcAddr","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9871"}}],"del_contents":[{"Del":{"text":"loggedIntervalsHandler :: QDB IO a -> ReaderT a Snap ()","pos":"MK7ODWHUEPOMAEVK5D3OWW25QRAXKDO4ZVJKNZGWKB5434MP2LNAC:356"}},{"Del":{"text":"loggedIntervalsHandler qdb = do","pos":"MK7ODWHUEPOMAEVK5D3OWW25QRAXKDO4ZVJKNZGWKB5434MP2LNAC:388"}},{"Del":{"text":" let QDB{..} = qdb","pos":"7XN3I3QJHYMKU2DCUXX34WQMSJ4ZJOWW7FME34EANO3E5W4Q632AC:809"}},{"Del":{"text":" widx <- mapReaderT liftIO $ readWorkIndex","pos":"7XN3I3QJHYMKU2DCUXX34WQMSJ4ZJOWW7FME34EANO3E5W4Q632AC:853"}},{"Del":{"text":" lift . modifyResponse $ addHeader \"content-type\" \"application/json\"","pos":"7XN3I3QJHYMKU2DCUXX34WQMSJ4ZJOWW7FME34EANO3E5W4Q632AC:923"}},{"Del":{"text":" lift . writeLBS . A.encode $ mapKeys (^. address) widx","pos":"7XN3I3QJHYMKU2DCUXX34WQMSJ4ZJOWW7FME34EANO3E5W4Q632AC:980"}}]}},{"Replacement":{"inode":{"change":5,"pos":5188},"path":"server/Main.hs","line":118,"ins":{"up_context":[{"change":5,"pos":982}],"down_context":[{"change":5,"pos":1016}],"flag":"BLOCK","start":9873,"end":10559,"inode":{"change":5,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":982},"to":{"change":4,"start":390,"end":463},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":463},"to":{"change":5,"start":910,"end":985},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":910},"to":{"change":5,"start":910,"end":985},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":759},"to":{"change":5,"start":986,"end":1072},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1072},"to":{"change":3,"start":412,"end":482},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":482},"to":{"change":5,"start":1072,"end":1144},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1072},"to":{"change":5,"start":1072,"end":1144},"introduced_by":5}],"inode":{"change":5,"pos":5188}},"ins_contents":[{"Add":{"text":"--loggedIntervalsHandler :: QDB IO a -> ReaderT a Snap ()","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9930"}},{"Add":{"text":"--loggedIntervalsHandler qdb = do","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9964"}},{"Add":{"text":"-- let QDB{..} = qdb","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9986"}},{"Add":{"text":"-- widx <- mapReaderT liftIO $ readWorkIndex","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:10032"}},{"Add":{"text":"-- lift . modifyResponse $ addHeader \"content-type\" \"application/json\"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:10104"}},{"Add":{"text":"-- lift . writeLBS . A.encode $ mapKeys (^. address) widx","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:10163"}},{"Add":{"text":"--","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:10166"}},{"Add":{"text":"--payoutsHandler :: QDB IO a -> ReaderT a Snap ()","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:10216"}},{"Add":{"text":"--payoutsHandler qdb = do ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:10243"}},{"Add":{"text":"-- let QDB{..} = qdb","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:10265"}},{"Add":{"text":"-- dep = linearDepreciation (Months 6) (Months 60) ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:10322"}},{"Add":{"text":"-- ptime <- lift . liftIO $ getCurrentTime","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:10366"}},{"Add":{"text":"-- widx <- mapReaderT liftIO $ readWorkIndex","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:10412"}},{"Add":{"text":"-- lift . modifyResponse $ addHeader \"content-type\" \"application/json\"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:10484"}},{"Add":{"text":"-- lift . writeLBS . A.encode . PayoutsResponse $ payouts dep ptime widx","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:10558"}}],"del_contents":[{"Del":{"text":"payoutsHandler :: QDB IO a -> ReaderT a Snap ()","pos":"MK7ODWHUEPOMAEVK5D3OWW25QRAXKDO4ZVJKNZGWKB5434MP2LNAC:437"}},{"Del":{"text":"payoutsHandler qdb = do ","pos":"MK7ODWHUEPOMAEVK5D3OWW25QRAXKDO4ZVJKNZGWKB5434MP2LNAC:462"}},{"Del":{"text":" let QDB{..} = qdb","pos":"TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC:929"}},{"Del":{"text":" dep = linearDepreciation (Months 6) (Months 60) ","pos":"TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC:984"}},{"Del":{"text":" ptime <- lift . liftIO $ getCurrentTime","pos":"TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC:1027"}},{"Del":{"text":" widx <- mapReaderT liftIO $ readWorkIndex","pos":"TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC:1071"}},{"Del":{"text":" lift . modifyResponse $ addHeader \"content-type\" \"application/json\"","pos":"NJZ3DKZYZTAEHPAEXS3XFWIPCJFR3D4642UQMGQABVFGNKQUEQVAC:481"}},{"Del":{"text":" lift . writeLBS . A.encode . PayoutsResponse $ payouts dep ptime widx","pos":"TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC:1143"}}]}}],"owner":"nuttycom","repo":"aftok","token":"OYMt3M1fWtAqqffBy9vf5d1dgrKh2MsNkrm6ZDwGJOM=","login":null}

…

Dependencies

Change contents

Review