{"header":{"message":"Implement payment request creation functions.","description":"These are the necessary functions that will support the\nfuture development of the payment request endpoint and\nthe scheduled bill processing system.","timestamp":"2017-02-20T18:16:10Z","authors":[{"email":"kris.nuttycombe@gmail.com","name":"Kris Nuttycombe"}]},"hash":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC","authors":[],"deps":{"hashes":[["SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC","Implement payment request creation functions."],["AA",null],["HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC","Implement core of payments/billing infrastructure."],["QADKFHAR3KWQCNYU25Z7PJUGMD5WL26IU3DOAHBTRN2A7NKPUPKAC","Adds CreatePayment handler implementation."],["IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","Work in progress replacing sqlite with postgres."],["Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC","Very WIP. Wow."],["NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC","Reformat via stylish-haskell"],["73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC","Begin implementation of billing event persistence."],["FD7SV5I6VCW27HZ3T3K4MMGB2OYGJTPKFFA263TNTAMRJGQJWVNAC","Fix handling of event_t columns."],["GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC","Create amends endpoint, switch to UUID primary keys"],["O227CEAV7BTKSE3SSC7XHC5IWEBXZL2AOOKJMBMOOFNTLINBLQMAC","Adds storage of original event JSON for some DBOp constructors."],["64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","Rename Ananke -> Quixotic, project reboot."],["5OI44E4EEVYOMHDWNK2WA7K4L4JWRWCUJUNN2UAUGE5VY4W7GTNAC","Add authentication to auction search."],["O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC","Undo JSON silliness, enable a couple more routes."],["NLZ3JXLOOIL37O3RRQWXHNPNSNEOOLPD6MCB754BEBECQB3KGR2AC","Fix formatting with stylish-haskell."],["WFZDMVUXZ2KPTMRAZGEYHKEJTKOKWVYCXKKAKQ7K6I5TMSLBUJ4QC","Rename ADB -> QDB"],["Q5X5RYQLP5K7REYD6VLHOKC4W36ZELJYA45V6YFKTD5S6MPN3NDQC","stylish-haskell reformatting"],["W35DDBFYF6Z4ZPCFEO5RPAONZLYCSNTXUSTS6FIUUVZHCI6Q7GHAC","Factor common JSON conversions up into client lib module."],["ZP62WC472OTQETO2HTHIQIPO57XZIWVKPA4KL62GYU4OZDMB6NSAC","Begin conversion to build with stack."],["2G3GNDDUOVPF45PELJ65ZB2IXEHJJXJILFRVHZXGPXUL4BVNZJFQC","Event logging is now functioning in postgres."],["LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC","More database stuff."],["PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC","Postgres & auth are beginning to function."],["QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC","Refactor QDB to use a free monad algebra instead."],["EKY7U7SKPF45OOUAHJBEQKXSUXWOHFBQFFVJWPBN5ARFJUFM2BPAC","Finish conversion to stack."],["WAIX6AGNDVJOKTWZ7OP7QOYSJHAJSX5EOWXZHOAO2IG6ALWUCJ6QC","Add event serialization for PaymentRequest & Payment"],["4U7F3CPIDTK6JSEDMNMHVKSR7HOQDLZQD2PPVMDLHO5SFSIMUXZAC","THE GREAT RENAMING OF THINGS!"],["XTBSG4C7SCZUFOU2BTNFR6B6TCGYI35BWUV4PVTS3N7KNH5VEARQC","Adding serveJSON combinator to eliminate some boilerplate from handlers."],["KEP5WUFJXTMKRRNZLYTGYYWA4VLFCMHTKTJYF5EA5IWBYFMU6WYQC","Convert project to stack-based build."],["DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC","Initial work on payments API"],["7HPY3QPFPN35PSPUBVNW2GTFB3CBQZBST4J2BAVJ7QMXLIUN52JAC","Fix linting errors. (yay hlint!)"],["NTPC7KJEAPA34SBIA74FVQSJXYNW32RIUQTHUSUTKMEUCPLUIBJAC","Trivial changes, feature scratchpad."],["TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC","Switch to Postgres + snaplet arch compiles."],["A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC","Attempting to improve JSON handling."],["NAS4BFL43SIUAAC663R6VFBHQ2DKI45K6Y6ZKVQI7S5547HBAN7QC","Trivial stylish-haskell reformat."],["Y3LIJ5USPMYBG7HKCIQBE7MWVGLQJPJSQD3KPZCTKXP22GOB535QC","Add handler for CreatePaymentRequest"],["5XFJNUAZUCQ3WCGW4QRIAWR764QYDOPHOIVO2TRMGSSG7UDX2M2AC","Start of addition of project infrastructure."],["4IQVQL4TS35GL2GYZJG254TKJLL5EHMRSFT77Z4VTRZIG2TMBM3QC","Added client for payouts endpoint."],["M4KM76DGO77VC4O6N5FFA5MTZH5GI5AJ3OUJU7INLAOY2M3LRLLAC","Merge branch 'stackify'"],["HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC","Added initial auction create route."],["Z3MK2PJ5U222DXRS22WCDHVPZ7HVAR3HOCUNXIGX6VMEPBQDF6PQC","Add GET handler for retrieving auction data."],["2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC","Add invitation logic and clean up DBProg error handling."],["BWN72T44GRRZ6K2OPN56FTLNEB7J7AGC7T2U5HSMLEKUPGJP2NUAC","Don't accept work timestamp from an external source."],["RN7EI6INGUUHGMNY5RU3NH56WPLRZY5ZMYDNFMNE3TGV4ESFLQIAC","Update database layer to use CreditTo"]],"deps":["HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC"],"known":["64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","NTPC7KJEAPA34SBIA74FVQSJXYNW32RIUQTHUSUTKMEUCPLUIBJAC","WFZDMVUXZ2KPTMRAZGEYHKEJTKOKWVYCXKKAKQ7K6I5TMSLBUJ4QC","W35DDBFYF6Z4ZPCFEO5RPAONZLYCSNTXUSTS6FIUUVZHCI6Q7GHAC","4IQVQL4TS35GL2GYZJG254TKJLL5EHMRSFT77Z4VTRZIG2TMBM3QC","IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC","5XFJNUAZUCQ3WCGW4QRIAWR764QYDOPHOIVO2TRMGSSG7UDX2M2AC","Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC","LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC","PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC","2G3GNDDUOVPF45PELJ65ZB2IXEHJJXJILFRVHZXGPXUL4BVNZJFQC","XTBSG4C7SCZUFOU2BTNFR6B6TCGYI35BWUV4PVTS3N7KNH5VEARQC","A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC","FD7SV5I6VCW27HZ3T3K4MMGB2OYGJTPKFFA263TNTAMRJGQJWVNAC","O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC","GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC","4U7F3CPIDTK6JSEDMNMHVKSR7HOQDLZQD2PPVMDLHO5SFSIMUXZAC","QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC","2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC","7HPY3QPFPN35PSPUBVNW2GTFB3CBQZBST4J2BAVJ7QMXLIUN52JAC","KEP5WUFJXTMKRRNZLYTGYYWA4VLFCMHTKTJYF5EA5IWBYFMU6WYQC","ZP62WC472OTQETO2HTHIQIPO57XZIWVKPA4KL62GYU4OZDMB6NSAC","EKY7U7SKPF45OOUAHJBEQKXSUXWOHFBQFFVJWPBN5ARFJUFM2BPAC","M4KM76DGO77VC4O6N5FFA5MTZH5GI5AJ3OUJU7INLAOY2M3LRLLAC","NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC","NLZ3JXLOOIL37O3RRQWXHNPNSNEOOLPD6MCB754BEBECQB3KGR2AC","HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC","5OI44E4EEVYOMHDWNK2WA7K4L4JWRWCUJUNN2UAUGE5VY4W7GTNAC","Z3MK2PJ5U222DXRS22WCDHVPZ7HVAR3HOCUNXIGX6VMEPBQDF6PQC","NAS4BFL43SIUAAC663R6VFBHQ2DKI45K6Y6ZKVQI7S5547HBAN7QC","DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC","73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC","Y3LIJ5USPMYBG7HKCIQBE7MWVGLQJPJSQD3KPZCTKXP22GOB535QC","QADKFHAR3KWQCNYU25Z7PJUGMD5WL26IU3DOAHBTRN2A7NKPUPKAC","O227CEAV7BTKSE3SSC7XHC5IWEBXZL2AOOKJMBMOOFNTLINBLQMAC","WAIX6AGNDVJOKTWZ7OP7QOYSJHAJSX5EOWXZHOAO2IG6ALWUCJ6QC","Q5X5RYQLP5K7REYD6VLHOKC4W36ZELJYA45V6YFKTD5S6MPN3NDQC"]},"hunks":[{"Edit":{"inode":{"change":3,"pos":1},"path":"aftok.cabal","line":34,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":37},"to":{"change":3,"start":195,"end":228},"introduced_by":3}],"inode":{"change":3,"pos":1}}},"contents":[{"Del":{"text":" Aftok.Time","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:227"}}]}},{"Edit":{"inode":{"change":3,"pos":1},"path":"aftok.cabal","line":72,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":523}],"down_context":[{"change":2,"pos":523}],"flag":"BLOCK","start":1,"end":20,"inode":{"change":3,"pos":1}}},"contents":[{"Add":{"text":" , transformers","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:19"}}]}},{"FileDel":{"deleted_names":[{"basename":"Time.hs","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":679},"to":{"change":3,"start":6557,"end":6588},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":6588},"to":{"change":3,"start":6473,"end":6473},"introduced_by":3}],"inode":{"change":3,"pos":6473}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6473},"to":{"change":3,"start":14002,"end":14035},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":14035},"to":{"change":3,"start":6474,"end":6530},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6473},"to":{"change":3,"start":6474,"end":6530},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2567},"to":{"change":3,"start":6530,"end":6555},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":14093},"to":{"change":3,"start":6530,"end":6555},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6530},"to":{"change":3,"start":6530,"end":6555},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6555},"to":{"change":3,"start":14094,"end":14112},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":14112},"to":{"change":3,"start":6555,"end":6556},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6555},"to":{"change":3,"start":6555,"end":6556},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6530},"to":{"change":3,"start":2523,"end":2567},"introduced_by":3}],"inode":{"change":3,"pos":6473}},"content":[{"Del":{"text":"{-# LANGUAGE TemplateHaskell #-}","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:14034"}},{"Del":{"text":"module Aftok.Time where","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:6497"}},{"Del":{"text":"","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:6498"}},{"Del":{"text":"import ClassyPrelude","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:6529"}},{"Del":{"text":"","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:6530"}},{"Del":{"text":"newtype Days = Days Int","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:6554"}},{"Del":{"text":"makePrisms ''Days","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:14111"}},{"Del":{"text":"","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:6555"}},{"Del":{"text":"import Control.Lens (makePrisms)","pos":"Q5X5RYQLP5K7REYD6VLHOKC4W36ZELJYA45V6YFKTD5S6MPN3NDQC:2566"}}]}},{"Replacement":{"inode":{"change":3,"pos":760},"path":"lib/Aftok/Billables.hs","line":10,"ins":{"up_context":[{"change":3,"pos":857}],"down_context":[{"change":2,"pos":1017}],"flag":"BLOCK","start":24,"end":177,"inode":{"change":3,"pos":760}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":857},"to":{"change":3,"start":3,"end":59},"introduced_by":3}],"inode":{"change":3,"pos":760}},"ins_contents":[{"Add":{"text":"import Control.Lens (makeLenses, makePrisms, preview, view, _Just)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:101"}},{"Add":{"text":"import Data.List (unfoldr)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:138"}},{"Add":{"text":"import Data.Thyme.Time as T","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:176"}}],"del_contents":[{"Del":{"text":"import Control.Lens (makeLenses, makePrisms)","pos":"Q5X5RYQLP5K7REYD6VLHOKC4W36ZELJYA45V6YFKTD5S6MPN3NDQC:58"}}]}},{"Edit":{"inode":{"change":3,"pos":760},"path":"lib/Aftok/Billables.hs","line":18,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":116},"to":{"change":3,"start":101,"end":144},"introduced_by":3}],"inode":{"change":3,"pos":760}}},"contents":[{"Del":{"text":"import Aftok.Time (Days (..))","pos":"Q5X5RYQLP5K7REYD6VLHOKC4W36ZELJYA45V6YFKTD5S6MPN3NDQC:143"}}]}},{"Replacement":{"inode":{"change":3,"pos":760},"path":"lib/Aftok/Billables.hs","line":25,"ins":{"up_context":[{"change":3,"pos":1077}],"down_context":[{"change":3,"pos":1109}],"flag":"BLOCK","start":178,"end":217,"inode":{"change":3,"pos":760}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1077},"to":{"change":3,"start":1077,"end":1109},"introduced_by":3}],"inode":{"change":3,"pos":760}},"ins_contents":[{"Add":{"text":" | Monthly T.Months","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:198"}},{"Add":{"text":"-- | SemiMonthly","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:216"}}],"del_contents":[{"Del":{"text":" | Monthly Int","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:1092"}},{"Del":{"text":" | SemiMonthly","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:1108"}}]}},{"Replacement":{"inode":{"change":3,"pos":760},"path":"lib/Aftok/Billables.hs","line":34,"ins":{"up_context":[{"change":3,"pos":344}],"down_context":[{"change":3,"pos":387}],"flag":"BLOCK","start":218,"end":263,"inode":{"change":3,"pos":760}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":344},"to":{"change":3,"start":344,"end":387},"introduced_by":3}],"inode":{"change":3,"pos":760}},"ins_contents":[{"Add":{"text":"--recurrenceName SemiMonthly = \"semimonthly\"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:262"}}],"del_contents":[{"Del":{"text":"recurrenceName SemiMonthly = \"semimonthly\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:386"}}]}},{"Replacement":{"inode":{"change":3,"pos":760},"path":"lib/Aftok/Billables.hs","line":41,"ins":{"up_context":[{"change":3,"pos":578}],"down_context":[{"change":3,"pos":616}],"flag":"BLOCK","start":264,"end":304,"inode":{"change":3,"pos":760}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":578},"to":{"change":3,"start":578,"end":616},"introduced_by":3}],"inode":{"change":3,"pos":760}},"ins_contents":[{"Add":{"text":"--recurrenceCount SemiMonthly = Nothing","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:303"}}],"del_contents":[{"Del":{"text":"recurrenceCount SemiMonthly = Nothing","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:615"}}]}},{"Replacement":{"inode":{"change":3,"pos":760},"path":"lib/Aftok/Billables.hs","line":68,"ins":{"up_context":[{"change":2,"pos":1289}],"down_context":[{"change":2,"pos":1342}],"flag":"BLOCK","start":305,"end":357,"inode":{"change":3,"pos":760}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":1289},"to":{"change":2,"start":1289,"end":1342},"introduced_by":2}],"inode":{"change":3,"pos":760}},"ins_contents":[{"Add":{"text":" , _requestExpiryPeriod :: Maybe C.NominalDiffTime","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:356"}}],"del_contents":[{"Del":{"text":" , _requestExpiryPeriod :: Maybe C.NominalDiffTime ","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:1341"}}]}},{"Replacement":{"inode":{"change":3,"pos":760},"path":"lib/Aftok/Billables.hs","line":77,"ins":{"up_context":[{"change":2,"pos":1424}],"down_context":[{"change":2,"pos":1461}],"flag":"BLOCK","start":358,"end":394,"inode":{"change":3,"pos":760}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":1424},"to":{"change":2,"start":1424,"end":1461},"introduced_by":2}],"inode":{"change":3,"pos":760}},"ins_contents":[{"Add":{"text":"data Subscription' b = Subscription","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:393"}}],"del_contents":[{"Del":{"text":"data Subscription' b = Subscription ","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:1460"}}]}},{"Edit":{"inode":{"change":3,"pos":760},"path":"lib/Aftok/Billables.hs","line":86,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":1660}],"down_context":[],"flag":"BLOCK","start":395,"end":1202,"inode":{"change":3,"pos":760}}},"contents":[{"Add":{"text":"nextRecurrence :: Recurrence -> T.Day -> Maybe T.Day","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:447"}},{"Add":{"text":"nextRecurrence r = case r of ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:477"}},{"Add":{"text":" Annually -> Just . T.addGregorianYearsClip 1","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:525"}},{"Add":{"text":" Monthly m -> Just . T.addGregorianMonthsClip m","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:574"}},{"Add":{"text":" Weekly w -> Just . T.addDays (w * 7)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:614"}},{"Add":{"text":" OneTime -> const Nothing","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:643"}},{"Add":{"text":"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:644"}},{"Add":{"text":"{- ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:648"}},{"Add":{"text":" - A stream of dates upon which the specified subscription","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:707"}},{"Add":{"text":" - should be billed, beginning with the first day of the ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:765"}},{"Add":{"text":" - subscription.","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:782"}},{"Add":{"text":" -}","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:786"}},{"Add":{"text":"billingSchedule :: Subscription' Billable -> [T.Day]","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:839"}},{"Add":{"text":"billingSchedule s =","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:859"}},{"Add":{"text":" let rec = view (billable . recurrence) s","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:902"}},{"Add":{"text":" subEndDay = preview (endTime . _Just . C._utctDay) s","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:961"}},{"Add":{"text":"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:962"}},{"Add":{"text":" next :: Maybe T.Day -> Maybe (T.Day, Maybe T.Day)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1018"}},{"Add":{"text":" next d = do","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1036"}},{"Add":{"text":" d' <- d","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1052"}},{"Add":{"text":" if (all (d' <) subEndDay) then Just (d', nextRecurrence rec d') else Nothing","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1137"}},{"Add":{"text":"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1138"}},{"Add":{"text":" in unfoldr next (Just $ view (startTime . C._utctDay) s)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1198"}},{"Add":{"text":"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1199"}},{"Add":{"text":"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1200"}},{"Add":{"text":"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1201"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":11,"ins":{"up_context":[{"change":3,"pos":1197}],"down_context":[{"change":3,"pos":109}],"flag":"BLOCK","start":1205,"end":1412,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1197},"to":{"change":3,"start":1197,"end":1256},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1256},"to":{"change":3,"start":582,"end":652},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":"import qualified Data.List as L","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1263"}},{"Add":{"text":"import Data.ProtocolBuffers (encodeMessage, decodeMessage)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1348"}},{"Add":{"text":"import Data.Serialize.Get (runGet)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1411"}}],"del_contents":[{"Del":{"text":"import Data.List as L","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:1255"}},{"Del":{"text":"import Data.ProtocolBuffers (encodeMessage)","pos":"Q5X5RYQLP5K7REYD6VLHOKC4W36ZELJYA45V6YFKTD5S6MPN3NDQC:651"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":34,"ins":{"up_context":[{"change":2,"pos":1802}],"down_context":[{"change":3,"pos":1208}],"flag":"BLOCK","start":1413,"end":1471,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":124},"to":{"change":3,"start":173,"end":205},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":162},"to":{"change":3,"start":173,"end":205},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1008},"to":{"change":3,"start":173,"end":205},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":2,"pos":1802},"to":{"change":3,"start":173,"end":205},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1678},"to":{"change":3,"start":173,"end":205},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":"import Aftok.Payments.Types ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1470"}}],"del_contents":[{"Del":{"text":"import Aftok.Payments","pos":"Y3LIJ5USPMYBG7HKCIQBE7MWVGLQJPJSQD3KPZCTKXP22GOB535QC:204"}}]}},{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":36,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1267},"to":{"change":3,"start":1009,"end":1082},"introduced_by":3}],"inode":{"change":3,"pos":456}}},"contents":[{"Del":{"text":"import Aftok.Time (Days (..), _Days)","pos":"Q5X5RYQLP5K7REYD6VLHOKC4W36ZELJYA45V6YFKTD5S6MPN3NDQC:1081"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":48,"ins":{"up_context":[{"change":3,"pos":1216}],"down_context":[{"change":3,"pos":1461}],"flag":"BLOCK","start":1472,"end":1536,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1216},"to":{"change":2,"start":1803,"end":1862},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":2,"pos":1862},"to":{"change":3,"start":1373,"end":1374},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1373},"to":{"change":3,"start":1373,"end":1374},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1374},"to":{"change":2,"start":1863,"end":1932},"introduced_by":2}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":"idParser :: (UUID -> a) -> RowParser a","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1510"}},{"Add":{"text":"idParser f = f <$> field","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1535"}}],"del_contents":[{"Del":{"text":"uidParser :: RowParser UserId","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:1832"}},{"Del":{"text":"uidParser = UserId <$> field","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:1861"}},{"Del":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1373"}},{"Del":{"text":"pidParser :: RowParser P.ProjectId","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:1897"}},{"Del":{"text":"pidParser = P.ProjectId <$> field","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:1931"}}]}},{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":51,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1462},"to":{"change":2,"start":1933,"end":2034},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":2,"pos":2034},"to":{"change":3,"start":2103,"end":2104},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2103},"to":{"change":3,"start":2103,"end":2104},"introduced_by":3}],"inode":{"change":3,"pos":456}}},"contents":[{"Del":{"text":"subscriptionIdParser :: RowParser B.SubscriptionId","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:1983"}},{"Del":{"text":"subscriptionIdParser = B.SubscriptionId <$> field","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:2033"}},{"Del":{"text":"","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:2103"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":84,"ins":{"up_context":[{"change":3,"pos":2201}],"down_context":[{"change":3,"pos":2409}],"flag":"BLOCK","start":1537,"end":1742,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2201},"to":{"change":2,"start":2418,"end":2606},"introduced_by":2}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" parser \"credit_to_user\" = CreditToUser <$> (nullField *> idParser UserId <* nullField)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1636"}},{"Add":{"text":" parser \"credit_to_project\" = CreditToProject <$> (nullField *> nullField *> idParser P.ProjectId)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1741"}}],"del_contents":[{"Del":{"text":" parser \"credit_to_user\" = CreditToUser <$> (nullField *> uidParser <* nullField)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:2511"}},{"Del":{"text":" parser \"credit_to_project\" = CreditToProject <$> (nullField *> nullField *> pidParser)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:2605"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":101,"ins":{"up_context":[{"change":3,"pos":1988}],"down_context":[{"change":3,"pos":95}],"flag":"BLOCK","start":1743,"end":1802,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1988},"to":{"change":2,"start":2665,"end":2707},"introduced_by":2}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" (,,) <$> idParser P.ProjectId","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1774"}},{"Add":{"text":" <*> idParser UserId","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1801"}}],"del_contents":[{"Del":{"text":" (,,) <$> pidParser","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:2685"}},{"Del":{"text":" <*> uidParser","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:2706"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":107,"ins":{"up_context":[{"change":3,"pos":2039}],"down_context":[{"change":2,"pos":2760}],"flag":"BLOCK","start":1803,"end":1872,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2039},"to":{"change":2,"start":2708,"end":2760},"introduced_by":2}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" A.Auction <$> idParser P.ProjectId","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1839"}},{"Add":{"text":" <*> idParser UserId","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1871"}}],"del_contents":[{"Del":{"text":" A.Auction <$> pidParser","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:2733"}},{"Del":{"text":" <*> uidParser","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:2759"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":116,"ins":{"up_context":[{"change":3,"pos":2052}],"down_context":[{"change":2,"pos":2887}],"flag":"BLOCK","start":1873,"end":1901,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2052},"to":{"change":2,"start":2865,"end":2887},"introduced_by":2}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" A.Bid <$> idParser UserId","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1900"}}],"del_contents":[{"Del":{"text":" A.Bid <$> uidParser","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:2886"}}]}},{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":126,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":1010},"to":{"change":3,"start":2934,"end":2935},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2239},"to":{"change":3,"start":2934,"end":2935},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2934},"to":{"change":3,"start":2934,"end":2935},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2935},"to":{"change":3,"start":384,"end":421},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":421},"to":{"change":3,"start":2161,"end":2177},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2177},"to":{"change":2,"start":2997,"end":3017},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2207},"to":{"change":3,"start":1094,"end":1115},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":2,"pos":3017},"to":{"change":3,"start":1094,"end":1115},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1094},"to":{"change":3,"start":1094,"end":1115},"introduced_by":3}],"inode":{"change":3,"pos":456}}},"contents":[{"Del":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2934"}},{"Del":{"text":"qdbUserParser :: RowParser KeyedUser","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:420"}},{"Del":{"text":"qdbUserParser =","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:2176"}},{"Del":{"text":" (,) <$> uidParser","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:3016"}},{"Del":{"text":" <*> userParser","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:1114"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":131,"ins":{"up_context":[{"change":2,"pos":3044}],"down_context":[{"change":3,"pos":3169}],"flag":"BLOCK","start":1902,"end":1934,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":3044},"to":{"change":2,"start":3044,"end":3070},"introduced_by":2}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" <*> idParser UserId","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1933"}}],"del_contents":[{"Del":{"text":" <*> uidParser","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:3069"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":136,"ins":{"up_context":[{"change":3,"pos":2298}],"down_context":[{"change":2,"pos":3129}],"flag":"BLOCK","start":1935,"end":2010,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2298},"to":{"change":2,"start":3071,"end":3129},"introduced_by":2}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" P.Invitation <$> idParser P.ProjectId","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:1974"}},{"Add":{"text":" <*> idParser UserId","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2009"}}],"del_contents":[{"Del":{"text":" P.Invitation <$> pidParser","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:3099"}},{"Del":{"text":" <*> uidParser","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:3128"}}]}},{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":141,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":3457},"to":{"change":3,"start":2530,"end":2531},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2530},"to":{"change":3,"start":2530,"end":2531},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2531},"to":{"change":3,"start":461,"end":504},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":314},"to":{"change":3,"start":461,"end":504},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":504},"to":{"change":3,"start":2299,"end":2318},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2318},"to":{"change":2,"start":3195,"end":3215},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2348},"to":{"change":3,"start":1337,"end":1361},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":2,"pos":3215},"to":{"change":3,"start":1337,"end":1361},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1337},"to":{"change":3,"start":1337,"end":1361},"introduced_by":3}],"inode":{"change":3,"pos":456}}},"contents":[{"Del":{"text":"","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:2530"}},{"Del":{"text":"qdbProjectParser :: RowParser KeyedProject","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:503"}},{"Del":{"text":"qdbProjectParser =","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:2317"}},{"Del":{"text":" (,) <$> pidParser","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:3214"}},{"Del":{"text":" <*> projectParser","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:1360"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":144,"ins":{"up_context":[{"change":3,"pos":3516}],"down_context":[{"change":2,"pos":3310}],"flag":"BLOCK","start":2011,"end":2082,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3516},"to":{"change":2,"start":3256,"end":3310},"introduced_by":2}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" B.Billable <$> idParser P.ProjectId","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2048"}},{"Add":{"text":" <*> idParser UserId","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2081"}}],"del_contents":[{"Del":{"text":" B.Billable <$> pidParser","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:3282"}},{"Del":{"text":" <*> uidParser","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:3309"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":150,"ins":{"up_context":[{"change":2,"pos":3417}],"down_context":[{"change":2,"pos":3451}],"flag":"BLOCK","start":2083,"end":2106,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":3417},"to":{"change":2,"start":3417,"end":3451},"introduced_by":2}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" <*> field","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2105"}}],"del_contents":[{"Del":{"text":" <*> (Days <$> field)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:3450"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":158,"ins":{"up_context":[{"change":2,"pos":3727}],"down_context":[{"change":2,"pos":3786}],"flag":"BLOCK","start":2107,"end":2168,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":3727},"to":{"change":2,"start":3727,"end":3786},"introduced_by":2}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" --prec \"semimonthly\" = nullField *> pure B.SemiMonthly","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2167"}}],"del_contents":[{"Del":{"text":" prec \"semimonthly\" = nullField *> pure B.SemiMonthly","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:3785"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":161,"ins":{"up_context":[{"change":2,"pos":3887}],"down_context":[{"change":2,"pos":3920}],"flag":"BLOCK","start":2169,"end":2246,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":3887},"to":{"change":2,"start":3887,"end":3920},"introduced_by":2}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" prec s = fail $ \"Unrecognized recurrence type: \" ++ show s","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2245"}}],"del_contents":[{"Del":{"text":" prec _ = empty","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:3919"}}]}},{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":169,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":4146}],"down_context":[{"change":3,"pos":293}],"flag":"BLOCK","start":2247,"end":2726,"inode":{"change":3,"pos":456}}},"contents":[{"Add":{"text":"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2247"}},{"Add":{"text":"paymentRequestParser :: RowParser PaymentRequest","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2296"}},{"Add":{"text":"paymentRequestParser = ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2320"}},{"Add":{"text":" PaymentRequest <$> (B.SubscriptionId <$> field)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2370"}},{"Add":{"text":" <*> (field >>= (either fail pure . runGet decodeMessage))","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2445"}},{"Add":{"text":" <*> (toThyme <$> field)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2486"}},{"Add":{"text":" <*> (toThyme <$> field)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2527"}},{"Add":{"text":"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2528"}},{"Add":{"text":"paymentParser :: RowParser Payment","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2563"}},{"Add":{"text":"paymentParser = ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2580"}},{"Add":{"text":" Payment <$> (PaymentRequestId <$> field)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2623"}},{"Add":{"text":" <*> (field >>= (either fail pure . runGet decodeMessage))","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2691"}},{"Add":{"text":" <*> (toThyme <$> field)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2725"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":350,"ins":{"up_context":[{"change":3,"pos":668}],"down_context":[{"change":3,"pos":9145}],"flag":"BLOCK","start":2727,"end":2894,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":668},"to":{"change":2,"start":4789,"end":4815},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":2,"pos":4815},"to":{"change":3,"start":9039,"end":9145},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":9039},"to":{"change":3,"start":9039,"end":9145},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":"pgEval (FindBids aucId) =","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2752"}},{"Add":{"text":" pquery ((,) <$> idParser A.BidId <*> bidParser)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2802"}},{"Add":{"text":" \"SELECT id, user_id, bid_seconds, bid_amount, bid_time FROM bids WHERE auction_id = ?\"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2893"}}],"del_contents":[{"Del":{"text":"pgEval (ReadBids aucId) =","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:4814"}},{"Del":{"text":" pquery bidParser","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:9057"}},{"Del":{"text":" \"SELECT user_id, bid_seconds, bid_amount, bid_time FROM bids WHERE auction_id = ?\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:9144"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":371,"ins":{"up_context":[{"change":2,"pos":4918}],"down_context":[{"change":3,"pos":9743}],"flag":"BLOCK","start":2895,"end":2957,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":2,"pos":4918},"to":{"change":3,"start":9708,"end":9743},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":9708},"to":{"change":3,"start":9708,"end":9743},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" headMay <$> pquery ((,) <$> idParser UserId <*> userParser)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2956"}}],"del_contents":[{"Del":{"text":" headMay <$> pquery qdbUserParser","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:9742"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":412,"ins":{"up_context":[{"change":2,"pos":5200}],"down_context":[{"change":3,"pos":11413}],"flag":"BLOCK","start":2958,"end":3016,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":2,"pos":5200},"to":{"change":3,"start":11387,"end":11413},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":11387},"to":{"change":3,"start":11387,"end":11413},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" pquery ((,) <$> idParser P.ProjectId <*> projectParser)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3015"}}],"del_contents":[{"Del":{"text":" pquery qdbProjectParser","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:11412"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":437,"ins":{"up_context":[{"change":2,"pos":5529}],"down_context":[{"change":3,"pos":12451}],"flag":"BLOCK","start":3017,"end":3044,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":5529},"to":{"change":2,"start":5529,"end":5564},"introduced_by":2}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" , b ^. (B.gracePeriod)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3043"}}],"del_contents":[{"Del":{"text":" , b ^. (B.gracePeriod . _Days)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:5563"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":440,"ins":{"up_context":[{"change":3,"pos":3719}],"down_context":[{"change":3,"pos":12491}],"flag":"BLOCK","start":3045,"end":3073,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3719},"to":{"change":2,"start":5565,"end":5593},"introduced_by":2}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":"pgEval (FindBillable bid) =","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3072"}}],"del_contents":[{"Del":{"text":"pgEval (ReadBillable bid) =","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:5592"}}]}},{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":455,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":5781}],"down_context":[{"change":2,"pos":5781}],"flag":"BLOCK","start":3074,"end":3287,"inode":{"change":3,"pos":456}}},"contents":[{"Add":{"text":"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3074"}},{"Add":{"text":"pgEval (FindSubscription sid) = ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3107"}},{"Add":{"text":" headMay <$> pquery subscriptionParser","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3147"}},{"Add":{"text":" \"SELECT id, billable_id, start_date, end_date \\","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3199"}},{"Add":{"text":" \\FROM subscriptions s \\","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3227"}},{"Add":{"text":" \\WHERE s.id = ?\"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3248"}},{"Add":{"text":" (Only (sid ^. B._SubscriptionId))","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3286"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":464,"ins":{"up_context":[{"change":2,"pos":5820}],"down_context":[{"change":2,"pos":5883}],"flag":"BLOCK","start":3288,"end":3356,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":5820},"to":{"change":2,"start":5820,"end":5883},"introduced_by":2}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" pquery ((,) <$> idParser B.SubscriptionId <*> subscriptionParser)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3355"}}],"del_contents":[{"Del":{"text":" pquery ((,) <$> subscriptionIdParser <*> subscriptionParser)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:5882"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":477,"ins":{"up_context":[{"change":3,"pos":959}],"down_context":[{"change":2,"pos":6158}],"flag":"BLOCK","start":3357,"end":3476,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":959},"to":{"change":3,"start":959,"end":1044},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" \\(subscription_id, event_id, request_data, request_time, billing_date) \\","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3433"}},{"Add":{"text":" \\VALUES (?, ?, ?, ?, ?) RETURNING id\"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3475"}}],"del_contents":[{"Del":{"text":" \\(subscription_id, event_id, request_data) \\","pos":"Y3LIJ5USPMYBG7HKCIQBE7MWVGLQJPJSQD3KPZCTKXP22GOB535QC:1007"}},{"Del":{"text":" \\VALUES (?, ?, ?) RETURNING id\"","pos":"Y3LIJ5USPMYBG7HKCIQBE7MWVGLQJPJSQD3KPZCTKXP22GOB535QC:1043"}}]}},{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":482,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":1180}],"down_context":[{"change":3,"pos":1180}],"flag":"BLOCK","start":3477,"end":3568,"inode":{"change":3,"pos":456}}},"contents":[{"Add":{"text":" , req ^. (paymentRequestTime . to fromThyme)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3525"}},{"Add":{"text":" , req ^. (billingDate . to fromThyme)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3567"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":486,"ins":{"up_context":[{"change":3,"pos":1568}],"down_context":[{"change":3,"pos":48}],"flag":"BLOCK","start":3569,"end":4112,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1568},"to":{"change":2,"start":6207,"end":6248},"introduced_by":2}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":"pgEval (FindPaymentRequest rid) = ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3603"}},{"Add":{"text":" headMay <$> pquery paymentRequestParser","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3645"}},{"Add":{"text":" \"SELECT subscription_id, request_data, request_time, billing_date \\","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3715"}},{"Add":{"text":" \\FROM payment_requests \\","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3742"}},{"Add":{"text":" \\WHERE id = ?\"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3759"}},{"Add":{"text":" (Only (rid ^. _PaymentRequestId))","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3795"}},{"Add":{"text":" ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3798"}},{"Add":{"text":"pgEval (FindPaymentRequests sid) = ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3834"}},{"Add":{"text":" pquery ((,) <$> idParser PaymentRequestId <*> paymentRequestParser)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3904"}},{"Add":{"text":" \"SELECT id, subscription_id, request_data, request_time, billing_date \\","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3978"}},{"Add":{"text":" \\FROM payment_requests \\","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4005"}},{"Add":{"text":" \\WHERE subscription_id = ?\"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4035"}},{"Add":{"text":" (Only (sid ^. B._SubscriptionId))","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4071"}},{"Add":{"text":"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4072"}},{"Add":{"text":"pgEval dbop @ (CreatePayment _ p) = do","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4111"}}],"del_contents":[{"Del":{"text":"pgEval dbop @ (CreatePayment _ req) = do","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:6247"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":504,"ins":{"up_context":[{"change":3,"pos":129}],"down_context":[{"change":3,"pos":260}],"flag":"BLOCK","start":4113,"end":4259,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":129},"to":{"change":3,"start":129,"end":260},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" \\(payment_request_id, event_id, payment_data, payment_date) \\","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4178"}},{"Add":{"text":" \\VALUES (?, ?, ?, ?) RETURNING id\"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4217"}},{"Add":{"text":" ( p ^. (request . _PaymentRequestId)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4258"}}],"del_contents":[{"Del":{"text":" \\(payment_request_id, event_id, payment_data) \\","pos":"QADKFHAR3KWQCNYU25Z7PJUGMD5WL26IU3DOAHBTRN2A7NKPUPKAC:180"}},{"Del":{"text":" \\VALUES (?, ?, ?) RETURNING id\"","pos":"QADKFHAR3KWQCNYU25Z7PJUGMD5WL26IU3DOAHBTRN2A7NKPUPKAC:216"}},{"Del":{"text":" ( req ^. (request . _PaymentRequestId)","pos":"QADKFHAR3KWQCNYU25Z7PJUGMD5WL26IU3DOAHBTRN2A7NKPUPKAC:259"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":508,"ins":{"up_context":[{"change":3,"pos":286}],"down_context":[{"change":3,"pos":339}],"flag":"BLOCK","start":4260,"end":4351,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":286},"to":{"change":3,"start":286,"end":339},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" , p ^. (payment . to (runPut . encodeMessage))","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4310"}},{"Add":{"text":" , p ^. (paymentDate . to fromThyme)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4350"}}],"del_contents":[{"Del":{"text":" , req ^. (payment . to (runPut . encodeMessage))","pos":"QADKFHAR3KWQCNYU25Z7PJUGMD5WL26IU3DOAHBTRN2A7NKPUPKAC:338"}}]}},{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":511,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":345}],"down_context":[{"change":3,"pos":1044}],"flag":"BLOCK","start":4352,"end":4589,"inode":{"change":3,"pos":456}}},"contents":[{"Add":{"text":"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4352"}},{"Add":{"text":"pgEval (FindPayments rid) = ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4381"}},{"Add":{"text":" pquery ((,) <$> idParser PaymentId <*> paymentParser)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4437"}},{"Add":{"text":" \"SELECT id, payment_request_id, payment_data, payment_date \\","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4500"}},{"Add":{"text":" \\FROM payments \\","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4519"}},{"Add":{"text":" \\WHERE payment_request_id = ?\"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4552"}},{"Add":{"text":" (Only (rid ^. _PaymentRequestId))","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4588"}}]}},{"Edit":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":11,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":6460}],"down_context":[{"change":3,"pos":173}],"flag":"BLOCK","start":4591,"end":4647,"inode":{"change":3,"pos":4936}}},"contents":[{"Add":{"text":"import Control.Monad.Trans.Maybe (MaybeT(..))","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4646"}}]}},{"Edit":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":24,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5920},"to":{"change":3,"start":5920,"end":5956},"introduced_by":3}],"inode":{"change":3,"pos":4936}}},"contents":[{"Del":{"text":"type KeyedUser = (UserId, User)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5955"}}]}},{"Edit":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":25,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6007},"to":{"change":3,"start":6007,"end":6049},"introduced_by":3}],"inode":{"change":3,"pos":4936}}},"contents":[{"Del":{"text":"type KeyedProject = (ProjectId, Project)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6048"}}]}},{"Replacement":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":31,"ins":{"up_context":[{"change":3,"pos":6248}],"down_context":[{"change":3,"pos":6305}],"flag":"BLOCK","start":4648,"end":4710,"inode":{"change":3,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6248},"to":{"change":3,"start":6248,"end":6305},"introduced_by":3}],"inode":{"change":3,"pos":4936}},"ins_contents":[{"Add":{"text":" FindUserByName :: UserName -> DBOp (Maybe (UserId, User))","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4709"}}],"del_contents":[{"Del":{"text":" FindUserByName :: UserName -> DBOp (Maybe KeyedUser)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6304"}}]}},{"Replacement":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":35,"ins":{"up_context":[{"change":3,"pos":6410}],"down_context":[{"change":3,"pos":6462}],"flag":"BLOCK","start":4711,"end":4771,"inode":{"change":3,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6410},"to":{"change":3,"start":6410,"end":6462},"introduced_by":3}],"inode":{"change":3,"pos":4936}},"ins_contents":[{"Add":{"text":" FindUserProjects :: UserId -> DBOp [(ProjectId, Project)]","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4770"}}],"del_contents":[{"Del":{"text":" FindUserProjects :: UserId -> DBOp [KeyedProject]","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6461"}}]}},{"Replacement":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":50,"ins":{"up_context":[{"change":3,"pos":7028}],"down_context":[{"change":3,"pos":4052}],"flag":"BLOCK","start":4772,"end":4827,"inode":{"change":3,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":7028},"to":{"change":3,"start":7028,"end":7074},"introduced_by":3}],"inode":{"change":3,"pos":4936}},"ins_contents":[{"Add":{"text":" FindBids :: AuctionId -> DBOp [(BidId, Bid)]","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4826"}}],"del_contents":[{"Del":{"text":" ReadBids :: AuctionId -> DBOp [Bid]","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7073"}}]}},{"Replacement":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":53,"ins":{"up_context":[{"change":3,"pos":1063}],"down_context":[{"change":3,"pos":13382}],"flag":"BLOCK","start":4828,"end":4886,"inode":{"change":3,"pos":4936}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":1063},"to":{"change":3,"start":13324,"end":13382},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":13324},"to":{"change":3,"start":13324,"end":13382},"introduced_by":3}],"inode":{"change":3,"pos":4936}},"ins_contents":[{"Add":{"text":" FindBillable :: BillableId -> DBOp (Maybe Billable)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4885"}}],"del_contents":[{"Del":{"text":" ReadBillable :: BillableId -> DBOp (Maybe Billable)","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:13381"}}]}},{"Edit":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":56,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":6570}],"down_context":[{"change":2,"pos":6570}],"flag":"BLOCK","start":4887,"end":4954,"inode":{"change":3,"pos":4936}}},"contents":[{"Add":{"text":" FindSubscription :: SubscriptionId -> DBOp (Maybe Subscription)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4953"}}]}},{"Replacement":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":59,"ins":{"up_context":[{"change":3,"pos":4200}],"down_context":[{"change":3,"pos":7074}],"flag":"BLOCK","start":4955,"end":5319,"inode":{"change":3,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4200},"to":{"change":3,"start":1064,"end":1202},"introduced_by":3}],"inode":{"change":3,"pos":4936}},"ins_contents":[{"Add":{"text":" CreatePaymentRequest :: UserId -> PaymentRequest -> DBOp PaymentRequestId","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:5031"}},{"Add":{"text":" FindPaymentRequest :: PaymentRequestId -> DBOp (Maybe PaymentRequest)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:5106"}},{"Add":{"text":" FindPaymentRequests :: SubscriptionId -> DBOp [(PaymentRequestId, PaymentRequest)]","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:5193"}},{"Add":{"text":"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:5194"}},{"Add":{"text":" CreatePayment :: UserId -> Payment -> DBOp PaymentId","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:5250"}},{"Add":{"text":" FindPayments :: PaymentRequestId -> DBOp [(PaymentId, Payment)]","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:5318"}}],"del_contents":[{"Del":{"text":" CreatePaymentRequest :: UserId -> PaymentRequest -> DBOp PaymentRequestId","pos":"O227CEAV7BTKSE3SSC7XHC5IWEBXZL2AOOKJMBMOOFNTLINBLQMAC:1139"}},{"Del":{"text":" CreatePayment :: UserId -> Payment -> DBOp PaymentId","pos":"O227CEAV7BTKSE3SSC7XHC5IWEBXZL2AOOKJMBMOOFNTLINBLQMAC:1201"}}]}},{"Replacement":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":102,"ins":{"up_context":[{"change":3,"pos":5045}],"down_context":[{"change":2,"pos":7284}],"flag":"BLOCK","start":5320,"end":5390,"inode":{"change":3,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5045},"to":{"change":2,"start":7219,"end":7284},"introduced_by":2}],"inode":{"change":3,"pos":4936}},"ins_contents":[{"Add":{"text":"findUserByName :: (MonadDB m) => UserName -> m (Maybe (UserId, User))","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:5389"}}],"del_contents":[{"Del":{"text":"findUserByName :: (MonadDB m) => UserName -> m (Maybe KeyedUser)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:7283"}}]}},{"Replacement":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":118,"ins":{"up_context":[{"change":3,"pos":565}],"down_context":[{"change":2,"pos":7551}],"flag":"BLOCK","start":5391,"end":5461,"inode":{"change":3,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":565},"to":{"change":2,"start":7489,"end":7551},"introduced_by":2}],"inode":{"change":3,"pos":4936}},"ins_contents":[{"Add":{"text":"findUserProjects :: (MonadDB m) => UserId -> m [(ProjectId, Project)]","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:5460"}}],"del_contents":[{"Del":{"text":"findUserProjects :: (MonadDB m) => UserId -> m [KeyedProject]","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:7550"}}]}},{"Replacement":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":189,"ins":{"up_context":[{"change":3,"pos":4547}],"down_context":[{"change":3,"pos":4654}],"flag":"BLOCK","start":5462,"end":5936,"inode":{"change":3,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4547},"to":{"change":2,"start":9037,"end":9138},"introduced_by":2}],"inode":{"change":3,"pos":4936}},"ins_contents":[{"Add":{"text":"findBillable :: (MonadDB m) => BillableId -> MaybeT m Billable","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:5524"}},{"Add":{"text":"findBillable = MaybeT . liftdb . FindBillable","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:5570"}},{"Add":{"text":"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:5571"}},{"Add":{"text":"findSubscriptions :: (MonadDB m) => UserId -> ProjectId -> m [(SubscriptionId, Subscription)]","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:5665"}},{"Add":{"text":"findSubscriptions uid pid = liftdb $ FindSubscriptions uid pid","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:5728"}},{"Add":{"text":"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:5729"}},{"Add":{"text":"findSubscriptionBillable :: (MonadDB m) => SubscriptionId -> MaybeT m (Subscription' Billable)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:5824"}},{"Add":{"text":"findSubscriptionBillable sid = do","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:5858"}},{"Add":{"text":" sub <- MaybeT . liftdb $ FindSubscription sid","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:5906"}},{"Add":{"text":" traverse findBillable sub ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:5935"}}],"del_contents":[{"Del":{"text":"readBillable :: (MonadDB m) => BillableId -> m (Maybe Billable)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:9100"}},{"Del":{"text":"readBillable = liftdb . ReadBillable","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:9137"}}]}},{"Replacement":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":200,"ins":{"up_context":[{"change":3,"pos":4655}],"down_context":[{"change":3,"pos":1594}],"flag":"BLOCK","start":5937,"end":6083,"inode":{"change":3,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4655},"to":{"change":2,"start":9139,"end":9535},"introduced_by":2}],"inode":{"change":3,"pos":4936}},"ins_contents":[{"Add":{"text":"findPaymentRequests :: (MonadDB m) => SubscriptionId -> m [(PaymentRequestId, PaymentRequest)]","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6031"}},{"Add":{"text":"findPaymentRequests = liftdb . FindPaymentRequests","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6082"}}],"del_contents":[{"Del":{"text":"findSubscriptions :: (MonadDB m) ","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:9172"}},{"Del":{"text":" => UserId ","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:9201"}},{"Del":{"text":" -> ProjectId ","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:9233"}},{"Del":{"text":" -> m [(SubscriptionId, Subscription' Billable)]","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:9299"}},{"Del":{"text":"findSubscriptions uid pid = do","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:9330"}},{"Del":{"text":" subscriptions <- liftdb $ FindSubscriptions uid pid","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:9384"}},{"Del":{"text":" let sub'' s = sequenceA <$> traverse readBillable s","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:9438"}},{"Del":{"text":" sub' (sid, s) = fmap (fmap (sid,)) (sub'' s)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:9489"}},{"Del":{"text":" catMaybes <$> traverse sub' subscriptions ","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:9534"}}]}},{"Replacement":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":203,"ins":{"up_context":[{"change":3,"pos":1595}],"down_context":[{"change":3,"pos":4910}],"flag":"BLOCK","start":6084,"end":6223,"inode":{"change":3,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1595},"to":{"change":2,"start":9536,"end":9595},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":3,"pos":515},"to":{"change":3,"start":4861,"end":4910},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":2,"pos":9595},"to":{"change":3,"start":4861,"end":4910},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":3,"pos":13896},"to":{"change":3,"start":4861,"end":4910},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4861},"to":{"change":3,"start":4861,"end":4910},"introduced_by":3}],"inode":{"change":3,"pos":4936}},"ins_contents":[{"Add":{"text":"findPayment :: (MonadDB m) => PaymentRequestId -> m (Maybe Payment)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6151"}},{"Add":{"text":"findPayment prid = (fmap snd . headMay) <$> liftdb (FindPayments prid)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6222"}}],"del_contents":[{"Del":{"text":"readPaymentHistory :: (MonadDB m) => UserId -> m [Payment]","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:9594"}},{"Del":{"text":"readPaymentHistory = error \"Not yet implemented\"","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:4909"}}]}},{"Edit":{"inode":{"change":3,"pos":19},"path":"lib/Aftok/Json.hs","line":24,"atom":{"NewVertex":{"up_context":[{"change":42,"pos":58}],"down_context":[{"change":43,"pos":3094}],"flag":"BLOCK","start":6225,"end":6278,"inode":{"change":3,"pos":19}}},"contents":[{"Add":{"text":"import Data.Thyme.Calendar (showGregorian)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6277"}}]}},{"Edit":{"inode":{"change":3,"pos":19},"path":"lib/Aftok/Json.hs","line":30,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":115},"to":{"change":3,"start":1294,"end":1326},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1404},"to":{"change":3,"start":1294,"end":1326},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1294},"to":{"change":3,"start":1294,"end":1326},"introduced_by":3}],"inode":{"change":3,"pos":19}}},"contents":[{"Del":{"text":"import Aftok.Database","pos":"NLZ3JXLOOIL37O3RRQWXHNPNSNEOOLPD6MCB754BEBECQB3KGR2AC:1325"}}]}},{"Edit":{"inode":{"change":3,"pos":19},"path":"lib/Aftok/Json.hs","line":33,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":171},"to":{"change":2,"start":10086,"end":10114},"introduced_by":2}],"inode":{"change":3,"pos":19}}},"contents":[{"Del":{"text":"import Aftok.Time","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:10113"}}]}},{"Replacement":{"inode":{"change":3,"pos":19},"path":"lib/Aftok/Json.hs","line":102,"ins":{"up_context":[{"change":3,"pos":486}],"down_context":[{"change":3,"pos":6629}],"flag":"BLOCK","start":6279,"end":6327,"inode":{"change":3,"pos":19}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":486},"to":{"change":3,"start":9335,"end":9375},"introduced_by":3}],"inode":{"change":3,"pos":19}},"ins_contents":[{"Add":{"text":"qdbProjectJSON :: (ProjectId, Project) -> Value","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6326"}}],"del_contents":[{"Del":{"text":"qdbProjectJSON :: KeyedProject -> Value","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:9374"}}]}},{"Replacement":{"inode":{"change":3,"pos":19},"path":"lib/Aftok/Json.hs","line":181,"ins":{"up_context":[{"change":2,"pos":10168}],"down_context":[{"change":2,"pos":10224}],"flag":"BLOCK","start":6328,"end":6374,"inode":{"change":3,"pos":19}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":10168},"to":{"change":2,"start":10168,"end":10224},"introduced_by":2}],"inode":{"change":3,"pos":19}},"ins_contents":[{"Add":{"text":" , \"gracePeriod\" .= (b ^. B.gracePeriod)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6373"}}],"del_contents":[{"Del":{"text":" , \"gracePeriod\" .= (b ^. (B.gracePeriod . _Days))","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:10223"}}]}},{"Replacement":{"inode":{"change":3,"pos":19},"path":"lib/Aftok/Json.hs","line":188,"ins":{"up_context":[{"change":3,"pos":2030}],"down_context":[{"change":3,"pos":2095}],"flag":"BLOCK","start":6375,"end":6442,"inode":{"change":3,"pos":19}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2030},"to":{"change":3,"start":2030,"end":2095},"introduced_by":3}],"inode":{"change":3,"pos":19}},"ins_contents":[{"Add":{"text":"--recurrenceJSON' B.SemiMonthly = object [ \"semimonthly\" .= Null ]","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6441"}}],"del_contents":[{"Del":{"text":"recurrenceJSON' B.SemiMonthly = object [ \"semimonthly\" .= Null ]","pos":"O227CEAV7BTKSE3SSC7XHC5IWEBXZL2AOOKJMBMOOFNTLINBLQMAC:2094"}}]}},{"Replacement":{"inode":{"change":3,"pos":19},"path":"lib/Aftok/Json.hs","line":202,"ins":{"up_context":[{"change":3,"pos":907}],"down_context":[{"change":3,"pos":967}],"flag":"BLOCK","start":6443,"end":6569,"inode":{"change":3,"pos":19}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":907},"to":{"change":3,"start":907,"end":967},"introduced_by":3}],"inode":{"change":3,"pos":19}},"ins_contents":[{"Add":{"text":" , \"payment_request_time\" .= (r ^. paymentRequestTime)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6502"}},{"Add":{"text":" , \"billing_date\" .= (r ^. (billingDate . to showGregorian))","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6568"}}],"del_contents":[{"Del":{"text":" , \"payment_request_date\" .= (r ^. paymentRequestDate)","pos":"WAIX6AGNDVJOKTWZ7OP7QOYSJHAJSX5EOWXZHOAO2IG6ALWUCJ6QC:966"}}]}},{"Edit":{"inode":{"change":2,"pos":10545},"path":"lib/Aftok/Payments/Types.hs","line":2,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":10579}],"down_context":[{"change":2,"pos":10579}],"flag":"BLOCK","start":6572,"end":6670,"inode":{"change":2,"pos":10545}}},"contents":[{"Add":{"text":"{-# LANGUAGE DeriveFunctor #-}","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6602"}},{"Add":{"text":"{-# LANGUAGE DeriveFoldable #-}","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6634"}},{"Add":{"text":"{-# LANGUAGE DeriveTraversable #-}","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6669"}}]}},{"Edit":{"inode":{"change":2,"pos":10545},"path":"lib/Aftok/Payments/Types.hs","line":12,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":10704}],"down_context":[{"change":2,"pos":10704}],"flag":"BLOCK","start":6671,"end":6713,"inode":{"change":2,"pos":10545}}},"contents":[{"Add":{"text":"import Data.Thyme.Time as T","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6712"}}]}},{"Edit":{"inode":{"change":2,"pos":10545},"path":"lib/Aftok/Payments/Types.hs","line":16,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":10774}],"down_context":[{"change":2,"pos":10774}],"flag":"BLOCK","start":6714,"end":6795,"inode":{"change":2,"pos":10545}}},"contents":[{"Add":{"text":"import Network.Bippy.Types (expiryTime, getPaymentDetails, getExpires)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6794"}}]}},{"Replacement":{"inode":{"change":2,"pos":10545},"path":"lib/Aftok/Payments/Types.hs","line":30,"ins":{"up_context":[{"change":2,"pos":11150}],"down_context":[{"change":2,"pos":11191}],"flag":"BLOCK","start":6796,"end":6912,"inode":{"change":2,"pos":10545}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":11150},"to":{"change":2,"start":11150,"end":11191},"introduced_by":2}],"inode":{"change":2,"pos":10545}},"ins_contents":[{"Add":{"text":" , _paymentRequestTime :: C.UTCTime","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6832"}},{"Add":{"text":" , _billingDate :: T.Day","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6865"}},{"Add":{"text":" } deriving (Functor, Foldable, Traversable)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6911"}}],"del_contents":[{"Del":{"text":" , _paymentRequestDate :: C.UTCTime","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:11186"}},{"Del":{"text":" }","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:11190"}}]}},{"Replacement":{"inode":{"change":2,"pos":10545},"path":"lib/Aftok/Payments/Types.hs","line":41,"ins":{"up_context":[{"change":2,"pos":11383}],"down_context":[{"change":2,"pos":11387}],"flag":"BLOCK","start":6913,"end":6959,"inode":{"change":2,"pos":10545}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":11383},"to":{"change":2,"start":11383,"end":11387},"introduced_by":2}],"inode":{"change":2,"pos":10545}},"ins_contents":[{"Add":{"text":" } deriving (Functor, Foldable, Traversable)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6958"}}],"del_contents":[{"Del":{"text":" }","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:11386"}}]}},{"Replacement":{"inode":{"change":2,"pos":10545},"path":"lib/Aftok/Payments/Types.hs","line":46,"ins":{"up_context":[{"change":2,"pos":11452}],"down_context":[],"flag":"BLOCK","start":6960,"end":7382,"inode":{"change":2,"pos":10545}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":11452},"to":{"change":2,"start":11452,"end":11453},"introduced_by":2}],"inode":{"change":2,"pos":10545}},"ins_contents":[{"Add":{"text":"{- Check whether the specified payment request has expired (whether wallet software","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7043"}},{"Add":{"text":" - will still consider the payment request valid)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7093"}},{"Add":{"text":" -}","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7097"}},{"Add":{"text":"isExpired :: C.UTCTime -> P.PaymentRequest -> Bool","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7148"}},{"Add":{"text":"isExpired now req = ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7169"}},{"Add":{"text":" let check = any ((now >) . T.toThyme . expiryTime)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7222"}},{"Add":{"text":" -- using error here is reasonable since it would indicate ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7283"}},{"Add":{"text":" -- a serialization problem","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7312"}},{"Add":{"text":" in either error (check . getExpires) $ getPaymentDetails req","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7376"}},{"Add":{"text":" ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7381"}}],"del_contents":[{"Del":{"text":"","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:11452"}}]}},{"Replacement":{"inode":{"change":3,"pos":5686},"path":"lib/Aftok/Payments.hs","line":11,"ins":{"up_context":[{"change":3,"pos":5782}],"down_context":[{"change":2,"pos":11677}],"flag":"BLOCK","start":7384,"end":7517,"inode":{"change":3,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5782},"to":{"change":2,"start":11615,"end":11677},"introduced_by":2}],"inode":{"change":3,"pos":5686}},"ins_contents":[{"Add":{"text":"import Control.Error.Util (maybeT)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7428"}},{"Add":{"text":"import Control.Lens (makeClassy, makeClassyPrisms, view, (%~), (^.), review)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7516"}}],"del_contents":[{"Del":{"text":"import Control.Lens (makeLenses, view, (%~), (^.))","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:11676"}}]}},{"Replacement":{"inode":{"change":3,"pos":5686},"path":"lib/Aftok/Payments.hs","line":14,"ins":{"up_context":[{"change":2,"pos":11713}],"down_context":[{"change":2,"pos":11829}],"flag":"BLOCK","start":7518,"end":7653,"inode":{"change":3,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":11713},"to":{"change":2,"start":11713,"end":11829},"introduced_by":2}],"inode":{"change":3,"pos":5686}},"ins_contents":[{"Add":{"text":"import Control.Monad.Except (MonadError, throwError)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7580"}},{"Add":{"text":"import qualified Crypto.PubKey.RSA.Types as RSA (Error(..), PrivateKey)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7652"}}],"del_contents":[{"Del":{"text":"import Control.Monad.Except (MonadError)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:11763"}},{"Del":{"text":"import Crypto.PubKey.RSA.Types (Error(..), PrivateKey)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:11828"}}]}},{"Edit":{"inode":{"change":3,"pos":5686},"path":"lib/Aftok/Payments.hs","line":20,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":11965}],"down_context":[{"change":3,"pos":2276}],"flag":"BLOCK","start":7654,"end":7696,"inode":{"change":3,"pos":5686}}},"contents":[{"Add":{"text":"import Data.Thyme.Time as T","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7695"}}]}},{"Edit":{"inode":{"change":3,"pos":5686},"path":"lib/Aftok/Payments.hs","line":22,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2318},"to":{"change":2,"start":11966,"end":12016},"introduced_by":2}],"inode":{"change":3,"pos":5686}}},"contents":[{"Del":{"text":"import Data.Thyme.Time.Core (fromThyme)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:12015"}}]}},{"Replacement":{"inode":{"change":3,"pos":5686},"path":"lib/Aftok/Payments.hs","line":39,"ins":{"up_context":[{"change":2,"pos":12522}],"down_context":[{"change":2,"pos":12552}],"flag":"BLOCK","start":7697,"end":7731,"inode":{"change":3,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":12522},"to":{"change":2,"start":12522,"end":12552},"introduced_by":2}],"inode":{"change":3,"pos":5686}},"ins_contents":[{"Add":{"text":" , _signingKey :: RSA.PrivateKey","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7730"}}],"del_contents":[{"Del":{"text":" , _signingKey :: PrivateKey","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:12551"}}]}},{"Replacement":{"inode":{"change":3,"pos":5686},"path":"lib/Aftok/Payments.hs","line":42,"ins":{"up_context":[{"change":2,"pos":12583}],"down_context":[{"change":2,"pos":12610}],"flag":"BLOCK","start":7732,"end":8387,"inode":{"change":3,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":12583},"to":{"change":2,"start":12583,"end":12610},"introduced_by":2}],"inode":{"change":3,"pos":5686}},"ins_contents":[{"Add":{"text":"makeClassy ''BillingConfig","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7758"}},{"Add":{"text":"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7759"}},{"Add":{"text":"data BillingOps (m :: * -> *) = BillingOps","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7802"}},{"Add":{"text":" { memoGen :: Subscription' Billable -> m (Maybe Text) -- ^ generator user memo","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7893"}},{"Add":{"text":" , uriGen :: Subscription' Billable -> m (Maybe URI) -- ^ generator for payment response URL","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7999"}},{"Add":{"text":" , payloadGen :: Subscription' Billable -> m (Maybe ByteString) -- ^ generator for merchant payload","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8101"}},{"Add":{"text":" }","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8105"}},{"Add":{"text":"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8106"}},{"Add":{"text":"data PaymentRequestStatus ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8133"}},{"Add":{"text":" = Paid Payment -- ^ the request was paid with the specified payment","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8213"}},{"Add":{"text":" | Unpaid PaymentRequest -- ^ the request has not been paid, but has not yet expired","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8300"}},{"Add":{"text":" | Expired PaymentRequest -- ^ the request was not paid prior to the expiration date","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8386"}}],"del_contents":[{"Del":{"text":"makeLenses ''BillingConfig","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:12609"}}]}},{"Edit":{"inode":{"change":3,"pos":5686},"path":"lib/Aftok/Payments.hs","line":55,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":12611}],"down_context":[{"change":2,"pos":12611}],"flag":"BLOCK","start":8388,"end":8495,"inode":{"change":3,"pos":5686}}},"contents":[{"Add":{"text":"data PaymentError","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8405"}},{"Add":{"text":" = Overdue SubscriptionId","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8432"}},{"Add":{"text":" | SigningError RSA.Error","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8459"}},{"Add":{"text":"makeClassyPrisms ''PaymentError","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8491"}},{"Add":{"text":" ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8494"}}]}},{"Replacement":{"inode":{"change":3,"pos":5686},"path":"lib/Aftok/Payments.hs","line":61,"ins":{"up_context":[{"change":2,"pos":12612}],"down_context":[{"change":2,"pos":13259}],"flag":"BLOCK","start":8496,"end":9048,"inode":{"change":3,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":12612},"to":{"change":2,"start":12612,"end":13259},"introduced_by":2}],"inode":{"change":3,"pos":5686}},"ins_contents":[{"Add":{"text":"createPaymentRequests :: ( MonadRandom m","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8536"}},{"Add":{"text":" , MonadReader r m, HasBillingConfig r","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8599"}},{"Add":{"text":" , MonadError e m, AsPaymentError e","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8660"}},{"Add":{"text":" , MonadDB m","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8697"}},{"Add":{"text":" ) ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8725"}},{"Add":{"text":" => BillingOps m -- ^ generators for payment request components","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8810"}},{"Add":{"text":" -> C.UTCTime -- ^ timestamp for payment request creation","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8892"}},{"Add":{"text":" -> UserId -- ^ customer responsible for payment","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8968"}},{"Add":{"text":" -> ProjectId -- ^ project whose worklog is to be paid","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9047"}}],"del_contents":[{"Del":{"text":"createPaymentRequests :: (MonadRandom m, MonadReader BillingConfig m, MonadError Error m, MonadDB m) => ","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:12716"}},{"Del":{"text":" C.UTCTime -- timestamp for payment request creation","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:12793"}},{"Del":{"text":" -> (Subscription' Billable -> m (Maybe Text)) -- generator user memo","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:12890"}},{"Del":{"text":" -> (Subscription' Billable -> m (Maybe URI)) -- generator for payment response URL","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:13002"}},{"Del":{"text":" -> (Subscription' Billable -> m (Maybe ByteString)) -- generator for merchant payload","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:13110"}},{"Del":{"text":" -> UserId -- user responsible for payment","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:13177"}},{"Del":{"text":" -> ProjectId -- project whose worklog is to be paid out to","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:13258"}}]}},{"Replacement":{"inode":{"change":3,"pos":5686},"path":"lib/Aftok/Payments.hs","line":71,"ins":{"up_context":[{"change":2,"pos":13305}],"down_context":[{"change":2,"pos":13366}],"flag":"BLOCK","start":9049,"end":9095,"inode":{"change":3,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":13305},"to":{"change":2,"start":13305,"end":13366},"introduced_by":2}],"inode":{"change":3,"pos":5686}},"ins_contents":[{"Add":{"text":"createPaymentRequests ops now custId pid = do","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9094"}}],"del_contents":[{"Del":{"text":"createPaymentRequests t memogen urigen plgen custId pid = do","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:13365"}}]}},{"Edit":{"inode":{"change":3,"pos":5686},"path":"lib/Aftok/Payments.hs","line":73,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":13414}],"down_context":[{"change":2,"pos":13414}],"flag":"BLOCK","start":9096,"end":10287,"inode":{"change":3,"pos":5686}}},"contents":[{"Add":{"text":" join <$> traverse (createSubscriptionPaymentRequests ops now custId) subscriptions ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9181"}},{"Add":{"text":"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9182"}},{"Add":{"text":"createSubscriptionPaymentRequests :: ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9220"}},{"Add":{"text":" ( MonadRandom m","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9241"}},{"Add":{"text":" , MonadReader r m, HasBillingConfig r","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9284"}},{"Add":{"text":" , MonadError e m, AsPaymentError e","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9324"}},{"Add":{"text":" , MonadDB m","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9341"}},{"Add":{"text":" ) ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9349"}},{"Add":{"text":" => BillingOps m ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9368"}},{"Add":{"text":" -> C.UTCTime","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9383"}},{"Add":{"text":" -> UserId","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9395"}},{"Add":{"text":" -> (SubscriptionId, Subscription)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9431"}},{"Add":{"text":" -> m [PaymentRequestId]","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9457"}},{"Add":{"text":"createSubscriptionPaymentRequests ops now custId (sid, sub) = do","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9522"}},{"Add":{"text":" billableSub <- maybeT (raiseSubjectNotFound . FindBillable $ sub ^. billable) pure $","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9609"}},{"Add":{"text":" traverse findBillable sub","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9652"}},{"Add":{"text":" paymentRequests <- findPaymentRequests sid","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9697"}},{"Add":{"text":" billableDates <- findUnbilledDates now (view billable billableSub) paymentRequests $","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9786"}},{"Add":{"text":" takeWhile (< view _utctDay now) $ billingSchedule billableSub","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9869"}},{"Add":{"text":" traverse (createPaymentRequest ops now custId sid billableSub) billableDates","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9948"}},{"Add":{"text":"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9949"}},{"Add":{"text":"createPaymentRequest :: ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9974"}},{"Add":{"text":" ( MonadRandom m","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9995"}},{"Add":{"text":" , MonadReader r m, HasBillingConfig r","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10038"}},{"Add":{"text":" , MonadError e m, AsPaymentError e","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10078"}},{"Add":{"text":" , MonadDB m","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10095"}},{"Add":{"text":" ) ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10103"}},{"Add":{"text":" => BillingOps m ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10122"}},{"Add":{"text":" -> C.UTCTime","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10137"}},{"Add":{"text":" -> UserId","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10149"}},{"Add":{"text":" -> SubscriptionId","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10169"}},{"Add":{"text":" -> Subscription' Billable","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10197"}},{"Add":{"text":" -> T.Day","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10208"}},{"Add":{"text":" -> m PaymentRequestId","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10232"}},{"Add":{"text":"createPaymentRequest ops now custId sid sub bday = do","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10286"}}]}},{"Replacement":{"inode":{"change":3,"pos":5686},"path":"lib/Aftok/Payments.hs","line":109,"ins":{"up_context":[{"change":2,"pos":13427}],"down_context":[{"change":3,"pos":610}],"flag":"BLOCK","start":10288,"end":11973,"inode":{"change":3,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":13427},"to":{"change":2,"start":13427,"end":13603},"introduced_by":2}],"inode":{"change":3,"pos":5686}},"ins_contents":[{"Add":{"text":" memo <- memoGen ops sub","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10316"}},{"Add":{"text":" uri <- uriGen ops sub","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10344"}},{"Add":{"text":" payload <- payloadGen ops sub","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10376"}},{"Add":{"text":" details <- createPaymentDetails bday now memo uri payload (sub ^. billable)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10454"}},{"Add":{"text":" reqErr <- B.createPaymentRequest (cfg ^. signingKey) (cfg ^. pkiData) details","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10535"}},{"Add":{"text":" req <- either (throwError . review _SigningError) pure reqErr","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10603"}},{"Add":{"text":" liftdb $ CreatePaymentRequest custId (PaymentRequest sid req now bday)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10676"}},{"Add":{"text":" ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10679"}},{"Add":{"text":"{-","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10682"}},{"Add":{"text":" - FIXME: The current implementation expects the billing day to be a suitable","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10760"}},{"Add":{"text":" - key for comparison to payment requests. This is almost certainly inadequate.","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10840"}},{"Add":{"text":" -}","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10844"}},{"Add":{"text":"findUnbilledDates :: (MonadDB m, MonadError e m, AsPaymentError e)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10911"}},{"Add":{"text":" => C.UTCTime -- ^ the date against which payment request expiration should be checked","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:11015"}},{"Add":{"text":" -> Billable","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:11045"}},{"Add":{"text":" -> [(PaymentRequestId, PaymentRequest)] -- ^ the list of existing payment requests ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:11147"}},{"Add":{"text":" -> [T.Day] -- ^ the list of expected billing days","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:11217"}},{"Add":{"text":" -> m [T.Day] -- ^ the list of billing days for which no payment request exists","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:11314"}},{"Add":{"text":"findUnbilledDates now b (px @ (p : ps)) (dx @ (d : ds)) =","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:11372"}},{"Add":{"text":" case compare (view (_2 . billingDate) p) d of","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:11420"}},{"Add":{"text":" EQ -> getRequestStatus now p >>= \\s -> case s of","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:11473"}},{"Add":{"text":" Expired r -> if view _utctDay now > addDays (view gracePeriod b) (view billingDate r) ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:11572"}},{"Add":{"text":" then throwError (review _Overdue (r ^. subscription))","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:11653"}},{"Add":{"text":" else fmap (d :) $ findUnbilledDates now b px dx -- d will be rebilled","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:11750"}},{"Add":{"text":" _ -> findUnbilledDates now b ps ds -- if paid or unpaid, nothing to do","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:11841"}},{"Add":{"text":" GT -> fmap (d :) $ findUnbilledDates now b px ds ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:11895"}},{"Add":{"text":" LT -> findUnbilledDates now b ps dx","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:11935"}},{"Add":{"text":"findUnbilledDates _ _ _ ds = pure ds","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:11972"}}],"del_contents":[{"Del":{"text":" let createPaymentDetails' s = do","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:13461"}},{"Del":{"text":" memo <- memogen s","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:13487"}},{"Del":{"text":" uri <- urigen s","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:13511"}},{"Del":{"text":" payload <- plgen s","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:13538"}},{"Del":{"text":" createPaymentDetails t memo uri payload (s ^. billable)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:13602"}}]}},{"Replacement":{"inode":{"change":3,"pos":5686},"path":"lib/Aftok/Payments.hs","line":138,"ins":{"up_context":[{"change":3,"pos":611}],"down_context":[{"change":2,"pos":13890}],"flag":"BLOCK","start":11974,"end":12573,"inode":{"change":3,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":611},"to":{"change":2,"start":13604,"end":13890},"introduced_by":2}],"inode":{"change":3,"pos":5686}},"ins_contents":[{"Add":{"text":"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:11974"}},{"Add":{"text":"{- Check whether the specified payment request has a payment associated with","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:12051"}},{"Add":{"text":" - it, and return a PaymentRequestStatus value indicating the result.","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:12121"}},{"Add":{"text":" -}","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:12125"}},{"Add":{"text":"getRequestStatus :: (MonadDB m) ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:12158"}},{"Add":{"text":" => C.UTCTime -- ^ the date against which request expiration should be checked","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:12253"}},{"Add":{"text":" -> (PaymentRequestId, PaymentRequest) -- ^ the request for which to find a payment","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:12353"}},{"Add":{"text":" -> m PaymentRequestStatus","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:12396"}},{"Add":{"text":"getRequestStatus now (reqid, req) = ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:12433"}},{"Add":{"text":" let ifUnpaid = (if isExpired now (view paymentRequest req) then Expired else Unpaid) req","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:12524"}},{"Add":{"text":" in maybe ifUnpaid Paid <$> findPayment reqid","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:12572"}}],"del_contents":[{"Del":{"text":" createPaymentRequest (sid, s) = do","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:13644"}},{"Del":{"text":" details <- createPaymentDetails' s ","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:13688"}},{"Del":{"text":" req <- B.createPaymentRequest (cfg ^. signingKey) (cfg ^. pkiData) details","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:13771"}},{"Del":{"text":" liftdb $ CreatePaymentRequest custId (PaymentRequest sid req t)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:13843"}},{"Del":{"text":" traverse createPaymentRequest subscriptions","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:13889"}}]}},{"Replacement":{"inode":{"change":3,"pos":5686},"path":"lib/Aftok/Payments.hs","line":150,"ins":{"up_context":[{"change":2,"pos":13891}],"down_context":[{"change":2,"pos":14275}],"flag":"BLOCK","start":12574,"end":13149,"inode":{"change":3,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":13891},"to":{"change":2,"start":13891,"end":14275},"introduced_by":2}],"inode":{"change":3,"pos":5686}},"ins_contents":[{"Add":{"text":"{- Create the PaymentDetails section of the payment request.","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:12634"}},{"Add":{"text":" -}","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:12638"}},{"Add":{"text":"createPaymentDetails :: (MonadRandom m, MonadReader r m, HasBillingConfig r, MonadDB m) ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:12727"}},{"Add":{"text":" => T.Day -- ^ payout date (billing date)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:12802"}},{"Add":{"text":" -> C.UTCTime -- ^ timestamp of payment request creation","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:12888"}},{"Add":{"text":" -> Maybe Text -- ^ user memo","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:12946"}},{"Add":{"text":" -> Maybe URI -- ^ payment response URL","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:13015"}},{"Add":{"text":" -> Maybe ByteString -- ^ merchant payload","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:13080"}},{"Add":{"text":" -> Billable -- ^ billing information","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:13148"}}],"del_contents":[{"Del":{"text":"createPaymentDetails :: (MonadRandom m, MonadReader BillingConfig m, MonadDB m) =>","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:13973"}},{"Del":{"text":" C.UTCTime -- timestamp for payment request creation","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:14057"}},{"Del":{"text":" -> Maybe Text -- user memo","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:14112"}},{"Del":{"text":" -> Maybe URI -- payment response URL","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:14178"}},{"Del":{"text":" -> Maybe ByteString -- merchant payload","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:14240"}},{"Del":{"text":" -> Billable ","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:14274"}}]}},{"Replacement":{"inode":{"change":3,"pos":5686},"path":"lib/Aftok/Payments.hs","line":160,"ins":{"up_context":[{"change":2,"pos":14318}],"down_context":[{"change":2,"pos":14551}],"flag":"BLOCK","start":13150,"end":13434,"inode":{"change":3,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":14318},"to":{"change":2,"start":14318,"end":14551},"introduced_by":2}],"inode":{"change":3,"pos":5686}},"ins_contents":[{"Add":{"text":"createPaymentDetails payoutDate billingTime memo uri payload b = do","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:13217"}},{"Add":{"text":" payouts <- getProjectPayouts payoutTime (b ^. project)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:13274"}},{"Add":{"text":" outputs <- createPayoutsOutputs payoutTime (b ^. amount) payouts","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:13341"}},{"Add":{"text":" let expiry = (BT.Expiry . T.fromThyme . (billingTime .+^)) <$> (b ^. requestExpiryPeriod)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:13433"}}],"del_contents":[{"Del":{"text":"createPaymentDetails t memo uri payload b = do","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:14364"}},{"Del":{"text":" payouts <- getProjectPayouts t (b ^. project)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:14412"}},{"Del":{"text":" outputs <- createPayoutsOutputs t (b ^. amount) payouts","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:14470"}},{"Del":{"text":" let expiry = (BT.Expiry . fromThyme . (t .+^)) <$> (b ^. requestExpiryPeriod)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:14550"}}]}},{"Replacement":{"inode":{"change":3,"pos":5686},"path":"lib/Aftok/Payments.hs","line":165,"ins":{"up_context":[{"change":2,"pos":14564}],"down_context":[{"change":2,"pos":14659}],"flag":"BLOCK","start":13435,"end":13627,"inode":{"change":3,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":14564},"to":{"change":2,"start":14564,"end":14659},"introduced_by":2}],"inode":{"change":3,"pos":5686}},"ins_contents":[{"Add":{"text":" pure $ B.createPaymentDetails ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:13467"}},{"Add":{"text":" (cfg ^. network) ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:13489"}},{"Add":{"text":" outputs ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:13502"}},{"Add":{"text":" (T.fromThyme billingTime) ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:13533"}},{"Add":{"text":" expiry memo uri payload","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:13561"}},{"Add":{"text":" where ","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:13570"}},{"Add":{"text":" payoutTime = T.mkUTCTime payoutDate (fromInteger 0)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:13626"}}],"del_contents":[{"Del":{"text":" pure $ B.createPaymentDetails (cfg ^. network) outputs (fromThyme t) expiry memo uri payload","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:14658"}}]}},{"Replacement":{"inode":{"change":3,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":46,"ins":{"up_context":[{"change":3,"pos":3443}],"down_context":[{"change":3,"pos":1433}],"flag":"BLOCK","start":13632,"end":13695,"inode":{"change":3,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3443},"to":{"change":2,"start":18063,"end":18118},"introduced_by":2}],"inode":{"change":3,"pos":2363}},"ins_contents":[{"Add":{"text":"projectListHandler :: S.Handler App App [(ProjectId, Project)]","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:13694"}}],"del_contents":[{"Del":{"text":"projectListHandler :: S.Handler App App [KeyedProject]","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:18117"}}]}},{"Replacement":{"inode":{"change":3,"pos":1074},"path":"stack.yaml","line":6,"ins":{"up_context":[{"change":3,"pos":10594}],"down_context":[{"change":3,"pos":10647}],"flag":"BLOCK","start":13697,"end":13750,"inode":{"change":3,"pos":1074}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":10594},"to":{"change":2,"start":23287,"end":23340},"introduced_by":2}],"inode":{"change":3,"pos":1074}},"ins_contents":[{"Add":{"text":" commit: 97fda0368ae660239d1b9398d44530cd5b05eec3","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:13749"}}],"del_contents":[{"Del":{"text":" commit: ddfc1bf0911351d0be51f33ea9e4166a24d2b19a","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:23339"}}]}}],"owner":"nuttycom","repo":"aftok","token":"ZcE8szVwcIBOJUAtUCoqQPllGOSL+qo9tNvzTcmw3CE=","login":null}

…

Dependencies

Change contents

Review