{"header":{"message":"Implement payments service endpoints.","description":"This is not yet fully ready, as the payment request endpoint\nshould not require user login, but should instead use a secure\nidentifier for easy handling by wallet software. However,\nthis is now suitable for initial testing.","timestamp":"2017-02-23T04:29:10Z","authors":[{"email":"kris.nuttycombe@gmail.com","name":"Kris Nuttycombe"}]},"hash":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC","authors":[],"deps":{"hashes":[["AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC","Implement payments service endpoints."],["AA",null],["JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC","stylish-haskell formatting."],["NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC","Reformat via stylish-haskell"],["Z3MK2PJ5U222DXRS22WCDHVPZ7HVAR3HOCUNXIGX6VMEPBQDF6PQC","Add GET handler for retrieving auction data."],["MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC","Utility methods for reading key & cert data."],["NAS4BFL43SIUAAC663R6VFBHQ2DKI45K6Y6ZKVQI7S5547HBAN7QC","Trivial stylish-haskell reformat."],["7VGYLTMURLVSVUYFW7TCRZTDQ6RE2EPSPPA43XKHDOBFWYVVSJHQC","Clean up schema version handling."],["O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC","Undo JSON silliness, enable a couple more routes."],["I2KHGVD44KT4MQJXGCTVSQKMBO6TVCY72F26TLXGWRL6PHGF6RNQC","Require project permissions for access to most data."],["SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC","Implement payment request creation functions."],["RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC","Change to use UUIDs instead of ints for primary keys."],["ASF3UPJLCX7KIUCNJD5KAXSPDXCUEJHLL4HBRTRUBPCW73IXOCWQC","Add auction creation and bid handlers"],["2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC","Add invitation logic and clean up DBProg error handling."],["73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC","Begin implementation of billing event persistence."],["BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC","Beginning of modularization of server."],["HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC","Added initial auction create route."],["HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC","Implement core of payments/billing infrastructure."],["GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC","Create amends endpoint, switch to UUID primary keys"],["PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC","Postgres & auth are beginning to function."],["DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC","Initial work on payments API"],["O227CEAV7BTKSE3SSC7XHC5IWEBXZL2AOOKJMBMOOFNTLINBLQMAC","Adds storage of original event JSON for some DBOp constructors."],["WAIX6AGNDVJOKTWZ7OP7QOYSJHAJSX5EOWXZHOAO2IG6ALWUCJ6QC","Add event serialization for PaymentRequest & Payment"],["QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC","Refactor QDB to use a free monad algebra instead."],["5ZSKPQ3KY6T6O5S6T6HW4OHJMQXA72WKJSJJMGKGX2WMFTNZ7EGAC","Add created_at and auction_start timestamps to auction"],["Y3LIJ5USPMYBG7HKCIQBE7MWVGLQJPJSQD3KPZCTKXP22GOB535QC","Add handler for CreatePaymentRequest"],["Q5X5RYQLP5K7REYD6VLHOKC4W36ZELJYA45V6YFKTD5S6MPN3NDQC","stylish-haskell reformatting"],["64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","Rename Ananke -> Quixotic, project reboot."],["IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","Work in progress replacing sqlite with postgres."],["W35DDBFYF6Z4ZPCFEO5RPAONZLYCSNTXUSTS6FIUUVZHCI6Q7GHAC","Factor common JSON conversions up into client lib module."],["NLZ3JXLOOIL37O3RRQWXHNPNSNEOOLPD6MCB754BEBECQB3KGR2AC","Fix formatting with stylish-haskell."],["ADMKQQGCGVSHHIMVQ4XFRDCG544SBJCYALSKZV45CQQBZ4ACUH2AC","Initial empty Snap project."],["O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC","Add route to allow crediting of events to users/projects."]],"deps":["JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC"],"known":["BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC","I2KHGVD44KT4MQJXGCTVSQKMBO6TVCY72F26TLXGWRL6PHGF6RNQC","PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC","O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC","RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC","GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC","QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC","2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC","NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC","HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC","Z3MK2PJ5U222DXRS22WCDHVPZ7HVAR3HOCUNXIGX6VMEPBQDF6PQC","ASF3UPJLCX7KIUCNJD5KAXSPDXCUEJHLL4HBRTRUBPCW73IXOCWQC","7VGYLTMURLVSVUYFW7TCRZTDQ6RE2EPSPPA43XKHDOBFWYVVSJHQC","NAS4BFL43SIUAAC663R6VFBHQ2DKI45K6Y6ZKVQI7S5547HBAN7QC","5ZSKPQ3KY6T6O5S6T6HW4OHJMQXA72WKJSJJMGKGX2WMFTNZ7EGAC","DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC","73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC","Y3LIJ5USPMYBG7HKCIQBE7MWVGLQJPJSQD3KPZCTKXP22GOB535QC","O227CEAV7BTKSE3SSC7XHC5IWEBXZL2AOOKJMBMOOFNTLINBLQMAC","WAIX6AGNDVJOKTWZ7OP7QOYSJHAJSX5EOWXZHOAO2IG6ALWUCJ6QC","Q5X5RYQLP5K7REYD6VLHOKC4W36ZELJYA45V6YFKTD5S6MPN3NDQC","HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC","MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC","SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC"]},"hunks":[{"Edit":{"inode":{"change":28,"pos":1},"path":"aftok.cabal","line":132,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":592}],"down_context":[{"change":3,"pos":592}],"flag":"BLOCK","start":1,"end":41,"inode":{"change":28,"pos":1}}},"contents":[{"Add":{"text":" , Aftok.Snaplet.Payments","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:40"}}]}},{"Edit":{"inode":{"change":28,"pos":1},"path":"aftok.cabal","line":146,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":758}],"down_context":[{"change":3,"pos":1144}],"flag":"BLOCK","start":42,"end":55,"inode":{"change":28,"pos":1}}},"contents":[{"Add":{"text":" , cereal","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:54"}}]}},{"Edit":{"inode":{"change":28,"pos":1},"path":"aftok.cabal","line":163,"atom":{"NewVertex":{"up_context":[{"change":29,"pos":7376}],"down_context":[{"change":3,"pos":731}],"flag":"BLOCK","start":56,"end":71,"inode":{"change":28,"pos":1}}},"contents":[{"Add":{"text":" , protobuf","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:70"}}]}},{"Edit":{"inode":{"change":3,"pos":760},"path":"lib/Aftok/Billables.hs","line":4,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":1016}],"down_context":[{"change":2,"pos":74}],"flag":"BLOCK","start":75,"end":110,"inode":{"change":3,"pos":760}}},"contents":[{"Add":{"text":"{-# LANGUAGE ExplicitForAll #-}","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:109"}}]}},{"Replacement":{"inode":{"change":3,"pos":760},"path":"lib/Aftok/Billables.hs","line":78,"ins":{"up_context":[{"change":3,"pos":1424}],"down_context":[{"change":3,"pos":1480}],"flag":"BLOCK","start":111,"end":189,"inode":{"change":3,"pos":760}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1424},"to":{"change":3,"start":358,"end":394},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":394},"to":{"change":2,"start":639,"end":659},"introduced_by":2}],"inode":{"change":3,"pos":760}},"ins_contents":[{"Add":{"text":"data Subscription' u b = Subscription","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:148"}},{"Add":{"text":" { _customer :: u","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:168"}},{"Add":{"text":" , _billable :: b","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:188"}}],"del_contents":[{"Del":{"text":"data Subscription' b = Subscription","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:393"}},{"Del":{"text":" { _billable :: b","pos":"JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC:658"}}]}},{"Replacement":{"inode":{"change":3,"pos":760},"path":"lib/Aftok/Billables.hs","line":86,"ins":{"up_context":[{"change":3,"pos":1030}],"down_context":[{"change":3,"pos":1659}],"flag":"BLOCK","start":190,"end":242,"inode":{"change":3,"pos":760}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1030},"to":{"change":3,"start":1614,"end":1659},"introduced_by":3}],"inode":{"change":3,"pos":760}},"ins_contents":[{"Add":{"text":"type Subscription = Subscription' UserId BillableId","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:241"}}],"del_contents":[{"Del":{"text":"type Subscription = Subscription' BillableId","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:1658"}}]}},{"Replacement":{"inode":{"change":3,"pos":760},"path":"lib/Aftok/Billables.hs","line":100,"ins":{"up_context":[{"change":3,"pos":787}],"down_context":[{"change":3,"pos":840}],"flag":"BLOCK","start":243,"end":308,"inode":{"change":3,"pos":760}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":787},"to":{"change":3,"start":787,"end":840},"introduced_by":3}],"inode":{"change":3,"pos":760}},"ins_contents":[{"Add":{"text":"billingSchedule :: forall u. Subscription' u Billable -> [T.Day]","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:307"}}],"del_contents":[{"Del":{"text":"billingSchedule :: Subscription' Billable -> [T.Day]","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:839"}}]}},{"Replacement":{"inode":{"change":29,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":167,"ins":{"up_context":[{"change":2,"pos":1442}],"down_context":[{"change":3,"pos":4057}],"flag":"BLOCK","start":311,"end":391,"inode":{"change":29,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":2,"pos":1442},"to":{"change":3,"start":4011,"end":4057},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4011},"to":{"change":3,"start":4011,"end":4057},"introduced_by":3}],"inode":{"change":29,"pos":456}},"ins_contents":[{"Add":{"text":" B.Subscription <$> idParser UserId","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:347"}},{"Add":{"text":" <*> idParser B.BillableId","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:390"}}],"del_contents":[{"Del":{"text":" B.Subscription <$> (B.BillableId <$> field)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:4056"}}]}},{"Replacement":{"inode":{"change":29,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":210,"ins":{"up_context":[{"change":3,"pos":264}],"down_context":[{"change":3,"pos":384}],"flag":"BLOCK","start":392,"end":517,"inode":{"change":29,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":264},"to":{"change":3,"start":4147,"end":4268},"introduced_by":3}],"inode":{"change":29,"pos":456}},"ins_contents":[{"Add":{"text":"storeEvent (CreateSubscription uid bid) =","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:433"}},{"Add":{"text":" Just $ storeEventJSON uid \"create_subscription\" (createSubscriptionJSON uid bid)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:516"}}],"del_contents":[{"Del":{"text":"storeEvent (CreateSubscription uid s) =","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:4186"}},{"Del":{"text":" Just $ storeEventJSON uid \"create_subscription\" (createSubscriptionJSON uid s)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:4267"}}]}},{"Replacement":{"inode":{"change":29,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":450,"ins":{"up_context":[{"change":3,"pos":3943}],"down_context":[{"change":3,"pos":576}],"flag":"BLOCK","start":518,"end":566,"inode":{"change":29,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3943},"to":{"change":3,"start":5629,"end":5675},"introduced_by":3}],"inode":{"change":29,"pos":456}},"ins_contents":[{"Add":{"text":"pgEval dbop @ (CreateSubscription uid bid) = do","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:565"}}],"del_contents":[{"Del":{"text":"pgEval dbop @ (CreateSubscription uid s) = do","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:5674"}}]}},{"Replacement":{"inode":{"change":29,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":456,"ins":{"up_context":[{"change":3,"pos":746}],"down_context":[{"change":3,"pos":3074}],"flag":"BLOCK","start":567,"end":653,"inode":{"change":29,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":746},"to":{"change":3,"start":5704,"end":5781},"introduced_by":3}],"inode":{"change":29,"pos":456}},"ins_contents":[{"Add":{"text":" ( view _UserId uid","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:589"}},{"Add":{"text":" , view B._BillableId bid","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:618"}},{"Add":{"text":" , view _EventId eventId","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:646"}},{"Add":{"text":" )","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:652"}}],"del_contents":[{"Del":{"text":" (uid ^. _UserId, s ^. (B.billable . B._BillableId), eventId ^. _EventId)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:5780"}}]}},{"Replacement":{"inode":{"change":29,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":470,"ins":{"up_context":[{"change":3,"pos":3356}],"down_context":[{"change":3,"pos":5935}],"flag":"BLOCK","start":654,"end":715,"inode":{"change":29,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":3356},"to":{"change":3,"start":5883,"end":5935},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5883},"to":{"change":3,"start":5883,"end":5935},"introduced_by":3}],"inode":{"change":29,"pos":456}},"ins_contents":[{"Add":{"text":" \"SELECT id, user_id, billable_id, start_date, end_date \\","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:714"}}],"del_contents":[{"Del":{"text":" \"SELECT id, billable_id, start_date, end_date \\","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:5934"}}]}},{"Edit":{"inode":{"change":29,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":505,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":4073}],"down_context":[{"change":3,"pos":4073}],"flag":"BLOCK","start":716,"end":1642,"inode":{"change":29,"pos":456}}},"contents":[{"Add":{"text":"pgEval (FindUnpaidRequests sid) =","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:749"}},{"Add":{"text":" let rowp :: RowParser (PaymentRequestId, PaymentRequest, B.Subscription, B.Billable)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:836"}},{"Add":{"text":" rowp = (,,,) <$> idParser PaymentRequestId","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:885"}},{"Add":{"text":" <*> paymentRequestParser","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:929"}},{"Add":{"text":" <*> subscriptionParser","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:971"}},{"Add":{"text":" <*> billableParser","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1009"}},{"Add":{"text":" in pquery rowp","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1027"}},{"Add":{"text":" \"SELECT id, \\","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1047"}},{"Add":{"text":" \\ r.subscription_id, r.request_data, r.request_time, r.billing_date, \\","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1130"}},{"Add":{"text":" \\ s.user_id, s.billable_id, s.start_date, s.end_date, \\","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1198"}},{"Add":{"text":" \\ b.project_id, e.created_by, b.name, b.description, b.recurrence_type, \\","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1284"}},{"Add":{"text":" \\ b.recurrence_count, b.billing_amount, b.grace_period_days \\","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1358"}},{"Add":{"text":" \\FROM payment_requests r \\","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1391"}},{"Add":{"text":" \\JOIN subscriptions s on s.id = r.subscription_id \\","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1449"}},{"Add":{"text":" \\JOIN billables b on b.id = s.billable_id \\","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1499"}},{"Add":{"text":" \\WHERE subscription_id = ? \\","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1534"}},{"Add":{"text":" \\AND r.id NOT IN (SELECT payment_request_id FROM payments)\"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1600"}},{"Add":{"text":" (Only (sid ^. B._SubscriptionId))","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1640"}},{"Add":{"text":"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1641"}}]}},{"Replacement":{"inode":{"change":28,"pos":4936},"path":"lib/Aftok/Database.hs","line":55,"ins":{"up_context":[{"change":3,"pos":13383}],"down_context":[{"change":3,"pos":4199}],"flag":"BLOCK","start":1644,"end":1865,"inode":{"change":28,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":13383},"to":{"change":3,"start":6500,"end":6570},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6570},"to":{"change":3,"start":4887,"end":4954},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":4954},"to":{"change":3,"start":6570,"end":6654},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6570},"to":{"change":3,"start":6570,"end":6654},"introduced_by":3}],"inode":{"change":28,"pos":4936}},"ins_contents":[{"Add":{"text":" CreateSubscription :: UserId -> BillableId -> DBOp SubscriptionId","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1711"}},{"Add":{"text":" FindSubscription :: SubscriptionId -> DBOp (Maybe Subscription)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1779"}},{"Add":{"text":" FindSubscriptions :: UserId -> ProjectId -> DBOp [(SubscriptionId, Subscription)]","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1864"}}],"del_contents":[{"Del":{"text":" CreateSubscription :: UserId -> Subscription -> DBOp SubscriptionId","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:6569"}},{"Del":{"text":" FindSubscription :: SubscriptionId -> DBOp (Maybe Subscription)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4953"}},{"Del":{"text":" FindSubscriptions :: UserId -> ProjectId -> DBOp [(SubscriptionId, Subscription)]","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:6653"}}]}},{"Edit":{"inode":{"change":28,"pos":4936},"path":"lib/Aftok/Database.hs","line":62,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":5194}],"down_context":[{"change":3,"pos":5194}],"flag":"BLOCK","start":1866,"end":1929,"inode":{"change":28,"pos":4936}}},"contents":[{"Add":{"text":" FindUnpaidRequests :: SubscriptionId -> DBOp [BillDetail]","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1928"}}]}},{"Edit":{"inode":{"change":28,"pos":4936},"path":"lib/Aftok/Database.hs","line":71,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":7295}],"down_context":[{"change":3,"pos":4843}],"flag":"BLOCK","start":1930,"end":1988,"inode":{"change":28,"pos":4936}}},"contents":[{"Add":{"text":" | UserNotSubscriber SubscriptionId","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1987"}}]}},{"Replacement":{"inode":{"change":28,"pos":4936},"path":"lib/Aftok/Database.hs","line":197,"ins":{"up_context":[{"change":3,"pos":5730}],"down_context":[{"change":3,"pos":5825}],"flag":"BLOCK","start":1989,"end":2091,"inode":{"change":28,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5730},"to":{"change":3,"start":5730,"end":5825},"introduced_by":3}],"inode":{"change":28,"pos":4936}},"ins_contents":[{"Add":{"text":"findSubscriptionBillable :: (MonadDB m) => SubscriptionId -> MaybeT m (Subscription' UserId Billable)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2090"}}],"del_contents":[{"Del":{"text":"findSubscriptionBillable :: (MonadDB m) => SubscriptionId -> MaybeT m (Subscription' Billable)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:5824"}}]}},{"Edit":{"inode":{"change":28,"pos":4936},"path":"lib/Aftok/Database.hs","line":205,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":1595}],"down_context":[{"change":3,"pos":6084}],"flag":"BLOCK","start":2092,"end":2333,"inode":{"change":28,"pos":4936}}},"contents":[{"Add":{"text":"-- this could be implemented in terms of other operations, but it's","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2159"}},{"Add":{"text":"-- much cleaner to just do the joins in the database","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2212"}},{"Add":{"text":"findUnpaidRequests :: (MonadDB m) => SubscriptionId -> m [BillDetail]","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2282"}},{"Add":{"text":"findUnpaidRequests = liftdb . FindUnpaidRequests","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2331"}},{"Add":{"text":"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2332"}}]}},{"Edit":{"inode":{"change":30,"pos":19},"path":"lib/Aftok/Json.hs","line":3,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":1002}],"down_context":[{"change":31,"pos":881}],"flag":"BLOCK","start":2335,"end":2371,"inode":{"change":30,"pos":19}}},"contents":[{"Add":{"text":"{-# LANGUAGE RankNTypes #-}","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2370"}}]}},{"Edit":{"inode":{"change":30,"pos":19},"path":"lib/Aftok/Json.hs","line":33,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":551}],"down_context":[{"change":3,"pos":116}],"flag":"BLOCK","start":2372,"end":2435,"inode":{"change":30,"pos":19}}},"contents":[{"Add":{"text":"import Aftok.Payments.Types (BillDetail)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2434"}}]}},{"Edit":{"inode":{"change":30,"pos":19},"path":"lib/Aftok/Json.hs","line":103,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":5169}],"down_context":[{"change":30,"pos":485}],"flag":"BLOCK","start":2436,"end":2523,"inode":{"change":30,"pos":19}}},"contents":[{"Add":{"text":"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2436"}},{"Add":{"text":"idJSON :: forall a. Lens' a UUID -> a -> Value","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2483"}},{"Add":{"text":"idJSON l a = toJSON . tshow $ view l a","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2522"}}]}},{"Replacement":{"inode":{"change":30,"pos":19},"path":"lib/Aftok/Json.hs","line":180,"ins":{"up_context":[{"change":3,"pos":1605}],"down_context":[{"change":3,"pos":1844}],"flag":"BLOCK","start":2524,"end":2997,"inode":{"change":30,"pos":19}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1605},"to":{"change":3,"start":1605,"end":1627},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1627},"to":{"change":3,"start":552,"end":620},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":620},"to":{"change":3,"start":1690,"end":1836},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1690},"to":{"change":3,"start":1690,"end":1836},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1836},"to":{"change":3,"start":10115,"end":10168},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":10168},"to":{"change":3,"start":6328,"end":6374},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":6374},"to":{"change":3,"start":10224,"end":10305},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":10224},"to":{"change":3,"start":10224,"end":10305},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":10305},"to":{"change":3,"start":1836,"end":1844},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1836},"to":{"change":3,"start":1836,"end":1844},"introduced_by":3}],"inode":{"change":30,"pos":19}},"ins_contents":[{"Add":{"text":"billableJSON = v1 . obj . billableKV","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2560"}},{"Add":{"text":"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2561"}},{"Add":{"text":"billableKV :: (KeyValue kv) => B.Billable -> [kv]","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2611"}},{"Add":{"text":"billableKV b =","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2626"}},{"Add":{"text":" [ \"projectId\" .= (b ^. (B.project . _ProjectId . to tshow))","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2690"}},{"Add":{"text":" , \"name\" .= (b ^. B.name)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2725"}},{"Add":{"text":" , \"description\" .= (b ^. B.description)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2767"}},{"Add":{"text":" , \"recurrence\" .= recurrenceJSON' (b ^. B.recurrence)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2824"}},{"Add":{"text":" , \"amount\" .= (b ^. (B.amount . satoshi))","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2873"}},{"Add":{"text":" , \"gracePeriod\" .= (b ^. B.gracePeriod)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2915"}},{"Add":{"text":" , \"requestExpiryPeriod\" .= (C.toSeconds' <$> (b ^. B.requestExpiryPeriod))","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2992"}},{"Add":{"text":" ]","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:2996"}}],"del_contents":[{"Del":{"text":"billableJSON b = v1 $","pos":"O227CEAV7BTKSE3SSC7XHC5IWEBXZL2AOOKJMBMOOFNTLINBLQMAC:1626"}},{"Del":{"text":" obj [ \"projectId\" .= (b ^. (B.project . _ProjectId . to tshow))","pos":"WAIX6AGNDVJOKTWZ7OP7QOYSJHAJSX5EOWXZHOAO2IG6ALWUCJ6QC:619"}},{"Del":{"text":" , \"name\" .= (b ^. B.name)","pos":"O227CEAV7BTKSE3SSC7XHC5IWEBXZL2AOOKJMBMOOFNTLINBLQMAC:1728"}},{"Del":{"text":" , \"description\" .= (b ^. B.description)","pos":"O227CEAV7BTKSE3SSC7XHC5IWEBXZL2AOOKJMBMOOFNTLINBLQMAC:1774"}},{"Del":{"text":" , \"recurrence\" .= recurrenceJSON' (b ^. B.recurrence)","pos":"O227CEAV7BTKSE3SSC7XHC5IWEBXZL2AOOKJMBMOOFNTLINBLQMAC:1835"}},{"Del":{"text":" , \"amount\" .= (b ^. (B.amount . satoshi))","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:10167"}},{"Del":{"text":" , \"gracePeriod\" .= (b ^. B.gracePeriod)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6373"}},{"Del":{"text":" , \"requestExpiryPeriod\" .= (C.toSeconds' <$> (b ^. B.requestExpiryPeriod))","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:10304"}},{"Del":{"text":" ]","pos":"O227CEAV7BTKSE3SSC7XHC5IWEBXZL2AOOKJMBMOOFNTLINBLQMAC:1843"}}]}},{"Replacement":{"inode":{"change":30,"pos":19},"path":"lib/Aftok/Json.hs","line":200,"ins":{"up_context":[{"change":3,"pos":5682}],"down_context":[{"change":3,"pos":621}],"flag":"BLOCK","start":2998,"end":3188,"inode":{"change":30,"pos":19}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5682},"to":{"change":3,"start":10306,"end":10521},"introduced_by":3}],"inode":{"change":30,"pos":19}},"ins_contents":[{"Add":{"text":"createSubscriptionJSON :: UserId -> B.BillableId -> Value","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3055"}},{"Add":{"text":"createSubscriptionJSON uid bid = v1 $","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3093"}},{"Add":{"text":" obj [ \"user_id\" .= idJSON _UserId uid","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3137"}},{"Add":{"text":" , \"billable_id\" .= idJSON B._BillableId bid","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3187"}}],"del_contents":[{"Del":{"text":"createSubscriptionJSON :: UserId -> B.Subscription -> Value","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:10365"}},{"Del":{"text":"createSubscriptionJSON uid sub = v1 $","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:10403"}},{"Del":{"text":" obj [ \"user_id\" .= tshow (uid ^. _UserId)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:10451"}},{"Del":{"text":" , \"billable_id\" .= tshow (sub ^. (B.billable . B._BillableId))","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:10520"}}]}},{"Edit":{"inode":{"change":30,"pos":19},"path":"lib/Aftok/Json.hs","line":205,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":629}],"down_context":[{"change":3,"pos":629}],"flag":"BLOCK","start":3189,"end":3279,"inode":{"change":30,"pos":19}}},"contents":[{"Add":{"text":"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3189"}},{"Add":{"text":"subscriptionJSON :: B.Subscription -> Value","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3233"}},{"Add":{"text":"subscriptionJSON = v1 . obj . subscriptionKV","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3278"}}]}},{"Edit":{"inode":{"change":30,"pos":19},"path":"lib/Aftok/Json.hs","line":209,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":630}],"down_context":[{"change":3,"pos":630}],"flag":"BLOCK","start":3280,"end":3562,"inode":{"change":30,"pos":19}}},"contents":[{"Add":{"text":"subscriptionKV :: (KeyValue kv) => B.Subscription -> [kv]","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3337"}},{"Add":{"text":"subscriptionKV sub =","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3358"}},{"Add":{"text":" [ \"user_id\" .= idJSON (B.customer . _UserId) sub","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3413"}},{"Add":{"text":" , \"billable_id\" .= idJSON (B.billable . B._BillableId) sub","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3474"}},{"Add":{"text":" , \"start_time\" .= view B.startTime sub","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3516"}},{"Add":{"text":" , \"end_time\" .= view B.endTime sub","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3556"}},{"Add":{"text":" ]","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3560"}},{"Add":{"text":"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3561"}}]}},{"Replacement":{"inode":{"change":30,"pos":19},"path":"lib/Aftok/Json.hs","line":218,"ins":{"up_context":[{"change":3,"pos":676}],"down_context":[{"change":3,"pos":975}],"flag":"BLOCK","start":3563,"end":4131,"inode":{"change":30,"pos":19}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":676},"to":{"change":3,"start":676,"end":907},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":907},"to":{"change":3,"start":6443,"end":6569},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":6569},"to":{"change":3,"start":967,"end":975},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":967},"to":{"change":3,"start":967,"end":975},"introduced_by":3}],"inode":{"change":30,"pos":19}},"ins_contents":[{"Add":{"text":"paymentRequestJSON = v1 . obj . paymentRequestKV","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3611"}},{"Add":{"text":"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3612"}},{"Add":{"text":"paymentRequestKV :: (KeyValue kv) => PaymentRequest -> [kv]","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3672"}},{"Add":{"text":"paymentRequestKV r =","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3693"}},{"Add":{"text":" [ \"subscription_id\" .= (r ^. (subscription . B._SubscriptionId . to tshow))","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3771"}},{"Add":{"text":" , \"payment_request_protobuf_64\" .= (r ^. (paymentRequest . to (decodeUtf8 . B64.encode . runPut . encodeMessage)))","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3888"}},{"Add":{"text":" , \"payment_request_time\" .= (r ^. paymentRequestTime)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:3944"}},{"Add":{"text":" , \"billing_date\" .= (r ^. (billingDate . to showGregorian))","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4006"}},{"Add":{"text":" ]","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4010"}},{"Add":{"text":"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4011"}},{"Add":{"text":"billDetailsJSON :: [BillDetail] -> Value","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4052"}},{"Add":{"text":"billDetailsJSON r = v1 $","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4077"}},{"Add":{"text":" obj [\"payment_requests\" .= fmap billDetailJSON r ]","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4130"}}],"del_contents":[{"Del":{"text":"paymentRequestJSON r = v1 $","pos":"WAIX6AGNDVJOKTWZ7OP7QOYSJHAJSX5EOWXZHOAO2IG6ALWUCJ6QC:703"}},{"Del":{"text":" obj [ \"subscription_id\" .= (r ^. (subscription . B._SubscriptionId . to tshow))","pos":"WAIX6AGNDVJOKTWZ7OP7QOYSJHAJSX5EOWXZHOAO2IG6ALWUCJ6QC:785"}},{"Del":{"text":" , \"payment_request_protobuf_64\" .= (r ^. (paymentRequest . to (decodeUtf8 . B64.encode . runPut . encodeMessage)))","pos":"WAIX6AGNDVJOKTWZ7OP7QOYSJHAJSX5EOWXZHOAO2IG6ALWUCJ6QC:906"}},{"Del":{"text":" , \"payment_request_time\" .= (r ^. paymentRequestTime)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6502"}},{"Del":{"text":" , \"billing_date\" .= (r ^. (billingDate . to showGregorian))","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6568"}},{"Del":{"text":" ]","pos":"WAIX6AGNDVJOKTWZ7OP7QOYSJHAJSX5EOWXZHOAO2IG6ALWUCJ6QC:974"}}]}},{"Edit":{"inode":{"change":30,"pos":19},"path":"lib/Aftok/Json.hs","line":232,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":976}],"down_context":[{"change":3,"pos":976}],"flag":"BLOCK","start":4132,"end":4378,"inode":{"change":30,"pos":19}}},"contents":[{"Add":{"text":"billDetailJSON :: BillDetail -> Object","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4170"}},{"Add":{"text":"billDetailJSON r =","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4189"}},{"Add":{"text":" obj $ concat","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4204"}},{"Add":{"text":" [ [\"payment_request_id\" .= idJSON _PaymentRequestId (view _1 r)]","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4273"}},{"Add":{"text":" , paymentRequestKV $ view _2 r","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4308"}},{"Add":{"text":" , subscriptionKV $ view _3 r","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4341"}},{"Add":{"text":" , billableKV $ view _4 r","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4370"}},{"Add":{"text":" ]","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4376"}},{"Add":{"text":"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4377"}}]}},{"Edit":{"inode":{"change":3,"pos":10545},"path":"lib/Aftok/Payments/Types.hs","line":4,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":6670}],"down_context":[{"change":2,"pos":2210}],"flag":"BLOCK","start":4381,"end":4416,"inode":{"change":3,"pos":10545}}},"contents":[{"Add":{"text":"{-# LANGUAGE ExplicitForAll #-}","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4415"}}]}},{"Replacement":{"inode":{"change":3,"pos":10545},"path":"lib/Aftok/Payments/Types.hs","line":11,"ins":{"up_context":[{"change":3,"pos":10647}],"down_context":[{"change":3,"pos":10703}],"flag":"BLOCK","start":4417,"end":4485,"inode":{"change":3,"pos":10545}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":10647},"to":{"change":2,"start":2246,"end":2308},"introduced_by":2}],"inode":{"change":3,"pos":10545}},"ins_contents":[{"Add":{"text":"import Control.Lens (makeLenses, makePrisms, view)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4484"}}],"del_contents":[{"Del":{"text":"import Control.Lens (makeLenses, makePrisms)","pos":"JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC:2307"}}]}},{"Replacement":{"inode":{"change":3,"pos":10545},"path":"lib/Aftok/Payments/Types.hs","line":20,"ins":{"up_context":[{"change":3,"pos":10817}],"down_context":[{"change":3,"pos":10857}],"flag":"BLOCK","start":4486,"end":4564,"inode":{"change":3,"pos":10545}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":10817},"to":{"change":2,"start":2434,"end":2488},"introduced_by":2}],"inode":{"change":3,"pos":10545}},"ins_contents":[{"Add":{"text":"import Aftok.Billables (Billable, Subscription, SubscriptionId)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4563"}}],"del_contents":[{"Del":{"text":"import Aftok.Billables (SubscriptionId)","pos":"JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC:2487"}}]}},{"Edit":{"inode":{"change":3,"pos":10545},"path":"lib/Aftok/Payments/Types.hs","line":47,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":11452}],"down_context":[{"change":3,"pos":6960}],"flag":"BLOCK","start":4565,"end":4643,"inode":{"change":3,"pos":10545}}},"contents":[{"Add":{"text":"type BillDetail = (PaymentRequestId, PaymentRequest, Subscription, Billable)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4641"}},{"Add":{"text":"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4642"}}]}},{"Replacement":{"inode":{"change":3,"pos":10545},"path":"lib/Aftok/Payments/Types.hs","line":52,"ins":{"up_context":[{"change":3,"pos":7098}],"down_context":[{"change":2,"pos":2489}],"flag":"BLOCK","start":4644,"end":4706,"inode":{"change":3,"pos":10545}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":7098},"to":{"change":3,"start":7098,"end":7149},"introduced_by":3}],"inode":{"change":3,"pos":10545}},"ins_contents":[{"Add":{"text":"isExpired :: forall s. C.UTCTime -> PaymentRequest' s -> Bool","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4705"}}],"del_contents":[{"Del":{"text":"isExpired :: C.UTCTime -> P.PaymentRequest -> Bool","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7148"}}]}},{"Replacement":{"inode":{"change":3,"pos":10545},"path":"lib/Aftok/Payments/Types.hs","line":57,"ins":{"up_context":[{"change":3,"pos":7313}],"down_context":[{"change":2,"pos":2571}],"flag":"BLOCK","start":4707,"end":4793,"inode":{"change":3,"pos":10545}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":7313},"to":{"change":3,"start":7313,"end":7377},"introduced_by":3}],"inode":{"change":3,"pos":10545}},"ins_contents":[{"Add":{"text":" in either error (check . getExpires) $ getPaymentDetails (view paymentRequest req)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4792"}}],"del_contents":[{"Del":{"text":" in either error (check . getExpires) $ getPaymentDetails req","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7376"}}]}},{"Replacement":{"inode":{"change":3,"pos":5686},"path":"lib/Aftok/Payments.hs","line":48,"ins":{"up_context":[{"change":3,"pos":7803}],"down_context":[{"change":3,"pos":8102}],"flag":"BLOCK","start":4795,"end":5100,"inode":{"change":3,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":7803},"to":{"change":2,"start":3877,"end":4080},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":2,"pos":4080},"to":{"change":3,"start":8000,"end":8102},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":8000},"to":{"change":3,"start":8000,"end":8102},"introduced_by":3}],"inode":{"change":3,"pos":5686}},"ins_contents":[{"Add":{"text":" { memoGen :: Subscription' UserId Billable -> m (Maybe Text) -- ^ generator user memo","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4885"}},{"Add":{"text":" , uriGen :: Subscription' UserId Billable -> m (Maybe URI) -- ^ generator for payment response URL","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:4991"}},{"Add":{"text":" , payloadGen :: Subscription' UserId Billable -> m (Maybe ByteString) -- ^ generator for merchant payload","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5099"}}],"del_contents":[{"Del":{"text":" { memoGen :: Subscription' Billable -> m (Maybe Text) -- ^ generator user memo","pos":"JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC:3970"}},{"Del":{"text":" , uriGen :: Subscription' Billable -> m (Maybe URI) -- ^ generator for payment response URL","pos":"JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC:4079"}},{"Del":{"text":" , payloadGen :: Subscription' Billable -> m (Maybe ByteString) -- ^ generator for merchant payload","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8101"}}]}},{"Edit":{"inode":{"change":3,"pos":5686},"path":"lib/Aftok/Payments.hs","line":63,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":2,"pos":4109},"to":{"change":3,"start":12611,"end":12612},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":3,"pos":8495},"to":{"change":3,"start":12611,"end":12612},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":12611},"to":{"change":3,"start":12611,"end":12612},"introduced_by":3}],"inode":{"change":3,"pos":5686}}},"contents":[{"Del":{"text":"","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:12611"}}]}},{"Replacement":{"inode":{"change":3,"pos":5686},"path":"lib/Aftok/Payments.hs","line":106,"ins":{"up_context":[{"change":3,"pos":10170}],"down_context":[{"change":3,"pos":10198}],"flag":"BLOCK","start":5101,"end":5136,"inode":{"change":3,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":10170},"to":{"change":3,"start":10170,"end":10198},"introduced_by":3}],"inode":{"change":3,"pos":5686}},"ins_contents":[{"Add":{"text":" -> Subscription' UserId Billable","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5135"}}],"del_contents":[{"Del":{"text":" -> Subscription' Billable","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10197"}}]}},{"Replacement":{"inode":{"change":3,"pos":5686},"path":"lib/Aftok/Payments.hs","line":149,"ins":{"up_context":[{"change":2,"pos":4665}],"down_context":[{"change":3,"pos":12525}],"flag":"BLOCK","start":5137,"end":5206,"inode":{"change":3,"pos":5686}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":2,"pos":4665},"to":{"change":3,"start":12434,"end":12525},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":12434},"to":{"change":3,"start":12434,"end":12525},"introduced_by":3}],"inode":{"change":3,"pos":5686}},"ins_contents":[{"Add":{"text":" let ifUnpaid = (if isExpired now req then Expired else Unpaid) req","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5205"}}],"del_contents":[{"Del":{"text":" let ifUnpaid = (if isExpired now (view paymentRequest req) then Expired else Unpaid) req","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:12524"}}]}},{"Edit":{"inode":{"change":3,"pos":5686},"path":"lib/Aftok/Payments.hs","line":210,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":15982}],"down_context":[],"flag":"BLOCK","start":5207,"end":5641,"inode":{"change":3,"pos":5686}}},"contents":[{"Add":{"text":"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5207"}},{"Add":{"text":"findPayableRequests :: (MonadDB m) => UserId -> SubscriptionId -> C.UTCTime -> m [BillDetail]","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5301"}},{"Add":{"text":"findPayableRequests uid sid now = do","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5338"}},{"Add":{"text":" requests <- liftdb findOp","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5366"}},{"Add":{"text":" join <$> (traverse checkAccess $ filter (not . isExpired now . view _2) requests)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5450"}},{"Add":{"text":" where","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5458"}},{"Add":{"text":" findOp = FindUnpaidRequests sid","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5494"}},{"Add":{"text":" checkAccess d =","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5514"}},{"Add":{"text":" if view (_3 . customer) d == uid","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5553"}},{"Add":{"text":" then pure [d]","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5575"}},{"Add":{"text":" else raiseOpForbidden uid (UserNotSubscriber sid) findOp","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5640"}}]}},{"Edit":{"inode":{"change":3,"pos":2441},"path":"server/Aftok/Snaplet/Auctions.hs","line":15,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":1843}],"down_context":[{"change":3,"pos":2723}],"flag":"BLOCK","start":5646,"end":5690,"inode":{"change":3,"pos":2441}}},"contents":[{"Add":{"text":"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5646"}},{"Add":{"text":"import Snap.Snaplet as S","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5689"}}]}},{"Replacement":{"inode":{"change":3,"pos":2441},"path":"server/Aftok/Snaplet/Auctions.hs","line":24,"ins":{"up_context":[{"change":3,"pos":2895}],"down_context":[{"change":3,"pos":2926}],"flag":"BLOCK","start":5691,"end":5722,"inode":{"change":3,"pos":2441}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2895},"to":{"change":3,"start":17190,"end":17233},"introduced_by":3}],"inode":{"change":3,"pos":2441}},"ins_contents":[{"Add":{"text":"import Aftok.Snaplet","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5721"}}],"del_contents":[{"Del":{"text":"import Aftok.Snaplet as S","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:17232"}}]}},{"Edit":{"inode":{"change":3,"pos":2441},"path":"server/Aftok/Snaplet/Auctions.hs","line":27,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2963},"to":{"change":2,"start":5345,"end":5388},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":3,"pos":986},"to":{"change":3,"start":2993,"end":2994},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":2,"pos":5388},"to":{"change":3,"start":2993,"end":2994},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":3,"pos":17283},"to":{"change":3,"start":2993,"end":2994},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2993},"to":{"change":3,"start":2993,"end":2994},"introduced_by":3}],"inode":{"change":3,"pos":2441}}},"contents":[{"Del":{"text":"import Snap.Snaplet as S","pos":"JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC:5387"}},{"Del":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2993"}}]}},{"Replacement":{"inode":{"change":3,"pos":203},"path":"server/Aftok/Snaplet/Auth.hs","line":6,"ins":{"up_context":[{"change":3,"pos":7666}],"down_context":[{"change":3,"pos":423}],"flag":"BLOCK","start":5724,"end":5780,"inode":{"change":3,"pos":203}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":11710},"to":{"change":3,"start":7667,"end":7800},"introduced_by":3}],"inode":{"change":3,"pos":203}},"ins_contents":[{"Add":{"text":"import Data.Attoparsec.ByteString (parseOnly)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5779"}}],"del_contents":[{"Del":{"text":"import Data.Attoparsec.ByteString (parseOnly, takeByteString)","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:7738"}},{"Del":{"text":"import Data.UUID (fromASCIIBytes)","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:7799"}}]}},{"Edit":{"inode":{"change":3,"pos":203},"path":"server/Aftok/Snaplet/Auth.hs","line":9,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":7824},"to":{"change":3,"start":2052,"end":2113},"introduced_by":3}],"inode":{"change":3,"pos":203}}},"contents":[{"Del":{"text":"import Aftok.Auction (AuctionId (..))","pos":"NAS4BFL43SIUAAC663R6VFBHQ2DKI45K6Y6ZKVQI7S5547HBAN7QC:2112"}}]}},{"Edit":{"inode":{"change":3,"pos":203},"path":"server/Aftok/Snaplet/Auth.hs","line":10,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":7887},"to":{"change":3,"start":3727,"end":3758},"introduced_by":3}],"inode":{"change":3,"pos":203}}},"contents":[{"Del":{"text":"import Aftok.Project","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3757"}}]}},{"Edit":{"inode":{"change":3,"pos":203},"path":"server/Aftok/Snaplet/Auth.hs","line":38,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2162},"to":{"change":3,"start":8268,"end":8315},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":8315},"to":{"change":3,"start":8351,"end":8512},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":8512},"to":{"change":3,"start":8479,"end":8608},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":8479},"to":{"change":3,"start":8479,"end":8608},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":8608},"to":{"change":3,"start":1294,"end":1632},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1632},"to":{"change":3,"start":2558,"end":2559},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2361},"to":{"change":3,"start":2558,"end":2559},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":8608},"to":{"change":3,"start":2558,"end":2559},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":11997},"to":{"change":3,"start":2558,"end":2559},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2558},"to":{"change":3,"start":2558,"end":2559},"introduced_by":3}],"inode":{"change":3,"pos":203}}},"contents":[{"Del":{"text":"requireProjectId :: MonadSnap m => m ProjectId","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:8314"}},{"Del":{"text":"requireProjectId = do","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:8372"}},{"Del":{"text":" maybePid <- parseParam \"projectId\" pidParser","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:8419"}},{"Del":{"text":" maybe (snapError 400 \"Value of parameter \\\"projectId\\\" cannot be parsed as a valid UUID\")","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:8511"}},{"Del":{"text":" pure","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:8491"}},{"Del":{"text":" maybePid","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:8508"}},{"Del":{"text":" where","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:8516"}},{"Del":{"text":" pidParser = do","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:8535"}},{"Del":{"text":" bs <- takeByteString","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:8562"}},{"Del":{"text":" pure $ ProjectId <$> fromASCIIBytes bs","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:8607"}},{"Del":{"text":"","pos":"Z3MK2PJ5U222DXRS22WCDHVPZ7HVAR3HOCUNXIGX6VMEPBQDF6PQC:1294"}},{"Del":{"text":"requireAuctionId :: MonadSnap m => m AuctionId","pos":"Z3MK2PJ5U222DXRS22WCDHVPZ7HVAR3HOCUNXIGX6VMEPBQDF6PQC:1341"}},{"Del":{"text":"requireAuctionId = do","pos":"Z3MK2PJ5U222DXRS22WCDHVPZ7HVAR3HOCUNXIGX6VMEPBQDF6PQC:1363"}},{"Del":{"text":" maybeAid <- parseParam \"auctionId\" aidParser","pos":"Z3MK2PJ5U222DXRS22WCDHVPZ7HVAR3HOCUNXIGX6VMEPBQDF6PQC:1410"}},{"Del":{"text":" maybe (snapError 400 \"Value of parameter \\\"auctionId\\\" cannot be parsed as a valid UUID\")","pos":"Z3MK2PJ5U222DXRS22WCDHVPZ7HVAR3HOCUNXIGX6VMEPBQDF6PQC:1502"}},{"Del":{"text":" pure","pos":"Z3MK2PJ5U222DXRS22WCDHVPZ7HVAR3HOCUNXIGX6VMEPBQDF6PQC:1515"}},{"Del":{"text":" maybeAid","pos":"Z3MK2PJ5U222DXRS22WCDHVPZ7HVAR3HOCUNXIGX6VMEPBQDF6PQC:1532"}},{"Del":{"text":" where","pos":"Z3MK2PJ5U222DXRS22WCDHVPZ7HVAR3HOCUNXIGX6VMEPBQDF6PQC:1540"}},{"Del":{"text":" aidParser = do","pos":"Z3MK2PJ5U222DXRS22WCDHVPZ7HVAR3HOCUNXIGX6VMEPBQDF6PQC:1559"}},{"Del":{"text":" bs <- takeByteString","pos":"Z3MK2PJ5U222DXRS22WCDHVPZ7HVAR3HOCUNXIGX6VMEPBQDF6PQC:1586"}},{"Del":{"text":" pure $ AuctionId <$> fromASCIIBytes bs","pos":"Z3MK2PJ5U222DXRS22WCDHVPZ7HVAR3HOCUNXIGX6VMEPBQDF6PQC:1631"}},{"Del":{"text":"","pos":"I2KHGVD44KT4MQJXGCTVSQKMBO6TVCY72F26TLXGWRL6PHGF6RNQC:2558"}}]}},{"Edit":{"inode":{"change":3,"pos":9762},"path":"server/Aftok/Snaplet/Payments.hs","line":4,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":9831}],"down_context":[{"change":3,"pos":9831}],"flag":"BLOCK","start":5782,"end":5919,"inode":{"change":3,"pos":9762}}},"contents":[{"Add":{"text":"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5782"}},{"Add":{"text":"import Control.Lens (view, _1, _2)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5834"}},{"Add":{"text":"import Data.Thyme.Clock as C","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5876"}},{"Add":{"text":"import Network.Bippy.Proto as P","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5918"}}]}},{"Replacement":{"inode":{"change":3,"pos":9762},"path":"server/Aftok/Snaplet/Payments.hs","line":9,"ins":{"up_context":[{"change":3,"pos":9832}],"down_context":[{"change":3,"pos":9900}],"flag":"BLOCK","start":5920,"end":6028,"inode":{"change":3,"pos":9762}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":9832},"to":{"change":3,"start":9832,"end":9900},"introduced_by":3}],"inode":{"change":3,"pos":9762}},"ins_contents":[{"Add":{"text":"import Snap.Snaplet as S","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5961"}},{"Add":{"text":"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5962"}},{"Add":{"text":"import Aftok.Billables","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:5995"}},{"Add":{"text":"import Aftok.Payments","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6027"}}],"del_contents":[{"Del":{"text":"import Network.Bippy","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:9862"}},{"Del":{"text":"import Network.Bippy.Types","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:9899"}}]}},{"Replacement":{"inode":{"change":3,"pos":9762},"path":"server/Aftok/Snaplet/Payments.hs","line":14,"ins":{"up_context":[{"change":3,"pos":9901}],"down_context":[{"change":3,"pos":9958}],"flag":"BLOCK","start":6029,"end":6096,"inode":{"change":3,"pos":9762}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":9901},"to":{"change":3,"start":9901,"end":9958},"introduced_by":3}],"inode":{"change":3,"pos":9762}},"ins_contents":[{"Add":{"text":"import Aftok.Snaplet","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6059"}},{"Add":{"text":"import Aftok.Snaplet.Auth","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6095"}}],"del_contents":[{"Del":{"text":"import Snap.Core","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:9927"}},{"Del":{"text":"import Snap.Snaplet","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:9957"}}]}},{"Replacement":{"inode":{"change":3,"pos":9762},"path":"server/Aftok/Snaplet/Payments.hs","line":17,"ins":{"up_context":[{"change":3,"pos":9959}],"down_context":[{"change":3,"pos":17650}],"flag":"BLOCK","start":6097,"end":6344,"inode":{"change":3,"pos":9762}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":9959},"to":{"change":3,"start":17619,"end":17650},"introduced_by":3}],"inode":{"change":3,"pos":9762}},"ins_contents":[{"Add":{"text":"listPayableRequestsHandler :: S.Handler App App [BillDetail]","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6157"}},{"Add":{"text":"listPayableRequestsHandler = do","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6189"}},{"Add":{"text":" uid <- requireUserId","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6212"}},{"Add":{"text":" sid <- requireId \"subscriptionId\" SubscriptionId","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6263"}},{"Add":{"text":" now <- liftIO $ C.getCurrentTime","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6298"}},{"Add":{"text":" snapEval $ findPayableRequests uid sid now","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6343"}}],"del_contents":[{"Del":{"text":"import Aftok.QConfig","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:17649"}}]}},{"Replacement":{"inode":{"change":3,"pos":9762},"path":"server/Aftok/Snaplet/Payments.hs","line":24,"ins":{"up_context":[{"change":3,"pos":17651}],"down_context":[{"change":3,"pos":10077}],"flag":"BLOCK","start":6345,"end":6438,"inode":{"change":3,"pos":9762}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":17651},"to":{"change":3,"start":17651,"end":17734},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":17734},"to":{"change":3,"start":10028,"end":10077},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":10028},"to":{"change":3,"start":10028,"end":10077},"introduced_by":3}],"inode":{"change":3,"pos":9762}},"ins_contents":[{"Add":{"text":"getPaymentRequestHandler :: S.Handler App App P.PaymentRequest","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6407"}},{"Add":{"text":"getPaymentRequestHandler = do","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6437"}}],"del_contents":[{"Del":{"text":"requestPaymentHandler :: QConfig -> Handler App App","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:17702"}},{"Del":{"text":"requestPaymentHandler cfg = do","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:17733"}},{"Del":{"text":" -- get payout percentages from payouts handler","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:10076"}}]}},{"Replacement":{"inode":{"change":3,"pos":9762},"path":"server/Aftok/Snaplet/Payments.hs","line":27,"ins":{"up_context":[{"change":3,"pos":10100}],"down_context":[{"change":3,"pos":17952}],"flag":"BLOCK","start":6439,"end":6832,"inode":{"change":3,"pos":9762}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":10100},"to":{"change":3,"start":10100,"end":10163},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":10163},"to":{"change":3,"start":1355,"end":1414},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1414},"to":{"change":3,"start":17779,"end":17951},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":17779},"to":{"change":3,"start":17779,"end":17951},"introduced_by":3}],"inode":{"change":3,"pos":9762}},"ins_contents":[{"Add":{"text":" sid <- requireId \"subscriptionId\" SubscriptionId","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6489"}},{"Add":{"text":" rid <- requireId \"paymentRequestId\" PaymentRequestId","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6544"}},{"Add":{"text":" now <- liftIO $ C.getCurrentTime","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6579"}},{"Add":{"text":" requests <- snapEval $ findPayableRequests uid sid now","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6636"}},{"Add":{"text":" let prMay = fmap (view (_2 . paymentRequest)) . headMay $ filter ((==) rid . view _1) requests","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6733"}},{"Add":{"text":" maybe (snapError 404 $ \"Outstanding payment request not found for id \" <> tshow rid) pure prMay","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6831"}}],"del_contents":[{"Del":{"text":" pid <- requireProjectId","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:10125"}},{"Del":{"text":" ptime <- liftIO $ C.getCurrentTime","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:10162"}},{"Del":{"text":" createPaymentRequests ptime memogen urigen plgen uid pid","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:1413"}},{"Del":{"text":" -- look up outstanding subscriptions the user has for this project","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:17847"}},{"Del":{"text":" -- determine which subscriptions need to be paid","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:17898"}},{"Del":{"text":" -- create a payment request for each subscription","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:17950"}}]}},{"Edit":{"inode":{"change":3,"pos":9762},"path":"server/Aftok/Snaplet/Payments.hs","line":38,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":5393}],"down_context":[],"flag":"BLOCK","start":6833,"end":6836,"inode":{"change":3,"pos":9762}}},"contents":[{"Add":{"text":"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6833"}},{"Add":{"text":"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6834"}},{"Add":{"text":"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6835"}}]}},{"Replacement":{"inode":{"change":3,"pos":1088},"path":"server/Aftok/Snaplet.hs","line":13,"ins":{"up_context":[{"change":3,"pos":10660}],"down_context":[{"change":3,"pos":1324}],"flag":"BLOCK","start":6838,"end":6996,"inode":{"change":3,"pos":1088}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":10660},"to":{"change":3,"start":10660,"end":10727},"introduced_by":3}],"inode":{"change":3,"pos":1088}},"ins_contents":[{"Add":{"text":"import Data.Attoparsec.ByteString (Parser, parseOnly,","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6904"}},{"Add":{"text":" takeByteString)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6968"}},{"Add":{"text":"import Data.UUID","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6995"}}],"del_contents":[{"Del":{"text":"import Data.Attoparsec.ByteString (Parser, parseOnly)","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:10726"}}]}},{"Edit":{"inode":{"change":3,"pos":1088},"path":"server/Aftok/Snaplet.hs","line":18,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":10751}],"down_context":[{"change":3,"pos":10751}],"flag":"BLOCK","start":6997,"end":7061,"inode":{"change":3,"pos":1088}}},"contents":[{"Add":{"text":"import Aftok.Auction (AuctionId (..))","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7060"}}]}},{"Edit":{"inode":{"change":3,"pos":1088},"path":"server/Aftok/Snaplet.hs","line":21,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":10826}],"down_context":[{"change":3,"pos":10826}],"flag":"BLOCK","start":7062,"end":7126,"inode":{"change":3,"pos":1088}}},"contents":[{"Add":{"text":"import Aftok.Project (ProjectId (..))","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7125"}}]}},{"Replacement":{"inode":{"change":3,"pos":1088},"path":"server/Aftok/Snaplet.hs","line":64,"ins":{"up_context":[{"change":3,"pos":11977}],"down_context":[{"change":3,"pos":12036}],"flag":"BLOCK","start":7127,"end":7337,"inode":{"change":3,"pos":1088}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":11977},"to":{"change":3,"start":11977,"end":12036},"introduced_by":3}],"inode":{"change":3,"pos":1088}},"ins_contents":[{"Add":{"text":"parseParam :: MonadSnap m","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7152"}},{"Add":{"text":" => Text -- ^ the name of the parameter to be parsed","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7221"}},{"Add":{"text":" -> Parser a -- ^ parser for the value of the parameter","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7289"}},{"Add":{"text":" -> m a -- ^ the parsed value","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7336"}}],"del_contents":[{"Del":{"text":"parseParam :: MonadSnap m => ByteString -> Parser a -> m a","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:12035"}}]}},{"Replacement":{"inode":{"change":3,"pos":1088},"path":"server/Aftok/Snaplet.hs","line":69,"ins":{"up_context":[{"change":3,"pos":12064}],"down_context":[{"change":3,"pos":12094}],"flag":"BLOCK","start":7338,"end":7381,"inode":{"change":3,"pos":1088}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":12064},"to":{"change":3,"start":12064,"end":12094},"introduced_by":3}],"inode":{"change":3,"pos":1088}},"ins_contents":[{"Add":{"text":" maybeBytes <- getParam (encodeUtf8 name)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7380"}}],"del_contents":[{"Del":{"text":" maybeBytes <- getParam name","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:12093"}}]}},{"Edit":{"inode":{"change":3,"pos":1088},"path":"server/Aftok/Snaplet.hs","line":76,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":12366}],"down_context":[{"change":3,"pos":9523}],"flag":"BLOCK","start":7382,"end":7787,"inode":{"change":3,"pos":1088}}},"contents":[{"Add":{"text":"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7382"}},{"Add":{"text":"requireId :: MonadSnap m","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7407"}},{"Add":{"text":" => Text -- ^ name of the parameter","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7459"}},{"Add":{"text":" -> (UUID -> a) -- ^ constructor for the identifier","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7520"}},{"Add":{"text":" -> m a","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7537"}},{"Add":{"text":"requireId name f = do","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7559"}},{"Add":{"text":" maybeId <- parseParam name idParser","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7597"}},{"Add":{"text":" maybe (snapError 400 $ \"Value of parameter \\\"\" <> name <> \"\\\" is not a valid UUID\") pure maybeId","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7696"}},{"Add":{"text":" where","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7704"}},{"Add":{"text":" idParser = do","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7722"}},{"Add":{"text":" bs <- takeByteString","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7749"}},{"Add":{"text":" pure $ f <$> fromASCIIBytes bs","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7786"}}]}},{"Edit":{"inode":{"change":3,"pos":1088},"path":"server/Aftok/Snaplet.hs","line":94,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":3904}],"down_context":[{"change":3,"pos":3828}],"flag":"BLOCK","start":7788,"end":7886,"inode":{"change":3,"pos":1088}}},"contents":[{"Add":{"text":"requireProjectId :: MonadSnap m => m ProjectId","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7834"}},{"Add":{"text":"requireProjectId = requireId \"projectId\" ProjectId","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7885"}}]}},{"Edit":{"inode":{"change":3,"pos":1088},"path":"server/Aftok/Snaplet.hs","line":97,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":3829}],"down_context":[],"flag":"BLOCK","start":7887,"end":7986,"inode":{"change":3,"pos":1088}}},"contents":[{"Add":{"text":"requireAuctionId :: MonadSnap m => m AuctionId","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7933"}},{"Add":{"text":"requireAuctionId = requireId \"auctionId\" AuctionId","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7984"}},{"Add":{"text":"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:7985"}}]}},{"Edit":{"inode":{"change":32,"pos":5188},"path":"server/Main.hs","line":6,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":11294}],"down_context":[{"change":3,"pos":11294}],"flag":"BLOCK","start":7988,"end":8139,"inode":{"change":32,"pos":5188}}},"contents":[{"Add":{"text":"import Data.ProtocolBuffers (encodeMessage)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:8064"}},{"Add":{"text":"import Data.Serialize.Put (runPutLazy)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:8138"}}]}},{"Edit":{"inode":{"change":32,"pos":5188},"path":"server/Main.hs","line":17,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":2268}],"down_context":[{"change":3,"pos":11489}],"flag":"BLOCK","start":8140,"end":8180,"inode":{"change":32,"pos":5188}}},"contents":[{"Add":{"text":"import Aftok.Snaplet.Payments","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:8179"}}]}},{"Edit":{"inode":{"change":32,"pos":5188},"path":"server/Main.hs","line":61,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":4231}],"down_context":[{"change":33,"pos":2894}],"flag":"BLOCK","start":8181,"end":8384,"inode":{"change":32,"pos":5188}}},"contents":[{"Add":{"text":" payableRequestsRoute = serveJSON billDetailsJSON $ method GET listPayableRequestsHandler","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:8275"}},{"Add":{"text":" paymentRequestRoute = writeLBS . runPutLazy . encodeMessage =<< method GET getPaymentRequestHandler","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:8382"}},{"Add":{"text":"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:8383"}}]}},{"Edit":{"inode":{"change":32,"pos":5188},"path":"server/Main.hs","line":85,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":1979}],"down_context":[{"change":3,"pos":4299}],"flag":"BLOCK","start":8385,"end":8577,"inode":{"change":32,"pos":5188}}},"contents":[{"Add":{"text":"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:8385"}},{"Add":{"text":" , (\"subscriptions/:subscriptionId/payment_requests\", payableRequestsRoute)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:8472"}},{"Add":{"text":" , (\"subscriptions/:subscriptionId/payment_requests/:paymentRequestId\", paymentRequestRoute)","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:8576"}}]}}],"owner":"nuttycom","repo":"aftok","token":"l/ngNcf0oWeZyf/UNJUYd7Y00BtyBmqePrD5aOsIUtw=","login":null}

…

Dependencies

Change contents

Review