{"header":{"message":"Make payment request retrieval key an opaque 32-bit hash.","description":null,"timestamp":"2017-02-25T21:42:01Z","authors":[{"email":"kris.nuttycombe@gmail.com","name":"Kris Nuttycombe"}]},"hash":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC","authors":[],"deps":{"hashes":[["4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC","Make payment request retrieval key an opaque 32-bit hash."],["AA",null],["AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC","Implement payments service endpoints."],["WAIX6AGNDVJOKTWZ7OP7QOYSJHAJSX5EOWXZHOAO2IG6ALWUCJ6QC","Add event serialization for PaymentRequest & Payment"],["HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC","Added initial auction create route."],["JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC","stylish-haskell formatting."],["QADKFHAR3KWQCNYU25Z7PJUGMD5WL26IU3DOAHBTRN2A7NKPUPKAC","Adds CreatePayment handler implementation."],["GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC","Create amends endpoint, switch to UUID primary keys"],["DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC","Initial work on payments API"],["Y3LIJ5USPMYBG7HKCIQBE7MWVGLQJPJSQD3KPZCTKXP22GOB535QC","Add handler for CreatePaymentRequest"],["IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","Work in progress replacing sqlite with postgres."],["O227CEAV7BTKSE3SSC7XHC5IWEBXZL2AOOKJMBMOOFNTLINBLQMAC","Adds storage of original event JSON for some DBOp constructors."],["2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC","Add invitation logic and clean up DBProg error handling."],["ASF3UPJLCX7KIUCNJD5KAXSPDXCUEJHLL4HBRTRUBPCW73IXOCWQC","Add auction creation and bid handlers"],["RN7EI6INGUUHGMNY5RU3NH56WPLRZY5ZMYDNFMNE3TGV4ESFLQIAC","Update database layer to use CreditTo"],["Q5X5RYQLP5K7REYD6VLHOKC4W36ZELJYA45V6YFKTD5S6MPN3NDQC","stylish-haskell reformatting"],["HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC","Implement core of payments/billing infrastructure."],["SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC","Implement payment request creation functions."],["64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","Rename Ananke -> Quixotic, project reboot."],["NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC","Reformat via stylish-haskell"],["W35DDBFYF6Z4ZPCFEO5RPAONZLYCSNTXUSTS6FIUUVZHCI6Q7GHAC","Factor common JSON conversions up into client lib module."],["BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC","Beginning of modularization of server."],["ADMKQQGCGVSHHIMVQ4XFRDCG544SBJCYALSKZV45CQQBZ4ACUH2AC","Initial empty Snap project."]],"deps":["AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC"],"known":["IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC","2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC","HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC","ASF3UPJLCX7KIUCNJD5KAXSPDXCUEJHLL4HBRTRUBPCW73IXOCWQC","RN7EI6INGUUHGMNY5RU3NH56WPLRZY5ZMYDNFMNE3TGV4ESFLQIAC","DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC","Y3LIJ5USPMYBG7HKCIQBE7MWVGLQJPJSQD3KPZCTKXP22GOB535QC","QADKFHAR3KWQCNYU25Z7PJUGMD5WL26IU3DOAHBTRN2A7NKPUPKAC","O227CEAV7BTKSE3SSC7XHC5IWEBXZL2AOOKJMBMOOFNTLINBLQMAC","WAIX6AGNDVJOKTWZ7OP7QOYSJHAJSX5EOWXZHOAO2IG6ALWUCJ6QC","Q5X5RYQLP5K7REYD6VLHOKC4W36ZELJYA45V6YFKTD5S6MPN3NDQC","HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC","SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC","JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC"]},"hunks":[{"Edit":{"inode":{"change":19,"pos":1},"path":"aftok.cabal","line":41,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":99}],"down_context":[{"change":3,"pos":99}],"flag":"BLOCK","start":1,"end":14,"inode":{"change":19,"pos":1}}},"contents":[{"Add":{"text":" , blake2","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:13"}}]}},{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":9,"atom":{"NewVertex":{"up_context":[{"change":20,"pos":1043}],"down_context":[{"change":3,"pos":511}],"flag":"BLOCK","start":19,"end":163,"inode":{"change":3,"pos":456}}},"contents":[{"Add":{"text":"import qualified Crypto.Hash.BLAKE2.BLAKE2b as B2","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:78"}},{"Add":{"text":"import Crypto.Random.Types (MonadRandom, getRandomBytes)","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:162"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":26,"ins":{"up_context":[{"change":3,"pos":1829}],"down_context":[{"change":3,"pos":1011}],"flag":"BLOCK","start":164,"end":252,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1829},"to":{"change":3,"start":653,"end":722},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":"import Network.Haskoin.Crypto (addrToBase58, encodeBase58Check)","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:251"}}],"del_contents":[{"Del":{"text":"import Network.Haskoin.Crypto (addrToBase58)","pos":"Q5X5RYQLP5K7REYD6VLHOKC4W36ZELJYA45V6YFKTD5S6MPN3NDQC:721"}}]}},{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":47,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":1927}],"down_context":[{"change":3,"pos":1927}],"flag":"BLOCK","start":253,"end":341,"inode":{"change":3,"pos":456}}},"contents":[{"Add":{"text":"","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:253"}},{"Add":{"text":"instance MonadRandom QDBM where","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:285"}},{"Add":{"text":" getRandomBytes = QDBM . lift . lift . getRandomBytes","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:340"}}]}},{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":51,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":1928}],"down_context":[{"change":3,"pos":1928}],"flag":"BLOCK","start":342,"end":343,"inode":{"change":3,"pos":456}}},"contents":[{"Add":{"text":"","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:342"}}]}},{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":486,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":896}],"down_context":[{"change":3,"pos":896}],"flag":"BLOCK","start":344,"end":524,"inode":{"change":3,"pos":456}}},"contents":[{"Add":{"text":" keyBytes <- getRandomBytes 64 ","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:376"}},{"Add":{"text":" let prBytes = req ^. (paymentRequest . to (runPut . encodeMessage))","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:446"}},{"Add":{"text":" urlKey = decodeUtf8 . encodeBase58Check $ B2.hash 32 keyBytes prBytes","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:523"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":491,"ins":{"up_context":[{"change":3,"pos":959}],"down_context":[{"change":3,"pos":6158}],"flag":"BLOCK","start":525,"end":656,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":959},"to":{"change":3,"start":3357,"end":3476},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" \\(subscription_id, event_id, request_data, url_key, request_time, billing_date) \\","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:610"}},{"Add":{"text":" \\VALUES (?, ?, ?, ?, ?, ?) RETURNING id\"","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:655"}}],"del_contents":[{"Del":{"text":" \\(subscription_id, event_id, request_data, request_time, billing_date) \\","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3433"}},{"Del":{"text":" \\VALUES (?, ?, ?, ?, ?) RETURNING id\"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3475"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":495,"ins":{"up_context":[{"change":3,"pos":1566}],"down_context":[{"change":3,"pos":3477}],"flag":"BLOCK","start":657,"end":684,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":1566},"to":{"change":3,"start":1120,"end":1180},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1120},"to":{"change":3,"start":1120,"end":1180},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" , prBytes","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:670"}},{"Add":{"text":" , urlKey","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:683"}}],"del_contents":[{"Del":{"text":" , req ^. (paymentRequest . to (runPut . encodeMessage))","pos":"Y3LIJ5USPMYBG7HKCIQBE7MWVGLQJPJSQD3KPZCTKXP22GOB535QC:1179"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":501,"ins":{"up_context":[{"change":3,"pos":1568}],"down_context":[{"change":3,"pos":3604}],"flag":"BLOCK","start":685,"end":730,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1568},"to":{"change":3,"start":1555,"end":1589},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":"pgEval (FindPaymentRequest (PaymentKey k)) =","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:729"}}],"del_contents":[{"Del":{"text":"pgEval (FindPaymentRequest rid) =","pos":"JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC:1588"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":505,"ins":{"up_context":[{"change":3,"pos":3743}],"down_context":[{"change":3,"pos":1590}],"flag":"BLOCK","start":731,"end":764,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3743},"to":{"change":3,"start":3743,"end":3796},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" \\WHERE url_key = ?\"","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:752"}},{"Add":{"text":" (Only k)","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:763"}}],"del_contents":[{"Del":{"text":" \\WHERE id = ?\"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3759"}},{"Del":{"text":" (Only (rid ^. _PaymentRequestId))","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3795"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":516,"ins":{"up_context":[{"change":2,"pos":750}],"down_context":[{"change":2,"pos":886}],"flag":"BLOCK","start":765,"end":892,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":750},"to":{"change":2,"start":750,"end":886},"introduced_by":2}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" let rowp :: RowParser (PaymentKey, PaymentRequest, B.Subscription, B.Billable)","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:845"}},{"Add":{"text":" rowp = (,,,) <$> (PaymentKey <$> field)","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:891"}}],"del_contents":[{"Del":{"text":" let rowp :: RowParser (PaymentRequestId, PaymentRequest, B.Subscription, B.Billable)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:836"}},{"Del":{"text":" rowp = (,,,) <$> idParser PaymentRequestId","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:885"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":522,"ins":{"up_context":[{"change":2,"pos":1028}],"down_context":[{"change":2,"pos":1048}],"flag":"BLOCK","start":893,"end":920,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":1028},"to":{"change":2,"start":1028,"end":1048},"introduced_by":2}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" \"SELECT r.url_key, \\","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:919"}}],"del_contents":[{"Del":{"text":" \"SELECT id, \\","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1047"}}]}},{"Edit":{"inode":{"change":19,"pos":4936},"path":"lib/Aftok/Database.hs","line":60,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5032},"to":{"change":3,"start":5032,"end":5107},"introduced_by":3}],"inode":{"change":19,"pos":4936}}},"contents":[{"Del":{"text":" FindPaymentRequest :: PaymentRequestId -> DBOp (Maybe PaymentRequest)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:5106"}}]}},{"Edit":{"inode":{"change":19,"pos":4936},"path":"lib/Aftok/Database.hs","line":62,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":1929}],"down_context":[{"change":3,"pos":5194}],"flag":"BLOCK","start":922,"end":991,"inode":{"change":19,"pos":4936}}},"contents":[{"Add":{"text":" FindPaymentRequest :: PaymentKey -> DBOp (Maybe PaymentRequest)","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:990"}}]}},{"Edit":{"inode":{"change":19,"pos":4936},"path":"lib/Aftok/Database.hs","line":205,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":1595}],"down_context":[{"change":2,"pos":2092}],"flag":"BLOCK","start":992,"end":1118,"inode":{"change":19,"pos":4936}}},"contents":[{"Add":{"text":"findPaymentRequest :: (MonadDB m) => PaymentKey -> m (Maybe PaymentRequest)","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1067"}},{"Add":{"text":"findPaymentRequest = liftdb . FindPaymentRequest","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1116"}},{"Add":{"text":"","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1117"}}]}},{"Replacement":{"inode":{"change":21,"pos":19},"path":"lib/Aftok/Json.hs","line":235,"ins":{"up_context":[{"change":2,"pos":4205}],"down_context":[{"change":2,"pos":4274}],"flag":"BLOCK","start":1120,"end":1178,"inode":{"change":21,"pos":19}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":4205},"to":{"change":2,"start":4205,"end":4274},"introduced_by":2}],"inode":{"change":21,"pos":19}},"ins_contents":[{"Add":{"text":" [ [\"payment_request_id\" .= view (_1 . _PaymentKey) r]","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1177"}}],"del_contents":[{"Del":{"text":" [ [\"payment_request_id\" .= idJSON _PaymentRequestId (view _1 r)]","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4273"}}]}},{"Edit":{"inode":{"change":3,"pos":10545},"path":"lib/Aftok/Payments/Types.hs","line":19,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":2433}],"down_context":[{"change":3,"pos":10816}],"flag":"BLOCK","start":1181,"end":1241,"inode":{"change":3,"pos":10545}}},"contents":[{"Add":{"text":"import Network.Haskoin.Crypto (decodeBase58Check)","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1240"}}]}},{"Edit":{"inode":{"change":3,"pos":10545},"path":"lib/Aftok/Payments/Types.hs","line":28,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":11036}],"down_context":[{"change":3,"pos":11036}],"flag":"BLOCK","start":1242,"end":1318,"inode":{"change":3,"pos":10545}}},"contents":[{"Add":{"text":"","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1242"}},{"Add":{"text":"newtype PaymentKey = PaymentKey Text deriving (Eq)","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1293"}},{"Add":{"text":"makePrisms ''PaymentKey","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1317"}}]}},{"Replacement":{"inode":{"change":3,"pos":10545},"path":"lib/Aftok/Payments/Types.hs","line":51,"ins":{"up_context":[{"change":3,"pos":11452}],"down_context":[{"change":2,"pos":4642}],"flag":"BLOCK","start":1319,"end":1390,"inode":{"change":3,"pos":10545}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":11452},"to":{"change":2,"start":4565,"end":4642},"introduced_by":2}],"inode":{"change":3,"pos":10545}},"ins_contents":[{"Add":{"text":"type BillDetail = (PaymentKey, PaymentRequest, Subscription, Billable)","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1389"}}],"del_contents":[{"Del":{"text":"type BillDetail = (PaymentRequestId, PaymentRequest, Subscription, Billable)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4641"}}]}},{"Edit":{"inode":{"change":3,"pos":10545},"path":"lib/Aftok/Payments/Types.hs","line":63,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":2572}],"down_context":[],"flag":"BLOCK","start":1391,"end":1513,"inode":{"change":3,"pos":10545}}},"contents":[{"Add":{"text":"parsePaymentKey :: ByteString -> Maybe PaymentKey","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1440"}},{"Add":{"text":"parsePaymentKey bs = (PaymentKey . decodeUtf8) <$> decodeBase58Check bs","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1512"}}]}},{"Replacement":{"inode":{"change":3,"pos":9762},"path":"server/Aftok/Snaplet/Payments.hs","line":5,"ins":{"up_context":[{"change":2,"pos":5783}],"down_context":[{"change":2,"pos":5835}],"flag":"BLOCK","start":1518,"end":1562,"inode":{"change":3,"pos":9762}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":5783},"to":{"change":2,"start":5783,"end":5835},"introduced_by":2}],"inode":{"change":3,"pos":9762}},"ins_contents":[{"Add":{"text":"import Control.Lens (view)","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1561"}}],"del_contents":[{"Del":{"text":"import Control.Lens (view, _1, _2)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5834"}}]}},{"Edit":{"inode":{"change":3,"pos":9762},"path":"server/Aftok/Snaplet/Payments.hs","line":13,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":6028}],"down_context":[{"change":3,"pos":9900}],"flag":"BLOCK","start":1563,"end":1595,"inode":{"change":3,"pos":9762}}},"contents":[{"Add":{"text":"import Aftok.Database","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1594"}}]}},{"Replacement":{"inode":{"change":3,"pos":9762},"path":"server/Aftok/Snaplet/Payments.hs","line":27,"ins":{"up_context":[{"change":2,"pos":6438}],"down_context":[{"change":3,"pos":17952}],"flag":"BLOCK","start":1596,"end":1985,"inode":{"change":3,"pos":9762}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":2,"pos":6438},"to":{"change":3,"start":10077,"end":10100},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":10077},"to":{"change":3,"start":10077,"end":10100},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":10100},"to":{"change":2,"start":6439,"end":6832},"introduced_by":2}],"inode":{"change":3,"pos":9762}},"ins_contents":[{"Add":{"text":" pkBytes <- requireParam \"paymentRequestKey\" ","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1642"}},{"Add":{"text":" pkey <- maybe ","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1659"}},{"Add":{"text":" (snapError 400 $ \"parameter paymentRequestKey is formatted incorrectly.\") pure ","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1749"}},{"Add":{"text":" (parsePaymentKey pkBytes)","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1785"}},{"Add":{"text":" prMay <- snapEval $ findPaymentRequest pkey","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1831"}},{"Add":{"text":" maybe (snapError 404 $ \"Outstanding payment request not found for key \" <> (view _PaymentKey pkey))","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1933"}},{"Add":{"text":" (pure . view paymentRequest)","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1970"}},{"Add":{"text":" prMay","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1984"}}],"del_contents":[{"Del":{"text":" uid <- requireUserId","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:10099"}},{"Del":{"text":" sid <- requireId \"subscriptionId\" SubscriptionId","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6489"}},{"Del":{"text":" rid <- requireId \"paymentRequestId\" PaymentRequestId","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6544"}},{"Del":{"text":" now <- liftIO $ C.getCurrentTime","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6579"}},{"Del":{"text":" requests <- snapEval $ findPayableRequests uid sid now","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6636"}},{"Del":{"text":" let prMay = fmap (view (_2 . paymentRequest)) . headMay $ filter ((==) rid . view _1) requests","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6733"}},{"Del":{"text":" maybe (snapError 404 $ \"Outstanding payment request not found for id \" <> tshow rid) pure prMay","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6831"}}]}},{"Edit":{"inode":{"change":22,"pos":1088},"path":"server/Aftok/Snaplet.hs","line":64,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":11977}],"down_context":[{"change":2,"pos":7127}],"flag":"BLOCK","start":1987,"end":2191,"inode":{"change":22,"pos":1088}}},"contents":[{"Add":{"text":"requireParam :: MonadSnap m => Text -> m ByteString","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:2038"}},{"Add":{"text":"requireParam name = do","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:2061"}},{"Add":{"text":" maybeBytes <- getParam (encodeUtf8 name)","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:2104"}},{"Add":{"text":" maybe (snapError 400 $ \"Parameter \"<> tshow name <>\" is required\") pure maybeBytes","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:2189"}},{"Add":{"text":"","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:2190"}}]}},{"Replacement":{"inode":{"change":22,"pos":1088},"path":"server/Aftok/Snaplet.hs","line":74,"ins":{"up_context":[{"change":3,"pos":12064}],"down_context":[{"change":2,"pos":7382}],"flag":"BLOCK","start":2192,"end":2376,"inode":{"change":22,"pos":1088}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":12064},"to":{"change":2,"start":7338,"end":7381},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":2,"pos":7381},"to":{"change":3,"start":12094,"end":12366},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":12094},"to":{"change":3,"start":12094,"end":12366},"introduced_by":3}],"inode":{"change":22,"pos":1088}},"ins_contents":[{"Add":{"text":" bytes <- requireParam name","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:2220"}},{"Add":{"text":" either","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:2229"}},{"Add":{"text":" (const . snapError 400 $ \"Value of parameter \"<> tshow name <>\" could not be parsed to a valid value.\")","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:2337"}},{"Add":{"text":" pure","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:2346"}},{"Add":{"text":" (parseOnly parser bytes)","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:2375"}}],"del_contents":[{"Del":{"text":" maybeBytes <- getParam (encodeUtf8 name)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7380"}},{"Del":{"text":" case maybeBytes of","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:12114"}},{"Del":{"text":" Nothing -> snapError 400 $ \"Parameter \"<> tshow name <>\" is required\"","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:12188"}},{"Del":{"text":" Just bytes -> either","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:12213"}},{"Del":{"text":" (const . snapError 400 $ \"Value of parameter \"<> tshow name <>\" could not be parsed to a valid value.\")","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:12323"}},{"Del":{"text":" pure","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:12334"}},{"Del":{"text":" (parseOnly parser bytes)","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:12365"}}]}},{"Replacement":{"inode":{"change":23,"pos":5188},"path":"server/Main.hs","line":87,"ins":{"up_context":[{"change":2,"pos":8473}],"down_context":[{"change":3,"pos":4299}],"flag":"BLOCK","start":2378,"end":2440,"inode":{"change":23,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":8473},"to":{"change":2,"start":8473,"end":8577},"introduced_by":2}],"inode":{"change":23,"pos":5188}},"ins_contents":[{"Add":{"text":" , (\"pay/:paymentRequestKey\", paymentRequestRoute)","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:2439"}}],"del_contents":[{"Del":{"text":" , (\"subscriptions/:subscriptionId/payment_requests/:paymentRequestId\", paymentRequestRoute)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:8576"}}]}}],"owner":"nuttycom","repo":"aftok","token":"3IAgaw/pgKqKkGWNp3S2IJUtAberV3aHMQw+GPM5pFw=","login":null}

…

Dependencies

Change contents

Review