{"header":{"message":"Add billing daemon","description":"This adds a daemon application for handling the scheduled task of\nsending payment request emails. It consists of the following parts:\n\nAdd subscription route.\nAdd billing list route.\nAdd billable creation route.\nMove billing config to lib module\nAdd payment request email templating to Billable.\nAdd synthesis of billing URL from payment key\nAdd memo & payment response URI to bill payload.\n\nFix a bunch of broken SQL using postgresql-simple-query-validator\n\nSee https://github.com/joncfoo/postgresql-simple-query-validator\nfor the awesomeness.","timestamp":"2017-09-24T21:28:14Z","authors":[{"email":"kris.nuttycombe@pellucid.com","name":"Kris Nuttycombe"}]},"hash":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC","authors":[],"deps":{"hashes":[["IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC","Add billing daemon"],["AA",null],["4B66XH43UYRVNTX57ORJ7U6IJTRFKSUS6IJ3CXVODMEF7NA7UHVQC","Add sample billing config"],["SOIAMXLWIB5RIEMKXUFMBSE2SKQQTMHYSW3DKUX6GEV4VNOQVHAQC","Build versioned docker images."],["AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC","Implement payments service endpoints."],["O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC","Undo JSON silliness, enable a couple more routes."],["QADKFHAR3KWQCNYU25Z7PJUGMD5WL26IU3DOAHBTRN2A7NKPUPKAC","Adds CreatePayment handler implementation."],["TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC","Switch to Postgres + snaplet arch compiles."],["Y3LIJ5USPMYBG7HKCIQBE7MWVGLQJPJSQD3KPZCTKXP22GOB535QC","Add handler for CreatePaymentRequest"],["NVOCQVASZWTKQJG7GPH7KHKZZR7NUG4WLV5YY4KAIRPCJRWCZPIAC","Initial failing tests."],["TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC","Lenses, sqlite-simple"],["JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC","stylish-haskell formatting."],["64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","Rename Ananke -> Quixotic, project reboot."],["Q5X5RYQLP5K7REYD6VLHOKC4W36ZELJYA45V6YFKTD5S6MPN3NDQC","stylish-haskell reformatting"],["DXIGERDTERUIG7QHHRPKTSJHSQEPJPDJVLUW7YVC7URXBQ4ZJVOAC","Change order of Docker build to avoid rebuilding the universe."],["WFZDMVUXZ2KPTMRAZGEYHKEJTKOKWVYCXKKAKQ7K6I5TMSLBUJ4QC","Rename ADB -> QDB"],["O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC","Add route to allow crediting of events to users/projects."],["4ZLEDBK7VGLKFUPENAFLUJYNFLKFYJ3TREPQ7P6PKMYGJUXB55HQC","Initial attempts at dockerizing, cabal isn't cooperating."],["W35DDBFYF6Z4ZPCFEO5RPAONZLYCSNTXUSTS6FIUUVZHCI6Q7GHAC","Factor common JSON conversions up into client lib module."],["RN7EI6INGUUHGMNY5RU3NH56WPLRZY5ZMYDNFMNE3TGV4ESFLQIAC","Update database layer to use CreditTo"],["7HPY3QPFPN35PSPUBVNW2GTFB3CBQZBST4J2BAVJ7QMXLIUN52JAC","Fix linting errors. (yay hlint!)"],["HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC","Implement core of payments/billing infrastructure."],["KNSI575VAW6HRCZYXOEPQ4DTSML4EORML5MV4DJBRKE7TXCPS4EAC","Cleanup of EventLog types."],["GKGVYBZGPJXO7N7GLHLRNYQPXFHBQSNQN53OKRFCXLQEYDTC5I4QC","Added JSON serialization to TimeLog"],["ASF3UPJLCX7KIUCNJD5KAXSPDXCUEJHLL4HBRTRUBPCW73IXOCWQC","Add auction creation and bid handlers"],["2G3GNDDUOVPF45PELJ65ZB2IXEHJJXJILFRVHZXGPXUL4BVNZJFQC","Event logging is now functioning in postgres."],["ZP62WC472OTQETO2HTHIQIPO57XZIWVKPA4KL62GYU4OZDMB6NSAC","Begin conversion to build with stack."],["NTPC7KJEAPA34SBIA74FVQSJXYNW32RIUQTHUSUTKMEUCPLUIBJAC","Trivial changes, feature scratchpad."],["2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC","Add invitation logic and clean up DBProg error handling."],["UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC","The route-based logStart/logStop is nicer."],["DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC","Initial work on payments API"],["6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC","Use generic SMTP rather than Sendmail-specific mail client."],["BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC","Beginning of modularization of server."],["IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","Work in progress replacing sqlite with postgres."],["SCXG6TJWYIPRUMT27KGKIIF6FYKTUTY74UNZ2FQTT63XZ6HIF3AAC","Make log reduction safer in presence of overlapping events."],["LEINLS3X55PB6TSCNC5RVMDMV56XHTV4MNDUC42H7DDFMPDYUNTAC","Update deployment documentation."],["4IQVQL4TS35GL2GYZJG254TKJLL5EHMRSFT77Z4VTRZIG2TMBM3QC","Added client for payouts endpoint."],["EW2XN7KUMCAQNVFJJ5YTAVDZCPHNWDOEDMRFBUGLY6IE2HKNNX5AC","Update docker build, clean up migration for payments tables."],["2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC","Switch to more modern cabal2nix-based workflow."],["FD7SV5I6VCW27HZ3T3K4MMGB2OYGJTPKFFA263TNTAMRJGQJWVNAC","Fix handling of event_t columns."],["WZFQDWW4XK6M4A4PQ7WQJUTZUPRGQR7V7ZVZY5ZTL5AMGIFMHB2QC","Add retrieval/storage of current exchange rate data to payment recording."],["FXJQACESPGTLPG5ELXBU3M3OQXUZQQIR7HPIEHQ3FNUTMWVH4WBAC","Ensure that auction is not ended at the time of bid"],["NLZ3JXLOOIL37O3RRQWXHNPNSNEOOLPD6MCB754BEBECQB3KGR2AC","Fix formatting with stylish-haskell."],["4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC","Make payment request retrieval key an opaque 32-bit hash."],["MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC","Utility methods for reading key & cert data."],["KEP5WUFJXTMKRRNZLYTGYYWA4VLFCMHTKTJYF5EA5IWBYFMU6WYQC","Convert project to stack-based build."],["ADMKQQGCGVSHHIMVQ4XFRDCG544SBJCYALSKZV45CQQBZ4ACUH2AC","Initial empty Snap project."],["HO2PFRABW6BBTE4MUKUTEGXCMJS46WGVBCNWOHO4OL52DVAB4YDAC","Client login now handles response correctly."],["3QVT6MA6I2CILQH3LUZABS4YQ7MN6CNRYTDRVS376OOHTPLYTFJAC","Add database support for event amend operations."],["A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC","Attempting to improve JSON handling."],["QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC","Refactor QDB to use a free monad algebra instead."],["NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC","Reformat via stylish-haskell"],["POX3UAMTGCNS3SU5I6IKDNCCSHEAUSFBZ3WCMQ3EXKPNXETOI6BAC","Enabling logging of time to contributor/project accounts"],["5XFJNUAZUCQ3WCGW4QRIAWR764QYDOPHOIVO2TRMGSSG7UDX2M2AC","Start of addition of project infrastructure."],["Z3MK2PJ5U222DXRS22WCDHVPZ7HVAR3HOCUNXIGX6VMEPBQDF6PQC","Add GET handler for retrieving auction data."],["4U7F3CPIDTK6JSEDMNMHVKSR7HOQDLZQD2PPVMDLHO5SFSIMUXZAC","THE GREAT RENAMING OF THINGS!"],["O227CEAV7BTKSE3SSC7XHC5IWEBXZL2AOOKJMBMOOFNTLINBLQMAC","Adds storage of original event JSON for some DBOp constructors."],["EMVTF2IWNQGRL44FC4JNG5FYYQTZSFPNM6SOM7IAEH6T7PPK2NVAC","WIP moving back to snap."],["LCBJULKEU4I5FRUGYNRQSHXYLY5X3LRTSNWDCTZLS7YE4BBBDE6AC","Fix swapped default and key in QConfig."],["NAS4BFL43SIUAAC663R6VFBHQ2DKI45K6Y6ZKVQI7S5547HBAN7QC","Trivial stylish-haskell reformat."],["SPJCFHXWUHL5DPU72R6MLMVYCRL4YNOMGTDXRFL6GZPN5KOHAW7AC","Update shell scripts to point to https://aftok.com and prompt for input."],["I2KHGVD44KT4MQJXGCTVSQKMBO6TVCY72F26TLXGWRL6PHGF6RNQC","Require project permissions for access to most data."],["V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC","Enable postgres configuration via environment variable for Heroku."],["M3KUPGZK2UTW4FG3Q632K7P7MI4FVWD5TTIP45UTI3E72UKOWJBAC","Add invitation email template."],["SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC","Implement payment request creation functions."],["PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC","Postgres & auth are beginning to function."],["WAIX6AGNDVJOKTWZ7OP7QOYSJHAJSX5EOWXZHOAO2IG6ALWUCJ6QC","Add event serialization for PaymentRequest & Payment"],["RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC","Change to use UUIDs instead of ints for primary keys."],["GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC","Create amends endpoint, switch to UUID primary keys"],["XTBSG4C7SCZUFOU2BTNFR6B6TCGYI35BWUV4PVTS3N7KNH5VEARQC","Adding serveJSON combinator to eliminate some boilerplate from handlers."],["5OI44E4EEVYOMHDWNK2WA7K4L4JWRWCUJUNN2UAUGE5VY4W7GTNAC","Add authentication to auction search."],["Y35QCWYW2OTZ27ZVTH2BA3XJTUCJ2WMLKU32ZCOCDY3AW7TIZXRAC","Minor improvement in WorkIndex type to eliminate duplicated information."],["7VGYLTMURLVSVUYFW7TCRZTDQ6RE2EPSPPA43XKHDOBFWYVVSJHQC","Clean up schema version handling."],["7KZP4RHZ3QSYTPPQ257A65Z5UPX44TF2LAI2U5EMULQCLDCEUK2AC","Switch from Data.Time to Data.Thyme"],["TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC","Completed conversion to snap."],["MGOF7IUFGXYQKZOKMM2GGULFFVAULEHLZDSHMUW6B5DBKVXXR74AC","Update TASKS list to reflect completed projects."],["Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC","Very WIP. Wow."],["RSEB2NFGUBTFESE5BJKDUVQL5Y5ZVGY5O4CJX2LNP63MS3NRHHZQC","Replacing Snap with Scotty."],["HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC","Added initial auction create route."],["BSIUHCGFDFDFGWYMHZB7OVU3Z3IHPEUXRISIOPGZI2RUXZFDS2EQC","Add payment response handler."],["73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC","Begin implementation of billing event persistence."],["LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC","More database stuff."],["EKI57EJR65DA5FPILAHGHHAIU5ITVGHA6V3775OX7GV5XD67OWRQC","Add alternative implementation of auction winner determination."],["5DRIWGLUKMQZU2ZPBXSTLAWJKAMOD5YXAHM5LEDQHDFGYYLHWCDQC","Improving TimeLog specs"],["AXKKXBWN4EMUOLV43WN52JSKJPBV7TLSGLNJW5EZXHSJNKCYUWOQC","Initial attempt at writing down my ideas for a company based on trust."],["2WOOGXDHVQ6L2MQYUTLJ6H6FVSQNJN6SMJL5DG7HAHFYPJLRT2SAC","Use dbmigrations to manage database state."]],"deps":["4B66XH43UYRVNTX57ORJ7U6IJTRFKSUS6IJ3CXVODMEF7NA7UHVQC","SOIAMXLWIB5RIEMKXUFMBSE2SKQQTMHYSW3DKUX6GEV4VNOQVHAQC"],"known":["ADMKQQGCGVSHHIMVQ4XFRDCG544SBJCYALSKZV45CQQBZ4ACUH2AC","NVOCQVASZWTKQJG7GPH7KHKZZR7NUG4WLV5YY4KAIRPCJRWCZPIAC","Y35QCWYW2OTZ27ZVTH2BA3XJTUCJ2WMLKU32ZCOCDY3AW7TIZXRAC","GKGVYBZGPJXO7N7GLHLRNYQPXFHBQSNQN53OKRFCXLQEYDTC5I4QC","RSEB2NFGUBTFESE5BJKDUVQL5Y5ZVGY5O4CJX2LNP63MS3NRHHZQC","64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","NTPC7KJEAPA34SBIA74FVQSJXYNW32RIUQTHUSUTKMEUCPLUIBJAC","EMVTF2IWNQGRL44FC4JNG5FYYQTZSFPNM6SOM7IAEH6T7PPK2NVAC","WFZDMVUXZ2KPTMRAZGEYHKEJTKOKWVYCXKKAKQ7K6I5TMSLBUJ4QC","TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC","TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC","W35DDBFYF6Z4ZPCFEO5RPAONZLYCSNTXUSTS6FIUUVZHCI6Q7GHAC","4IQVQL4TS35GL2GYZJG254TKJLL5EHMRSFT77Z4VTRZIG2TMBM3QC","2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC","IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC","BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC","5XFJNUAZUCQ3WCGW4QRIAWR764QYDOPHOIVO2TRMGSSG7UDX2M2AC","Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC","LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC","I2KHGVD44KT4MQJXGCTVSQKMBO6TVCY72F26TLXGWRL6PHGF6RNQC","PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC","2G3GNDDUOVPF45PELJ65ZB2IXEHJJXJILFRVHZXGPXUL4BVNZJFQC","XTBSG4C7SCZUFOU2BTNFR6B6TCGYI35BWUV4PVTS3N7KNH5VEARQC","A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC","FD7SV5I6VCW27HZ3T3K4MMGB2OYGJTPKFFA263TNTAMRJGQJWVNAC","7KZP4RHZ3QSYTPPQ257A65Z5UPX44TF2LAI2U5EMULQCLDCEUK2AC","SCXG6TJWYIPRUMT27KGKIIF6FYKTUTY74UNZ2FQTT63XZ6HIF3AAC","KNSI575VAW6HRCZYXOEPQ4DTSML4EORML5MV4DJBRKE7TXCPS4EAC","O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC","RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC","GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC","4U7F3CPIDTK6JSEDMNMHVKSR7HOQDLZQD2PPVMDLHO5SFSIMUXZAC","V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC","4ZLEDBK7VGLKFUPENAFLUJYNFLKFYJ3TREPQ7P6PKMYGJUXB55HQC","SPJCFHXWUHL5DPU72R6MLMVYCRL4YNOMGTDXRFL6GZPN5KOHAW7AC","QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC","2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC","M3KUPGZK2UTW4FG3Q632K7P7MI4FVWD5TTIP45UTI3E72UKOWJBAC","LCBJULKEU4I5FRUGYNRQSHXYLY5X3LRTSNWDCTZLS7YE4BBBDE6AC","6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC","MGOF7IUFGXYQKZOKMM2GGULFFVAULEHLZDSHMUW6B5DBKVXXR74AC","7HPY3QPFPN35PSPUBVNW2GTFB3CBQZBST4J2BAVJ7QMXLIUN52JAC","KEP5WUFJXTMKRRNZLYTGYYWA4VLFCMHTKTJYF5EA5IWBYFMU6WYQC","ZP62WC472OTQETO2HTHIQIPO57XZIWVKPA4KL62GYU4OZDMB6NSAC","NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC","NLZ3JXLOOIL37O3RRQWXHNPNSNEOOLPD6MCB754BEBECQB3KGR2AC","HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC","5OI44E4EEVYOMHDWNK2WA7K4L4JWRWCUJUNN2UAUGE5VY4W7GTNAC","Z3MK2PJ5U222DXRS22WCDHVPZ7HVAR3HOCUNXIGX6VMEPBQDF6PQC","ASF3UPJLCX7KIUCNJD5KAXSPDXCUEJHLL4HBRTRUBPCW73IXOCWQC","FXJQACESPGTLPG5ELXBU3M3OQXUZQQIR7HPIEHQ3FNUTMWVH4WBAC","POX3UAMTGCNS3SU5I6IKDNCCSHEAUSFBZ3WCMQ3EXKPNXETOI6BAC","3QVT6MA6I2CILQH3LUZABS4YQ7MN6CNRYTDRVS376OOHTPLYTFJAC","RN7EI6INGUUHGMNY5RU3NH56WPLRZY5ZMYDNFMNE3TGV4ESFLQIAC","O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC","UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC","7VGYLTMURLVSVUYFW7TCRZTDQ6RE2EPSPPA43XKHDOBFWYVVSJHQC","DXIGERDTERUIG7QHHRPKTSJHSQEPJPDJVLUW7YVC7URXBQ4ZJVOAC","NAS4BFL43SIUAAC663R6VFBHQ2DKI45K6Y6ZKVQI7S5547HBAN7QC","LEINLS3X55PB6TSCNC5RVMDMV56XHTV4MNDUC42H7DDFMPDYUNTAC","DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC","73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC","Y3LIJ5USPMYBG7HKCIQBE7MWVGLQJPJSQD3KPZCTKXP22GOB535QC","QADKFHAR3KWQCNYU25Z7PJUGMD5WL26IU3DOAHBTRN2A7NKPUPKAC","O227CEAV7BTKSE3SSC7XHC5IWEBXZL2AOOKJMBMOOFNTLINBLQMAC","WAIX6AGNDVJOKTWZ7OP7QOYSJHAJSX5EOWXZHOAO2IG6ALWUCJ6QC","Q5X5RYQLP5K7REYD6VLHOKC4W36ZELJYA45V6YFKTD5S6MPN3NDQC","HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC","MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC","SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC","JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC","AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC","4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC","BSIUHCGFDFDFGWYMHZB7OVU3Z3IHPEUXRISIOPGZI2RUXZFDS2EQC","WZFQDWW4XK6M4A4PQ7WQJUTZUPRGQR7V7ZVZY5ZTL5AMGIFMHB2QC","EW2XN7KUMCAQNVFJJ5YTAVDZCPHNWDOEDMRFBUGLY6IE2HKNNX5AC","HO2PFRABW6BBTE4MUKUTEGXCMJS46WGVBCNWOHO4OL52DVAB4YDAC"]},"hunks":[{"Edit":{"inode":{"change":4,"pos":43},"path":"Dockerfile","line":55,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":152}],"down_context":[{"change":4,"pos":152}],"flag":"BLOCK","start":1,"end":37,"inode":{"change":4,"pos":43}}},"contents":[{"Add":{"text":"ADD ./daemon /opt/aftok/daemon","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:36"}}]}},{"Edit":{"inode":{"change":4,"pos":1254},"path":"Makefile","line":12,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":614},"to":{"change":4,"start":1432,"end":1433},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":4,"pos":701},"to":{"change":4,"start":1432,"end":1433},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1432},"to":{"change":4,"start":1432,"end":1433},"introduced_by":4}],"inode":{"change":4,"pos":1254}}},"contents":[{"Del":{"text":"","pos":"LEINLS3X55PB6TSCNC5RVMDMV56XHTV4MNDUC42H7DDFMPDYUNTAC:1432"}}]}},{"Edit":{"inode":{"change":4,"pos":1},"path":"aftok.cabal","line":26,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":156}],"down_context":[{"change":4,"pos":238}],"flag":"BLOCK","start":40,"end":75,"inode":{"change":4,"pos":1}}},"contents":[{"Add":{"text":" Aftok.Config","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:74"}}]}},{"Edit":{"inode":{"change":4,"pos":1},"path":"aftok.cabal","line":64,"atom":{"NewVertex":{"up_context":[{"change":83,"pos":11}],"down_context":[{"change":4,"pos":388}],"flag":"BLOCK","start":76,"end":109,"inode":{"change":4,"pos":1}}},"contents":[{"Add":{"text":" , network ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:108"}}]}},{"Edit":{"inode":{"change":4,"pos":1},"path":"aftok.cabal","line":72,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":7126}],"down_context":[{"change":84,"pos":1576}],"flag":"BLOCK","start":110,"end":163,"inode":{"change":4,"pos":1}}},"contents":[{"Add":{"text":" , smtp-mail ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:140"}},{"Add":{"text":" , system-filepath","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:162"}}]}},{"Edit":{"inode":{"change":4,"pos":1},"path":"aftok.cabal","line":81,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":2906}],"down_context":[{"change":4,"pos":1311}],"flag":"BLOCK","start":164,"end":192,"inode":{"change":4,"pos":1}}},"contents":[{"Add":{"text":" , x509","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:174"}},{"Add":{"text":" , x509-store","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:191"}}]}},{"Edit":{"inode":{"change":4,"pos":1},"path":"aftok.cabal","line":138,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":592}],"down_context":[{"change":4,"pos":1}],"flag":"BLOCK","start":193,"end":232,"inode":{"change":4,"pos":1}}},"contents":[{"Add":{"text":" , Aftok.Snaplet.Billing","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:231"}}]}},{"Edit":{"inode":{"change":4,"pos":1},"path":"aftok.cabal","line":177,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":914}],"down_context":[{"change":4,"pos":7327}],"flag":"BLOCK","start":233,"end":1416,"inode":{"change":4,"pos":1}}},"contents":[{"Add":{"text":" , system-filepath","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:254"}},{"Add":{"text":" , text","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:265"}},{"Add":{"text":" , thyme","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:277"}},{"Add":{"text":" , transformers","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:296"}},{"Add":{"text":" , uuid ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:323"}},{"Add":{"text":" , wreq ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:342"}},{"Add":{"text":" , x509","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:353"}},{"Add":{"text":" , x509-store","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:370"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:371"}},{"Add":{"text":"Executable aftok-daemon","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:395"}},{"Add":{"text":" default-language: Haskell2010","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:429"}},{"Add":{"text":" ghc-options: -Wall -Werror","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:465"}},{"Add":{"text":" hs-source-dirs: daemon","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:494"}},{"Add":{"text":" default-extensions: NoImplicitPrelude","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:534"}},{"Add":{"text":" , OverloadedStrings","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:574"}},{"Add":{"text":" , RecordWildCards","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:612"}},{"Add":{"text":" , ScopedTypeVariables","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:654"}},{"Add":{"text":" , KindSignatures","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:691"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:692"}},{"Add":{"text":" main-is: Main.hs","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:722"}},{"Add":{"text":" other-modules: AftokD","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:751"}},{"Add":{"text":" , AftokD.AftokM","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:787"}},{"Add":{"text":" build-depends: ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:810"}},{"Add":{"text":" aftok","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:822"}},{"Add":{"text":" , base","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:833"}},{"Add":{"text":" , aeson","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:845"}},{"Add":{"text":" , attoparsec","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:862"}},{"Add":{"text":" , base64-bytestring","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:886"}},{"Add":{"text":" , bytestring","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:903"}},{"Add":{"text":" , bippy","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:915"}},{"Add":{"text":" , cereal","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:928"}},{"Add":{"text":" , classy-prelude ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:961"}},{"Add":{"text":" , containers","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:978"}},{"Add":{"text":" , configurator ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1011"}},{"Add":{"text":" , cryptonite","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1028"}},{"Add":{"text":" , either","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1041"}},{"Add":{"text":" , errors","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1054"}},{"Add":{"text":" , hourglass","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1070"}},{"Add":{"text":" , HStringTemplate ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1102"}},{"Add":{"text":" , iso8601-time","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1121"}},{"Add":{"text":" , HsOpenSSL","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1137"}},{"Add":{"text":" , http-client","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1155"}},{"Add":{"text":" , http-client-openssl","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1181"}},{"Add":{"text":" , lens","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1192"}},{"Add":{"text":" , mime-mail","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1208"}},{"Add":{"text":" , mtl ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1239"}},{"Add":{"text":" , network ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1272"}},{"Add":{"text":" , network-uri","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1290"}},{"Add":{"text":" , optparse-applicative ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1323"}},{"Add":{"text":" , postgresql-simple","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1347"}},{"Add":{"text":" , protobuf","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1362"}},{"Add":{"text":" , smtp-mail ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1393"}},{"Add":{"text":" , system-filepath","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1415"}}]}},{"FileAdd":{"meta":{"basename":"daemon","metadata":576},"context":[{"change":85,"pos":2}],"contents":[]}},{"FileAdd":{"meta":{"basename":"AftokD","metadata":576},"context":[{"change":0,"pos":1418}],"contents":[]}},{"FileAdd":{"meta":{"basename":"AftokM.hs","metadata":0},"context":[{"change":0,"pos":1438}],"contents":[{"Add":{"text":"{-# LANGUAGE TemplateHaskell #-}","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1497"}},{"Add":{"text":"{-# LANGUAGE GeneralizedNewtypeDeriving #-}","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1547"}},{"Add":{"text":"{-# LANGUAGE RecordWildCards #-}","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1580"}},{"Add":{"text":"{-# LANGUAGE FlexibleContexts #-}","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1614"}},{"Add":{"text":"module AftokD.AftokM where","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1641"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1642"}},{"Add":{"text":"import ClassyPrelude ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1664"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1665"}},{"Add":{"text":"import Control.Error.Util (maybeT)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1700"}},{"Add":{"text":"import Control.Lens ((^.), makeLenses, makeClassyPrisms, traverseOf, to)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1773"}},{"Add":{"text":"import Control.Monad.IO.Class (MonadIO(..))","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1817"}},{"Add":{"text":"import Control.Monad.Except (MonadError, throwError)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1870"}},{"Add":{"text":"import Control.Monad.Reader (MonadReader)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1912"}},{"Add":{"text":"import Control.Monad.Trans.Except (ExceptT, withExceptT, runExceptT)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:1981"}},{"Add":{"text":"import Control.Monad.Trans.Reader (mapReaderT, withReaderT)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2041"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2042"}},{"Add":{"text":"import Crypto.Random.Types (MonadRandom(..))","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2101"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2102"}},{"Add":{"text":"import Database.PostgreSQL.Simple (Connection, connect)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2165"}},{"Add":{"text":"import Data.Thyme.Clock as C","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2208"}},{"Add":{"text":"import Data.Thyme.Time as T","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2237"}},{"Add":{"text":"import Network.Mail.Mime","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2272"}},{"Add":{"text":"import Network.Mail.SMTP as SMTP","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2324"}},{"Add":{"text":"import Network.URI (URI, parseURI)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2359"}},{"Add":{"text":"import Text.StringTemplate","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2396"}},{"Add":{"text":"import Filesystem.Path.CurrentOS (encodeString)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2444"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2445"}},{"Add":{"text":"import Network.Bippy.Types (Satoshi)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2482"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2483"}},{"Add":{"text":"import Aftok (User, UserId, userEmail, _Email)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2541"}},{"Add":{"text":"import Aftok.Types (satoshi)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2570"}},{"Add":{"text":"import qualified Aftok.Config as AC","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2606"}},{"Add":{"text":"import Aftok.Billables (Billable, Billable', Subscription', customer, name, billable, project, paymentRequestEmailTemplate, paymentRequestMemoTemplate)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2759"}},{"Add":{"text":"import qualified Aftok.Database as DB","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2797"}},{"Add":{"text":"import Aftok.Database.PostgreSQL (QDBM(..))","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2851"}},{"Add":{"text":"import qualified Aftok.Payments as P","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2888"}},{"Add":{"text":"import Aftok.Payments.Types (PaymentKey(..), subscription, paymentRequestTotal, paymentKey)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:2990"}},{"Add":{"text":"import Aftok.Project (Project, ProjectId(..), projectName)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3059"}},{"Add":{"text":"import qualified AftokD as D","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3088"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3089"}},{"Add":{"text":"data AftokDErr","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3104"}},{"Add":{"text":" = ConfigError Text","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3125"}},{"Add":{"text":" | DBErr DB.DBError","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3146"}},{"Add":{"text":" | PaymentErr P.PaymentError","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3176"}},{"Add":{"text":"makeClassyPrisms ''AftokDErr","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3205"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3206"}},{"Add":{"text":"instance P.AsPaymentError AftokDErr where","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3248"}},{"Add":{"text":" _PaymentError = _PaymentErr . P._PaymentError","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3296"}},{"Add":{"text":" _Overdue = _PaymentErr . P._Overdue","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3334"}},{"Add":{"text":" _SigningError = _PaymentErr . P._SigningError","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3382"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3383"}},{"Add":{"text":"data AftokMEnv = AftokMEnv ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3411"}},{"Add":{"text":" { _dcfg :: !D.Config","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3434"}},{"Add":{"text":" , _conn :: !Connection","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3459"}},{"Add":{"text":" , _pcfg :: !P.PaymentsConfig","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3490"}},{"Add":{"text":" }","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3494"}},{"Add":{"text":"makeLenses ''AftokMEnv","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3517"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3518"}},{"Add":{"text":"instance P.HasPaymentsConfig AftokMEnv where","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3563"}},{"Add":{"text":" network = pcfg . P.network","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3592"}},{"Add":{"text":" signingKey = pcfg . P.signingKey","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3627"}},{"Add":{"text":" pkiData = pcfg . P.pkiData","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3656"}},{"Add":{"text":" paymentsConfig = pcfg","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3680"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3681"}},{"Add":{"text":"newtype AftokM a = AftokM { runAftokM :: ReaderT AftokMEnv (ExceptT AftokDErr IO) a }","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3767"}},{"Add":{"text":" deriving (Functor, Applicative, Monad, MonadIO, MonadError AftokDErr, MonadReader AftokMEnv)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3862"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3863"}},{"Add":{"text":"instance MonadRandom AftokM where","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3897"}},{"Add":{"text":" getRandomBytes = liftIO . getRandomBytes","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3940"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3941"}},{"Add":{"text":"instance DB.MonadDB AftokM where","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:3974"}},{"Add":{"text":" liftdb = liftQDBM . DB.liftdb","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4006"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4007"}},{"Add":{"text":"liftQDBM :: QDBM a -> AftokM a","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4038"}},{"Add":{"text":"liftQDBM (QDBM r) = ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4059"}},{"Add":{"text":" AftokM . mapReaderT (withExceptT DBErr) . withReaderT _conn $ r","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4125"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4126"}},{"Add":{"text":"createAllPaymentRequests :: D.Config -> IO ()","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4172"}},{"Add":{"text":"createAllPaymentRequests cfg = do","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4206"}},{"Add":{"text":" conn' <- connect $ cfg ^. D.dbConfig","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4245"}},{"Add":{"text":" pcfg' <- AC.toPaymentsConfig $ cfg ^. D.billingConfig","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4301"}},{"Add":{"text":" let env = AftokMEnv cfg conn' pcfg'","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4339"}},{"Add":{"text":" void . runExceptT $ (runReaderT . runAftokM) createProjectsPaymentRequests $ env","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4422"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4423"}},{"Add":{"text":"createProjectsPaymentRequests :: AftokM ()","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4466"}},{"Add":{"text":"createProjectsPaymentRequests = do","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4501"}},{"Add":{"text":" projects <- liftQDBM $ DB.listProjects","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4542"}},{"Add":{"text":" traverse_ createProjectPaymentRequests projects","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4592"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4593"}},{"Add":{"text":"createProjectPaymentRequests :: ProjectId -> AftokM ()","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4648"}},{"Add":{"text":"createProjectPaymentRequests pid = do","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4686"}},{"Add":{"text":" now <- liftIO C.getCurrentTime","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4721"}},{"Add":{"text":" let ops = P.BillingOps memoGen (fmap Just . paymentURL) payloadGen","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4792"}},{"Add":{"text":" subscribers <- liftQDBM $ DB.findSubscribers pid","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4845"}},{"Add":{"text":" requests <- traverse (\\uid -> P.createPaymentRequests ops now uid pid) $ subscribers","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4934"}},{"Add":{"text":" traverse_ sendPaymentRequestEmail (join requests)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4988"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:4989"}},{"Add":{"text":"sendPaymentRequestEmail :: P.PaymentRequestId -> AftokM ()","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:5048"}},{"Add":{"text":"sendPaymentRequestEmail reqId = do","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:5083"}},{"Add":{"text":" cfg <- ask","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:5096"}},{"Add":{"text":" let AC.SmtpConfig{..} = cfg ^. (dcfg . D.smtpConfig)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:5151"}},{"Add":{"text":" preqCfg = cfg ^. (dcfg . D.paymentRequestConfig)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:5206"}},{"Add":{"text":" reqMay = do","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:5224"}},{"Add":{"text":" preq <- DB.findPaymentRequestId reqId","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:5270"}},{"Add":{"text":" preq' <- traverseOf P.subscription DB.findSubscriptionBillable preq","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:5346"}},{"Add":{"text":" preq'' <- traverseOf (P.subscription . customer) DB.findUser preq'","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:5421"}},{"Add":{"text":" traverseOf (P.subscription . billable . project) DB.findProject preq''","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:5500"}},{"Add":{"text":" req <- maybeT (throwError $ DBErr DB.SubjectNotFound) pure reqMay","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:5568"}},{"Add":{"text":" bip70URL <- paymentURL (req ^. paymentKey)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:5613"}},{"Add":{"text":" mail <- buildPaymentRequestEmail preqCfg req bip70URL","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:5669"}},{"Add":{"text":" let mailer = maybe (sendMailWithLogin _smtpHost) (sendMailWithLogin' _smtpHost) _smtpPort","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:5761"}},{"Add":{"text":" liftIO $ mailer _smtpUser _smtpPass mail","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:5804"}},{"Add":{"text":" ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:5807"}},{"Add":{"text":"buildPaymentRequestEmail :: (MonadIO m, MonadError AftokDErr m)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:5871"}},{"Add":{"text":" => D.PaymentRequestConfig","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:5922"}},{"Add":{"text":" -> P.PaymentRequest' (Subscription' User (Billable' Project UserId Satoshi))","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:6024"}},{"Add":{"text":" -> URI","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:6056"}},{"Add":{"text":" -> m Mail","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:6091"}},{"Add":{"text":"buildPaymentRequestEmail cfg req paymentUrl = do","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:6140"}},{"Add":{"text":" templates <- liftIO . directoryGroup $ encodeString (cfg ^. D.templatePath)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:6218"}},{"Add":{"text":" let billTemplate = (newSTMP . unpack) <$> req ^. (subscription . billable . paymentRequestEmailTemplate)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:6325"}},{"Add":{"text":" defaultTemplate = getStringTemplate \"payment_request\" templates","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:6395"}},{"Add":{"text":" case billTemplate <|> defaultTemplate of","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:6438"}},{"Add":{"text":" Nothing -> throwError $ ConfigError \"Could not find template for invitation email\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:6525"}},{"Add":{"text":" Just template -> ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:6547"}},{"Add":{"text":" let fromEmail = cfg ^. D.billingFromEmail","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:6595"}},{"Add":{"text":" toEmail = req ^. (subscription . customer . userEmail)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:6660"}},{"Add":{"text":" pname = req ^. (subscription . billable . project . projectName)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:6735"}},{"Add":{"text":" total = req ^. (P.paymentRequest . to paymentRequestTotal)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:6804"}},{"Add":{"text":" setAttrs = setManyAttrib ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:6840"}},{"Add":{"text":" [ (\"from_email\", fromEmail ^. _Email)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:6890"}},{"Add":{"text":" , (\"project_name\", pname)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:6928"}},{"Add":{"text":" , (\"to_email\", toEmail ^. _Email)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:6974"}},{"Add":{"text":" , (\"amount_due\", tshow $ total ^. satoshi)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7029"}},{"Add":{"text":" , (\"payment_url\", tshow paymentUrl)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7077"}},{"Add":{"text":" ]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7091"}},{"Add":{"text":" fromAddr = Address Nothing (\"billing@aftok.com\")","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7150"}},{"Add":{"text":" toAddr = Address Nothing (toEmail ^. _Email)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7207"}},{"Add":{"text":" subject = \"Payment is due for your \"<>pname<>\" subscription!\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7280"}},{"Add":{"text":" body = plainTextPart . render $ setAttrs template","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7344"}},{"Add":{"text":" in pure $ SMTP.simpleMail fromAddr [toAddr] [] [] subject [body]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7416"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7417"}},{"Add":{"text":"memoGen :: Subscription' UserId Billable ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7459"}},{"Add":{"text":" -> T.Day ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7477"}},{"Add":{"text":" -> C.UTCTime ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7499"}},{"Add":{"text":" -> AftokM (Maybe Text)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7530"}},{"Add":{"text":"memoGen sub billingDate requestTime = do","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7571"}},{"Add":{"text":" req <- traverseOf (billable . project) DB.findProjectOrError sub","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7638"}},{"Add":{"text":" let template = (newSTMP . unpack) <$> (sub ^. (billable . paymentRequestMemoTemplate))","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7727"}},{"Add":{"text":" setAttrs = setManyAttrib ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7759"}},{"Add":{"text":" [ (\"project_name\", req ^. (billable . project . projectName))","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7829"}},{"Add":{"text":" , (\"subscription\", req ^. (billable . name))","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7882"}},{"Add":{"text":" , (\"billing_date\", tshow billingDate)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7928"}},{"Add":{"text":" , (\"issue_time\", tshow requestTime)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7972"}},{"Add":{"text":" ]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:7982"}},{"Add":{"text":" pure $ fmap (render . setAttrs) template","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8025"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8026"}},{"Add":{"text":"-- The same URL is used for retrieving a BIP-70 payment request and for submitting","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8109"}},{"Add":{"text":"-- the response.","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8126"}},{"Add":{"text":"paymentURL :: PaymentKey -> AftokM URI","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8165"}},{"Add":{"text":"paymentURL (PaymentKey k) = do","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8196"}},{"Add":{"text":" env <- ask","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8209"}},{"Add":{"text":" let hostname = env ^. (dcfg . D.paymentRequestConfig . D.aftokHost)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8279"}},{"Add":{"text":" paymentRequestPath = \"https://\" <> hostname <> \"/pay/\" <> k","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8345"}},{"Add":{"text":" maybe","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8353"}},{"Add":{"text":" (throwError . ConfigError $ \"Could not parse path \" <> paymentRequestPath <> \" to a valid URI\")","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8453"}},{"Add":{"text":" pure","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8462"}},{"Add":{"text":" (parseURI $ show paymentRequestPath)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8503"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8504"}},{"Add":{"text":"payloadGen :: Monad m => Subscription' UserId Billable -> T.Day -> C.UTCTime -> m (Maybe ByteString)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8605"}},{"Add":{"text":"payloadGen _ _ _ = pure Nothing","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8637"}}]}},{"FileAdd":{"meta":{"basename":"AftokD.hs","metadata":0},"context":[{"change":0,"pos":1418}],"contents":[{"Add":{"text":"{-# LANGUAGE TemplateHaskell #-}","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8707"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8708"}},{"Add":{"text":"module AftokD where","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8728"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8729"}},{"Add":{"text":"import ClassyPrelude hiding (FilePath)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8768"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8769"}},{"Add":{"text":"import Control.Lens","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8789"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8790"}},{"Add":{"text":"import qualified Data.Configurator as C","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8842"}},{"Add":{"text":"import qualified Data.Configurator.Types as CT","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8895"}},{"Add":{"text":"import Database.PostgreSQL.Simple (ConnectInfo)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:8946"}},{"Add":{"text":"import Filesystem.Path.CurrentOS (FilePath, fromText, encodeString)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9014"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9015"}},{"Add":{"text":"import Aftok (Email(..))","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9040"}},{"Add":{"text":"import qualified Aftok.Config as AC","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9076"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9077"}},{"Add":{"text":"data PaymentRequestConfig = PaymentRequestConfig","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9126"}},{"Add":{"text":" { _aftokHost :: Text","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9149"}},{"Add":{"text":" , _templatePath :: FilePath","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9179"}},{"Add":{"text":" , _billingFromEmail :: Email","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9210"}},{"Add":{"text":" }","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9214"}},{"Add":{"text":"makeLenses ''PaymentRequestConfig","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9248"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9249"}},{"Add":{"text":"data Config = Config","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9270"}},{"Add":{"text":" { _smtpConfig :: AC.SmtpConfig","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9307"}},{"Add":{"text":" , _billingConfig :: AC.BillingConfig","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9347"}},{"Add":{"text":" , _dbConfig :: ConnectInfo","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9382"}},{"Add":{"text":" , _paymentRequestConfig :: PaymentRequestConfig","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9432"}},{"Add":{"text":" }","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9436"}},{"Add":{"text":"makeLenses ''Config","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9456"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9457"}},{"Add":{"text":"loadConfig :: FilePath -> IO Config","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9493"}},{"Add":{"text":"loadConfig cfgFile = ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9515"}},{"Add":{"text":" readConfig =<< C.load [C.Required $ encodeString cfgFile]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9575"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9576"}},{"Add":{"text":"readConfig :: CT.Config -> IO Config","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9613"}},{"Add":{"text":"readConfig cfg = Config ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9638"}},{"Add":{"text":" <$> (AC.readSmtpConfig $ C.subconfig \"smtp\" cfg)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9689"}},{"Add":{"text":" <*> (AC.readBillingConfig $ C.subconfig \"billing\" cfg) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9747"}},{"Add":{"text":" <*> (AC.readConnectInfo $ C.subconfig \"db\" cfg)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9797"}},{"Add":{"text":" <*> (readPaymentRequestConfig $ C.subconfig \"payment_requests\" cfg)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9867"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9868"}},{"Add":{"text":"readPaymentRequestConfig :: CT.Config -> IO PaymentRequestConfig","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9933"}},{"Add":{"text":"readPaymentRequestConfig cfg = PaymentRequestConfig","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:9985"}},{"Add":{"text":" <$> C.require cfg \"aftok_host\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10018"}},{"Add":{"text":" <*> (fromText <$> C.require cfg \"template_path\")","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10069"}},{"Add":{"text":" <*> (Email <$> C.require cfg \"payment_from_email\")","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10122"}}]}},{"FileAdd":{"meta":{"basename":"Main.hs","metadata":0},"context":[{"change":0,"pos":1418}],"contents":[{"Add":{"text":"{-# LANGUAGE TemplateHaskell #-}","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10198"}},{"Add":{"text":"module Main (main) where","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10223"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10224"}},{"Add":{"text":"import ClassyPrelude","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10245"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10246"}},{"Add":{"text":"import System.Environment (getEnv)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10292"}},{"Add":{"text":"import Filesystem.Path.CurrentOS (decodeString)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10340"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10341"}},{"Add":{"text":"import qualified AftokD as D","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10370"}},{"Add":{"text":"import AftokD.AftokM (createAllPaymentRequests)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10418"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10419"}},{"Add":{"text":"main :: IO () ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10434"}},{"Add":{"text":"main = do","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10444"}},{"Add":{"text":" cfgPath <- try $ getEnv \"AFTOK_CFG\" :: IO (Either IOError String)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10512"}},{"Add":{"text":" cfg <- D.loadConfig . decodeString $ either (const \"conf/aftok.cfg\") id cfgPath","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10594"}},{"Add":{"text":" createAllPaymentRequests cfg","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10625"}}]}},{"Edit":{"inode":{"change":4,"pos":760},"path":"lib/Aftok/Billables.hs","line":70,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":357}],"down_context":[{"change":4,"pos":1342}],"flag":"BLOCK","start":10662,"end":10755,"inode":{"change":4,"pos":760}}},"contents":[{"Add":{"text":" , _paymentRequestEmailTemplate :: Maybe Text","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10708"}},{"Add":{"text":" , _paymentRequestMemoTemplate :: Maybe Text","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10754"}}]}},{"Replacement":{"inode":{"change":4,"pos":760},"path":"lib/Aftok/Billables.hs","line":85,"ins":{"up_context":[{"change":4,"pos":694}],"down_context":[{"change":4,"pos":1586}],"flag":"BLOCK","start":10756,"end":10761,"inode":{"change":4,"pos":760}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":694},"to":{"change":4,"start":1540,"end":1586},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1540},"to":{"change":4,"start":1540,"end":1586},"introduced_by":4}],"inode":{"change":4,"pos":760}},"ins_contents":[{"Add":{"text":" } ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10760"}}],"del_contents":[{"Del":{"text":" } deriving (Functor, Foldable, Traversable)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:1585"}}]}},{"FileAdd":{"meta":{"basename":"Config.hs","metadata":0},"context":[{"change":4,"pos":679}],"contents":[{"Add":{"text":"{-# LANGUAGE TemplateHaskell #-}","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10796"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10797"}},{"Add":{"text":"module Aftok.Config where","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10823"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10824"}},{"Add":{"text":"import ClassyPrelude hiding (FilePath)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10873"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10874"}},{"Add":{"text":"import Control.Lens (makeClassy, (^.))","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10913"}},{"Add":{"text":"import qualified Data.Configurator as C","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:10965"}},{"Add":{"text":"import qualified Data.Configurator.Types as CT","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11018"}},{"Add":{"text":"import Data.X509","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11045"}},{"Add":{"text":"import Data.X509.File (readKeyFile, readSignedObject)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11124"}},{"Add":{"text":"import Database.PostgreSQL.Simple (ConnectInfo(..))","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11189"}},{"Add":{"text":"import Filesystem.Path.CurrentOS (FilePath, fromText, encodeString)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11257"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11258"}},{"Add":{"text":"import qualified Network.Bippy.Types as BT","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11311"}},{"Add":{"text":"import qualified Network.Mail.SMTP as SMTP","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11366"}},{"Add":{"text":"import qualified Network.Socket as NS","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11419"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11420"}},{"Add":{"text":"import Aftok.Payments (PaymentsConfig(..))","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11463"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11464"}},{"Add":{"text":"data SmtpConfig = SmtpConfig","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11493"}},{"Add":{"text":" { _smtpHost :: NS.HostName","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11522"}},{"Add":{"text":" , _smtpPort :: Maybe NS.PortNumber","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11559"}},{"Add":{"text":" , _smtpUser :: SMTP.UserName","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11590"}},{"Add":{"text":" , _smtpPass :: SMTP.Password","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11621"}},{"Add":{"text":" }","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11625"}},{"Add":{"text":"makeClassy ''SmtpConfig","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11649"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11650"}},{"Add":{"text":"data BillingConfig = BillingConfig","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11685"}},{"Add":{"text":" { _network :: BT.Network","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11727"}},{"Add":{"text":" , _signingKeyFile :: FilePath","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11767"}},{"Add":{"text":" , _certsFile :: FilePath","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11807"}},{"Add":{"text":" , _exchangeRateServiceURI :: String","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11845"}},{"Add":{"text":" } ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11850"}},{"Add":{"text":"makeClassy ''BillingConfig","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11877"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11878"}},{"Add":{"text":"readSmtpConfig :: CT.Config -> IO SmtpConfig","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11923"}},{"Add":{"text":"readSmtpConfig cfg =","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11944"}},{"Add":{"text":" SmtpConfig <$> C.require cfg \"smtpHost\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:11986"}},{"Add":{"text":" <*> ((fmap . fmap) fromInteger $ C.lookup cfg \"smtpPort\")","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12057"}},{"Add":{"text":" <*> C.require cfg \"smtpUser\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12099"}},{"Add":{"text":" <*> C.require cfg \"smtpKey\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12140"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12141"}},{"Add":{"text":"readBillingConfig :: CT.Config -> IO BillingConfig","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12192"}},{"Add":{"text":"readBillingConfig cfg =","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12216"}},{"Add":{"text":" BillingConfig <$> (parseNetwork <$> C.require cfg \"network\")","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12279"}},{"Add":{"text":" <*> (fromText <$> C.require cfg \"signingKeyFile\")","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12345"}},{"Add":{"text":" <*> (fromText <$> C.require cfg \"certsFile\")","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12406"}},{"Add":{"text":" <*> C.require cfg \"exchangeRateServiceURI\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12465"}},{"Add":{"text":" where parseNetwork :: String -> BT.Network","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12510"}},{"Add":{"text":" parseNetwork \"main\" = BT.MainNet","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12551"}},{"Add":{"text":" parseNetwork _ = BT.TestNet","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12592"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12593"}},{"Add":{"text":"readConnectInfo :: CT.Config -> IO ConnectInfo","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12640"}},{"Add":{"text":"readConnectInfo cfg =","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12662"}},{"Add":{"text":" ConnectInfo <$> C.require cfg \"host\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12701"}},{"Add":{"text":" <*> C.require cfg \"port\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12740"}},{"Add":{"text":" <*> C.require cfg \"user\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12779"}},{"Add":{"text":" <*> C.require cfg \"password\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12822"}},{"Add":{"text":" <*> C.require cfg \"database\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12865"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12866"}},{"Add":{"text":"toPaymentsConfig :: BillingConfig -> IO PaymentsConfig","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12921"}},{"Add":{"text":"toPaymentsConfig c = do","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:12945"}},{"Add":{"text":" privKeys <- readKeyFile . encodeString $ c ^. signingKeyFile","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:13010"}},{"Add":{"text":" pkiEntries <- readSignedObject . encodeString $ c ^. certsFile","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:13075"}},{"Add":{"text":" privKey <- case headMay privKeys of","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:13113"}},{"Add":{"text":" Just (PrivKeyRSA k) -> pure k","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:13147"}},{"Add":{"text":" Just (PrivKeyDSA _) -> fail \"DSA keys not supported for payment request signing.\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:13233"}},{"Add":{"text":" Nothing -> fail $ \"No keys found in private key file \" <> encodeString (c ^. signingKeyFile)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:13342"}},{"Add":{"text":" let pkiData = BT.X509SHA256 . CertificateChain $ pkiEntries","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:13404"}},{"Add":{"text":" pure $ PaymentsConfig (c ^. network) privKey pkiData","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:13459"}}]}},{"Edit":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":3,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":937}],"down_context":[{"change":4,"pos":565}],"flag":"BLOCK","start":13497,"end":13541,"inode":{"change":4,"pos":456}}},"contents":[{"Add":{"text":"{-# LANGUAGE QuasiQuotes #-}","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:13540"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":5,"ins":{"up_context":[{"change":4,"pos":566}],"down_context":[{"change":4,"pos":622}],"flag":"BLOCK","start":13542,"end":13601,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":566},"to":{"change":4,"start":1709,"end":1766},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":"module Aftok.Database.PostgreSQL (QDBM(..), runQDBM) where","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:13600"}}],"del_contents":[{"Del":{"text":"module Aftok.Database.PostgreSQL (QDBM(), runQDBM) where","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:1765"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":9,"ins":{"up_context":[{"change":4,"pos":999}],"down_context":[{"change":4,"pos":4}],"flag":"BLOCK","start":13602,"end":13690,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":999},"to":{"change":4,"start":999,"end":1043},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":"import Control.Monad.Trans.Except (ExceptT(..), throwE, runExceptT)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:13689"}}],"del_contents":[{"Del":{"text":"import Control.Monad.Trans.Either","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:1042"}}]}},{"Edit":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":25,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":1559}],"down_context":[{"change":4,"pos":4}],"flag":"BLOCK","start":13691,"end":13751,"inode":{"change":4,"pos":456}}},"contents":[{"Add":{"text":"import Database.PostgreSQL.Simple.SqlQQ (sql)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:13750"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":44,"ins":{"up_context":[{"change":4,"pos":1124}],"down_context":[{"change":4,"pos":264}],"flag":"BLOCK","start":13752,"end":13818,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1124},"to":{"change":4,"start":1802,"end":1868},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":"newtype QDBM a = QDBM (ReaderT Connection (ExceptT DBError IO) a)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:13817"}}],"del_contents":[{"Del":{"text":"newtype QDBM a = QDBM (ReaderT Connection (EitherT DBError IO) a)","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:1867"}}]}},{"Edit":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":53,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":1928}],"down_context":[{"change":4,"pos":342}],"flag":"BLOCK","start":13819,"end":13865,"inode":{"change":4,"pos":456}}},"contents":[{"Add":{"text":"instance MonadDB QDBM where","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:13846"}},{"Add":{"text":" liftdb = pgEval","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:13864"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":56,"ins":{"up_context":[{"change":4,"pos":343}],"down_context":[{"change":4,"pos":1984}],"flag":"BLOCK","start":13866,"end":13922,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":343},"to":{"change":4,"start":1928,"end":1984},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1928},"to":{"change":4,"start":1928,"end":1984},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":"runQDBM :: Connection -> QDBM a -> ExceptT DBError IO a","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:13921"}}],"del_contents":[{"Del":{"text":"runQDBM :: Connection -> QDBM a -> EitherT DBError IO a","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:1983"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":94,"ins":{"up_context":[{"change":4,"pos":2093}],"down_context":[{"change":4,"pos":1537}],"flag":"BLOCK","start":13923,"end":14031,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2093},"to":{"change":4,"start":2093,"end":2201},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" parser \"credit_to_address\" = CreditToAddress <$> (fieldWith btcAddrParser <* nullField <* nullField)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14030"}}],"del_contents":[{"Del":{"text":" parser \"credit_to_btc_addr\" = CreditToAddress <$> (fieldWith btcAddrParser <* nullField <* nullField)","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:2200"}}]}},{"Edit":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":163,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":3516}],"down_context":[{"change":4,"pos":3516}],"flag":"BLOCK","start":14032,"end":14078,"inode":{"change":4,"pos":456}}},"contents":[{"Add":{"text":" <*> field","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14054"}},{"Add":{"text":" <*> field","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14077"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":218,"ins":{"up_context":[{"change":4,"pos":1334}],"down_context":[{"change":4,"pos":1361}],"flag":"BLOCK","start":14079,"end":14153,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1334},"to":{"change":4,"start":2727,"end":2801},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" lift . ExceptT $ withTransaction conn (runExceptT $ runReaderT rt conn)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14152"}}],"del_contents":[{"Del":{"text":" lift . EitherT $ withTransaction conn (runEitherT $ runReaderT rt conn)","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:2800"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":240,"ins":{"up_context":[{"change":4,"pos":661}],"down_context":[{"change":4,"pos":918}],"flag":"BLOCK","start":14154,"end":14315,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":661},"to":{"change":4,"start":661,"end":806},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pinsert EventId ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14172"}},{"Add":{"text":" [sql| INSERT INTO aftok_events ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14208"}},{"Add":{"text":" (event_time, created_by, event_type, event_json) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14268"}},{"Add":{"text":" VALUES (?, ?, ?, ?) RETURNING id |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14314"}}],"del_contents":[{"Del":{"text":" pinsert EventId","pos":"O227CEAV7BTKSE3SSC7XHC5IWEBXZL2AOOKJMBMOOFNTLINBLQMAC:678"}},{"Del":{"text":" \"INSERT INTO aftok_events \\","pos":"O227CEAV7BTKSE3SSC7XHC5IWEBXZL2AOOKJMBMOOFNTLINBLQMAC:710"}},{"Del":{"text":" \\(event_time, created_by, event_type, event_json) \\","pos":"O227CEAV7BTKSE3SSC7XHC5IWEBXZL2AOOKJMBMOOFNTLINBLQMAC:766"}},{"Del":{"text":" \\VALUES (?, ?, ?, ?) RETURNING id\"","pos":"O227CEAV7BTKSE3SSC7XHC5IWEBXZL2AOOKJMBMOOFNTLINBLQMAC:805"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":250,"ins":{"up_context":[{"change":4,"pos":4201}],"down_context":[{"change":4,"pos":4430}],"flag":"BLOCK","start":14316,"end":14581,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4201},"to":{"change":4,"start":4201,"end":4430},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pinsert EventId ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14338"}},{"Add":{"text":" [sql| INSERT INTO work_events ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14377"}},{"Add":{"text":" ( project_id, user_id, credit_to_type, credit_to_address","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14448"}},{"Add":{"text":" , event_type, event_time, event_metadata ) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14506"}},{"Add":{"text":" VALUES (?, ?, ?, ?, ?, ?, ?) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14550"}},{"Add":{"text":" RETURNING id |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14580"}}],"del_contents":[{"Del":{"text":" pinsert EventId","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:4222"}},{"Del":{"text":" \"INSERT INTO work_events \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:4257"}},{"Del":{"text":" \\(project_id, user_id, credit_to_type, credit_to_btc_addr, event_type, event_time, event_metadata) \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:4366"}},{"Del":{"text":" \\VALUES (?, ?, ?, ?, ?, ?, ?) \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:4406"}},{"Del":{"text":" \\RETURNING id\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:4429"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":259,"ins":{"up_context":[{"change":4,"pos":4575}],"down_context":[{"change":4,"pos":4806}],"flag":"BLOCK","start":14582,"end":14850,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4575},"to":{"change":4,"start":4575,"end":4806},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pinsert EventId ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14604"}},{"Add":{"text":" [sql| INSERT INTO work_events ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14643"}},{"Add":{"text":" ( project_id, user_id, credit_to_type, credit_to_project_id","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14717"}},{"Add":{"text":" , event_type, event_time, event_metadata ) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14775"}},{"Add":{"text":" VALUES (?, ?, ?, ?, ?, ?, ?) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14819"}},{"Add":{"text":" RETURNING id |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14849"}}],"del_contents":[{"Del":{"text":" pinsert EventId","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:4596"}},{"Del":{"text":" \"INSERT INTO work_events \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:4631"}},{"Del":{"text":" \\(project_id, user_id, credit_to_type, credit_to_project_id, event_type, event_time, event_metadata) \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:4742"}},{"Del":{"text":" \\VALUES (?, ?, ?, ?, ?, ?, ?) \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:4782"}},{"Del":{"text":" \\RETURNING id\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:4805"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":268,"ins":{"up_context":[{"change":4,"pos":4934}],"down_context":[{"change":4,"pos":5162}],"flag":"BLOCK","start":14851,"end":15099,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4934},"to":{"change":4,"start":4934,"end":5162},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pinsert EventId ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14873"}},{"Add":{"text":" [sql| INSERT INTO work_events ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:14912"}},{"Add":{"text":" (project_id, user_id, credit_to_type, credit_to_user_id, event_type, event_time, event_metadata) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:15024"}},{"Add":{"text":" VALUES (?, ?, ?, ?, ?, ?, ?) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:15068"}},{"Add":{"text":" RETURNING id |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:15098"}}],"del_contents":[{"Del":{"text":" pinsert EventId","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:4955"}},{"Del":{"text":" \"INSERT INTO work_events \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:4990"}},{"Del":{"text":" \\(project_id, user_id, credit_to_type, credit_to_user_id, event_type, event_time, event_metadata) \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:5098"}},{"Del":{"text":" \\VALUES (?, ?, ?, ?, ?, ?, ?) \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:5138"}},{"Del":{"text":" \\RETURNING id\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:5161"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":276,"ins":{"up_context":[{"change":4,"pos":4403}],"down_context":[{"change":4,"pos":5540}],"flag":"BLOCK","start":15100,"end":15373,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":4403},"to":{"change":4,"start":5300,"end":5540},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5300},"to":{"change":4,"start":5300,"end":5540},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" headMay <$> pquery qdbLogEntryParser ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:15139"}},{"Add":{"text":" [sql| SELECT project_id, user_id, ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:15178"}},{"Add":{"text":" credit_to_type, credit_to_address, credit_to_user_id, credit_to_project_id, ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:15272"}},{"Add":{"text":" event_type, event_time, event_metadata FROM work_events ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:15346"}},{"Add":{"text":" WHERE id = ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:15372"}}],"del_contents":[{"Del":{"text":" headMay <$> pquery qdbLogEntryParser","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:5338"}},{"Del":{"text":" \"SELECT project_id, user_id, \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:5373"}},{"Del":{"text":" \\credit_to_type, credit_to_btc_addr, credit_to_user_id, credit_to_project_id, \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:5457"}},{"Del":{"text":" \\event_type, event_time, event_metadata FROM work_events \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:5520"}},{"Del":{"text":" \\WHERE id = ?\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:5539"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":284,"ins":{"up_context":[{"change":4,"pos":4462}],"down_context":[{"change":4,"pos":5813}],"flag":"BLOCK","start":15374,"end":15705,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":4462},"to":{"change":4,"start":5619,"end":5813},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5619},"to":{"change":4,"start":5619,"end":5813},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" let q (Before e) = pquery logEntryParser ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:15417"}},{"Add":{"text":" [sql| SELECT credit_to_type, credit_to_address, credit_to_user_id, credit_to_project_id, ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:15515"}},{"Add":{"text":" event_type, event_time, ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:15561"}},{"Add":{"text":" event_metadata ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:15598"}},{"Add":{"text":" FROM work_events ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:15630"}},{"Add":{"text":" WHERE project_id = ? AND user_id = ? AND event_time <= ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:15704"}}],"del_contents":[{"Del":{"text":" let q (Before e) = pquery logEntryParser","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:5661"}},{"Del":{"text":" \"SELECT btc_addr, event_type, event_time, event_metadata FROM work_events \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:5745"}},{"Del":{"text":" \\WHERE project_id = ? AND user_id = ? AND event_time <= ?\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:5812"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":291,"ins":{"up_context":[{"change":4,"pos":5845}],"down_context":[{"change":4,"pos":6072}],"flag":"BLOCK","start":15706,"end":16052,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5845},"to":{"change":4,"start":5845,"end":6072},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" q (During s e) = pquery logEntryParser ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:15751"}},{"Add":{"text":" [sql| SELECT credit_to_type, credit_to_address, credit_to_user_id, credit_to_project_id, ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:15849"}},{"Add":{"text":" event_type, event_time, event_metadata ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:15910"}},{"Add":{"text":" FROM work_events ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:15942"}},{"Add":{"text":" WHERE project_id = ? AND user_id = ? ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:15994"}},{"Add":{"text":" AND event_time >= ? AND event_time <= ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:16051"}}],"del_contents":[{"Del":{"text":" q (During s e) = pquery logEntryParser","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:5889"}},{"Del":{"text":" \"SELECT btc_addr, event_type, event_time, event_metadata FROM work_events \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:5973"}},{"Del":{"text":" \\WHERE project_id = ? AND user_id = ? \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:6021"}},{"Del":{"text":" \\AND event_time >= ? AND event_time <= ?\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:6071"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":298,"ins":{"up_context":[{"change":4,"pos":6117}],"down_context":[{"change":4,"pos":6310}],"flag":"BLOCK","start":16053,"end":16361,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6117},"to":{"change":4,"start":6117,"end":6310},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" q (After s) = pquery logEntryParser ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:16095"}},{"Add":{"text":" [sql| SELECT credit_to_type, credit_to_address, credit_to_user_id, credit_to_project_id, ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:16193"}},{"Add":{"text":" event_type, event_time, event_metadata ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:16254"}},{"Add":{"text":" FROM work_events ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:16286"}},{"Add":{"text":" WHERE project_id = ? AND user_id = ? AND event_time >= ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:16360"}}],"del_contents":[{"Del":{"text":" q (After s) = pquery logEntryParser","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:6158"}},{"Del":{"text":" \"SELECT btc_addr, event_type, event_time, event_metadata FROM work_events \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:6242"}},{"Del":{"text":" \\WHERE project_id = ? AND user_id = ? AND event_time >= ?\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:6309"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":307,"ins":{"up_context":[{"change":4,"pos":4517}],"down_context":[{"change":4,"pos":6556}],"flag":"BLOCK","start":16362,"end":16519,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":4517},"to":{"change":4,"start":6415,"end":6556},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6415},"to":{"change":4,"start":6415,"end":6556},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pinsert AmendmentId ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:16384"}},{"Add":{"text":" [sql| INSERT INTO event_time_amendments ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:16429"}},{"Add":{"text":" (event_id, amended_at, event_time) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:16475"}},{"Add":{"text":" VALUES (?, ?, ?) RETURNING id |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:16518"}}],"del_contents":[{"Del":{"text":" pinsert AmendmentId","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:6436"}},{"Del":{"text":" \"INSERT INTO event_time_amendments \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:6477"}},{"Del":{"text":" \\(event_id, amended_at, event_time) \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:6519"}},{"Del":{"text":" \\VALUES (?, ?, ?) RETURNING id\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:6555"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":316,"ins":{"up_context":[{"change":4,"pos":6713}],"down_context":[{"change":4,"pos":6902}],"flag":"BLOCK","start":16520,"end":16725,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6713},"to":{"change":4,"start":6713,"end":6902},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pinsert AmendmentId ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:16546"}},{"Add":{"text":" [sql| INSERT INTO event_credit_to_amendments ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:16600"}},{"Add":{"text":" (event_id, amended_at, credit_to_type, credit_to_btc_addr) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:16674"}},{"Add":{"text":" VALUES (?, ?, ?, ?) RETURNING id |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:16724"}}],"del_contents":[{"Del":{"text":" pinsert AmendmentId","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:6738"}},{"Del":{"text":" \"INSERT INTO event_credit_to_amendments \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:6788"}},{"Del":{"text":" \\(event_id, amended_at, credit_to_type, credit_to_btc_addr) \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:6858"}},{"Del":{"text":" \\VALUES (?, ?, ?, ?) RETURNING id\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:6901"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":323,"ins":{"up_context":[{"change":4,"pos":7026}],"down_context":[{"change":4,"pos":7217}],"flag":"BLOCK","start":16726,"end":16933,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7026},"to":{"change":4,"start":7026,"end":7217},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pinsert AmendmentId ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:16752"}},{"Add":{"text":" [sql| INSERT INTO event_credit_to_amendments ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:16806"}},{"Add":{"text":" (event_id, amended_at, credit_to_type, credit_to_project_id) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:16882"}},{"Add":{"text":" VALUES (?, ?, ?, ?) RETURNING id |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:16932"}}],"del_contents":[{"Del":{"text":" pinsert AmendmentId","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:7051"}},{"Del":{"text":" \"INSERT INTO event_credit_to_amendments \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:7101"}},{"Del":{"text":" \\(event_id, amended_at, credit_to_type, credit_to_project_id) \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:7173"}},{"Del":{"text":" \\VALUES (?, ?, ?, ?) RETURNING id\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:7216"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":330,"ins":{"up_context":[{"change":4,"pos":7323}],"down_context":[{"change":4,"pos":7511}],"flag":"BLOCK","start":16934,"end":17138,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7323},"to":{"change":4,"start":7323,"end":7511},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pinsert AmendmentId ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:16960"}},{"Add":{"text":" [sql| INSERT INTO event_credit_to_amendments ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:17014"}},{"Add":{"text":" (event_id, amended_at, credit_to_type, credit_to_user_id) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:17087"}},{"Add":{"text":" VALUES (?, ?, ?, ?) RETURNING id |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:17137"}}],"del_contents":[{"Del":{"text":" pinsert AmendmentId","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:7348"}},{"Del":{"text":" \"INSERT INTO event_credit_to_amendments \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:7398"}},{"Del":{"text":" \\(event_id, amended_at, credit_to_type, credit_to_user_id) \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:7467"}},{"Del":{"text":" \\VALUES (?, ?, ?, ?) RETURNING id\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:7510"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":337,"ins":{"up_context":[{"change":4,"pos":4635}],"down_context":[{"change":4,"pos":7800}],"flag":"BLOCK","start":17139,"end":17304,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":4635},"to":{"change":4,"start":7651,"end":7800},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7651},"to":{"change":4,"start":7651,"end":7800},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pinsert AmendmentId ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:17161"}},{"Add":{"text":" [sql| INSERT INTO event_metadata_amendments ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:17210"}},{"Add":{"text":" (event_id, amended_at, event_metadata) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:17260"}},{"Add":{"text":" VALUES (?, ?, ?) RETURNING id |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:17303"}}],"del_contents":[{"Del":{"text":" pinsert AmendmentId","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:7672"}},{"Del":{"text":" \"INSERT INTO event_metadata_amendments \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:7717"}},{"Del":{"text":" \\(event_id, amended_at, event_metadata) \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:7763"}},{"Del":{"text":" \\VALUES (?, ?, ?) RETURNING id\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:7799"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":344,"ins":{"up_context":[{"change":4,"pos":4682}],"down_context":[{"change":4,"pos":8032}],"flag":"BLOCK","start":17305,"end":17557,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":4682},"to":{"change":4,"start":7894,"end":8032},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7894},"to":{"change":4,"start":7894,"end":8032},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" logEntries <- pquery logEntryParser ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:17343"}},{"Add":{"text":" [sql| SELECT credit_to_type, credit_to_address, credit_to_user_id, credit_to_project_id, ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:17437"}},{"Add":{"text":" event_type, event_time, event_metadata ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:17494"}},{"Add":{"text":" FROM work_events ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:17522"}},{"Add":{"text":" WHERE project_id = ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:17556"}}],"del_contents":[{"Del":{"text":" logEntries <- pquery logEntryParser","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:7931"}},{"Del":{"text":" \"SELECT btc_addr, event_type, event_time, event_metadata FROM work_events WHERE project_id = ?\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:8031"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":353,"ins":{"up_context":[{"change":4,"pos":4712}],"down_context":[{"change":4,"pos":8247}],"flag":"BLOCK","start":17558,"end":17710,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":4712},"to":{"change":4,"start":8112,"end":8247},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":8112},"to":{"change":4,"start":8112,"end":8247},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pinsert A.AuctionId ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:17580"}},{"Add":{"text":" [sql| INSERT INTO auctions (project_id, initiator_id, raise_amount, end_time) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:17663"}},{"Add":{"text":" VALUES (?, ?, ?, ?) RETURNING id |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:17709"}}],"del_contents":[{"Del":{"text":" pinsert A.AuctionId","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:8133"}},{"Del":{"text":" \"INSERT INTO auctions (project_id, user_id, raise_amount, end_time) \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:8207"}},{"Del":{"text":" \\VALUES (?, ?, ?, ?) RETURNING id\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:8246"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":363,"ins":{"up_context":[{"change":4,"pos":4742}],"down_context":[{"change":4,"pos":8597}],"flag":"BLOCK","start":17711,"end":17889,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":4742},"to":{"change":4,"start":8449,"end":8597},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":8449},"to":{"change":4,"start":8449,"end":8597},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" headMay <$> pquery auctionParser ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:17746"}},{"Add":{"text":" [sql| SELECT project_id, initiator_id, created_at, raise_amount, start_time, end_time ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:17837"}},{"Add":{"text":" FROM auctions ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:17862"}},{"Add":{"text":" WHERE id = ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:17888"}}],"del_contents":[{"Del":{"text":" headMay <$> pquery auctionParser","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:8483"}},{"Del":{"text":" \"SELECT project_id, initiator_id, created_at, raise_amount, start_time, end_time FROM auctions WHERE id = ?\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:8596"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":370,"ins":{"up_context":[{"change":4,"pos":4788}],"down_context":[{"change":4,"pos":8826}],"flag":"BLOCK","start":17890,"end":18045,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":4788},"to":{"change":4,"start":8683,"end":8826},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":8683},"to":{"change":4,"start":8683,"end":8826},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pinsert A.BidId ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:17908"}},{"Add":{"text":" [sql| INSERT INTO bids (auction_id, bidder_id, bid_seconds, bid_amount, bid_time) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:17995"}},{"Add":{"text":" VALUES (?, ?, ?, ?, ?) RETURNING id |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:18044"}}],"del_contents":[{"Del":{"text":" pinsert A.BidId","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:8700"}},{"Del":{"text":" \"INSERT INTO bids (auction_id, bidder_id, bid_seconds, bid_amount, bid_time) \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:8783"}},{"Del":{"text":" \\VALUES (?, ?, ?, ?, ?) RETURNING id\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:8825"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":381,"ins":{"up_context":[{"change":4,"pos":2753}],"down_context":[{"change":4,"pos":9145}],"flag":"BLOCK","start":18046,"end":18197,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2753},"to":{"change":4,"start":2753,"end":2894},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pquery ((,) <$> idParser A.BidId <*> bidParser) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:18096"}},{"Add":{"text":" [sql| SELECT id, bidder_id, bid_seconds, bid_amount, bid_time FROM bids WHERE auction_id = ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:18196"}}],"del_contents":[{"Del":{"text":" pquery ((,) <$> idParser A.BidId <*> bidParser)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2802"}},{"Del":{"text":" \"SELECT id, user_id, bid_seconds, bid_amount, bid_time FROM bids WHERE auction_id = ?\"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2893"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":388,"ins":{"up_context":[{"change":4,"pos":9327}],"down_context":[{"change":4,"pos":9428}],"flag":"BLOCK","start":18198,"end":18307,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":9327},"to":{"change":4,"start":9327,"end":9428},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" in pinsert UserId ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:18219"}},{"Add":{"text":" [sql| INSERT INTO users (handle, btc_addr, email) VALUES (?, ?, ?) RETURNING id |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:18306"}}],"del_contents":[{"Del":{"text":" in pinsert UserId","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:9347"}},{"Del":{"text":" \"INSERT INTO users (handle, btc_addr, email) VALUES (?, ?, ?) RETURNING id\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:9427"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":396,"ins":{"up_context":[{"change":4,"pos":4878}],"down_context":[{"change":4,"pos":9648}],"flag":"BLOCK","start":18308,"end":18409,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":4878},"to":{"change":4,"start":9555,"end":9648},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":9555},"to":{"change":4,"start":9555,"end":9648},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" headMay <$> pquery userParser ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:18340"}},{"Add":{"text":" [sql| SELECT handle, btc_addr, email FROM users WHERE id = ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:18408"}}],"del_contents":[{"Del":{"text":" headMay <$> pquery userParser","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:9586"}},{"Del":{"text":" \"SELECT handle, btc_addr, email FROM users WHERE id = ?\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:9647"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":401,"ins":{"up_context":[{"change":4,"pos":4918}],"down_context":[{"change":4,"pos":9812}],"flag":"BLOCK","start":18410,"end":18549,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4918},"to":{"change":4,"start":2895,"end":2957},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":2957},"to":{"change":4,"start":9743,"end":9812},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":9743},"to":{"change":4,"start":9743,"end":9812},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" headMay <$> pquery ((,) <$> idParser UserId <*> userParser) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:18472"}},{"Add":{"text":" [sql| SELECT id, handle, btc_addr, email FROM users WHERE handle = ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:18548"}}],"del_contents":[{"Del":{"text":" headMay <$> pquery ((,) <$> idParser UserId <*> userParser)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:2956"}},{"Del":{"text":" \"SELECT id, handle, btc_addr, email FROM users WHERE handle = ?\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:9811"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":407,"ins":{"up_context":[{"change":4,"pos":9941}],"down_context":[{"change":4,"pos":10089}],"flag":"BLOCK","start":18550,"end":18710,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":9941},"to":{"change":4,"start":9941,"end":10089},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" void $ pexec ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:18565"}},{"Add":{"text":" [sql| INSERT INTO invitations (project_id, invitor_id, invitee_email, invitation_key, invitation_time) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:18673"}},{"Add":{"text":" VALUES (?, ?, ?, ?, ?) |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:18709"}}],"del_contents":[{"Del":{"text":" void $ pexec","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:9955"}},{"Del":{"text":" \"INSERT INTO invitations (project_id, invitor_id, invitee_email, invitation_key, invitation_time) \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:10059"}},{"Del":{"text":" \\VALUES (?, ?, ?, ?, ?)\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:10088"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":414,"ins":{"up_context":[{"change":4,"pos":5023}],"down_context":[{"change":4,"pos":10367}],"flag":"BLOCK","start":18711,"end":18895,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":5023},"to":{"change":4,"start":10195,"end":10367},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":10195},"to":{"change":4,"start":10195,"end":10367},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" headMay <$> pquery invitationParser ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:18749"}},{"Add":{"text":" [sql| SELECT project_id, invitor_id, invitee_email, invitation_time, acceptance_time ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:18839"}},{"Add":{"text":" FROM invitations WHERE invitation_key = ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:18894"}}],"del_contents":[{"Del":{"text":" headMay <$> pquery invitationParser","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:10232"}},{"Del":{"text":" \"SELECT project_id, invitor_id, invitee_email, invitation_time, acceptance_time \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:10318"}},{"Del":{"text":" \\FROM invitations WHERE invitation_key = ?\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:10366"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":420,"ins":{"up_context":[{"change":4,"pos":5088}],"down_context":[{"change":4,"pos":10558}],"flag":"BLOCK","start":18896,"end":18993,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":5088},"to":{"change":4,"start":10469,"end":10558},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":10469},"to":{"change":4,"start":10469,"end":10558},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" void $ pexec ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:18911"}},{"Add":{"text":" [sql| UPDATE invitations SET acceptance_time = ? WHERE invitation_key = ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:18992"}}],"del_contents":[{"Del":{"text":" void $ pexec","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:10483"}},{"Del":{"text":" \"UPDATE invitations SET acceptance_time = ? WHERE invitation_key = ?\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:10557"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":423,"ins":{"up_context":[{"change":4,"pos":10596}],"down_context":[{"change":4,"pos":10800}],"flag":"BLOCK","start":18994,"end":19219,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":10596},"to":{"change":4,"start":10596,"end":10800},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:18994"}},{"Add":{"text":" void $ pexec ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19010"}},{"Add":{"text":" [sql| INSERT INTO project_companions (project_id, user_id, invited_by, joined_at) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19097"}},{"Add":{"text":" SELECT i.project_id, ?, i.invitor_id, ? ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19148"}},{"Add":{"text":" FROM invitations i ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19178"}},{"Add":{"text":" WHERE i.invitation_key = ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19218"}}],"del_contents":[{"Del":{"text":" void $ pexec","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:10610"}},{"Del":{"text":" \"INSERT INTO project_companions (project_id, user_id, invited_by, joined_at) \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:10693"}},{"Del":{"text":" \\SELECT i.project_id, ?, i.invitor_id, ? \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:10740"}},{"Del":{"text":" \\FROM invitations i \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:10766"}},{"Del":{"text":" \\WHERE i.invitation_key = ?\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:10799"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":432,"ins":{"up_context":[{"change":4,"pos":5116}],"down_context":[{"change":4,"pos":11027}],"flag":"BLOCK","start":19220,"end":19383,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":5116},"to":{"change":4,"start":10876,"end":11027},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":10876},"to":{"change":4,"start":10876,"end":11027},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pinsert P.ProjectId ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19242"}},{"Add":{"text":" [sql| INSERT INTO projects (project_name, inception_date, initiator_id, depreciation_fn) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19336"}},{"Add":{"text":" VALUES (?, ?, ?, ?) RETURNING id |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19382"}}],"del_contents":[{"Del":{"text":" pinsert P.ProjectId","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:10897"}},{"Del":{"text":" \"INSERT INTO projects (project_name, inception_date, initiator_id, depreciation_fn) \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:10987"}},{"Del":{"text":" \\VALUES (?, ?, ?, ?) RETURNING id\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:11026"}}]}},{"Edit":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":436,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":11143}],"down_context":[{"change":4,"pos":4290}],"flag":"BLOCK","start":19384,"end":19722,"inode":{"change":4,"pos":456}}},"contents":[{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19384"}},{"Add":{"text":"pgEval ListProjects =","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19406"}},{"Add":{"text":" pquery (idParser P.ProjectId)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19438"}},{"Add":{"text":" [sql| SELECT id FROM projects |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19475"}},{"Add":{"text":" ()","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19482"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19483"}},{"Add":{"text":"pgEval (FindSubscribers pid) =","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19514"}},{"Add":{"text":" pquery (idParser UserId)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19541"}},{"Add":{"text":" [sql| SELECT s.user_id ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19569"}},{"Add":{"text":" FROM subscripions s ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19600"}},{"Add":{"text":" JOIN billables b ON s.billable_id = b.id ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19652"}},{"Add":{"text":" WHERE b.project_id = ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19688"}},{"Add":{"text":" (Only (pid ^. P._ProjectId))","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19721"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":451,"ins":{"up_context":[{"change":4,"pos":5158}],"down_context":[{"change":4,"pos":11325}],"flag":"BLOCK","start":19723,"end":19866,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":5158},"to":{"change":4,"start":11190,"end":11325},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":11190},"to":{"change":4,"start":11190,"end":11325},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" headMay <$> pquery projectParser ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19758"}},{"Add":{"text":" [sql| SELECT project_name, inception_date, initiator_id, depreciation_fn FROM projects WHERE id = ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19865"}}],"del_contents":[{"Del":{"text":" headMay <$> pquery projectParser","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:11224"}},{"Del":{"text":" \"SELECT project_name, inception_date, initiator_id, depreciation_fn FROM projects WHERE id = ?\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:11324"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":456,"ins":{"up_context":[{"change":4,"pos":5200}],"down_context":[{"change":4,"pos":11642}],"flag":"BLOCK","start":19867,"end":20174,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5200},"to":{"change":4,"start":2958,"end":3016},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":3016},"to":{"change":4,"start":11413,"end":11642},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":11413},"to":{"change":4,"start":11413,"end":11642},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pquery ((,) <$> idParser P.ProjectId <*> projectParser) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:19925"}},{"Add":{"text":" [sql| SELECT p.id, p.project_name, p.inception_date, p.initiator_id, p.depreciation_fn ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:20017"}},{"Add":{"text":" FROM projects p LEFT OUTER JOIN project_companions pc ON pc.project_id = p.id ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:20106"}},{"Add":{"text":" WHERE pc.user_id = ? ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:20138"}},{"Add":{"text":" OR p.initiator_id = ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:20173"}}],"del_contents":[{"Del":{"text":" pquery ((,) <$> idParser P.ProjectId <*> projectParser)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3015"}},{"Del":{"text":" \"SELECT p.id, p.project_name, p.inception_date, p.initiator_id, p.depreciation_fn \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:11500"}},{"Del":{"text":" \\FROM projects p LEFT OUTER JOIN project_companions pc ON pc.project_id = p.id \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:11585"}},{"Del":{"text":" \\WHERE pc.user_id = ? \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:11613"}},{"Del":{"text":" \\OR p.initiator_id = ?\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:11641"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":464,"ins":{"up_context":[{"change":4,"pos":5252}],"down_context":[{"change":4,"pos":11810}],"flag":"BLOCK","start":20175,"end":20279,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":5252},"to":{"change":4,"start":11714,"end":11810},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":11714},"to":{"change":4,"start":11714,"end":11810},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pexec ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:20183"}},{"Add":{"text":" [sql| INSERT INTO project_companions (project_id, user_id, invited_by) VALUES (?, ?, ?) |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:20278"}}],"del_contents":[{"Del":{"text":" pexec","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:11721"}},{"Del":{"text":" \"INSERT INTO project_companions (project_id, user_id, invited_by) VALUES (?, ?, ?)\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:11809"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":470,"ins":{"up_context":[{"change":4,"pos":11949}],"down_context":[{"change":4,"pos":5318}],"flag":"BLOCK","start":20280,"end":20634,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":11949},"to":{"change":4,"start":5294,"end":5317},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":5317},"to":{"change":4,"start":11973,"end":12002},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":11973},"to":{"change":4,"start":11973,"end":12002},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":12002},"to":{"change":4,"start":1090,"end":1226},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":522},"to":{"change":4,"start":12120,"end":12171},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":1226},"to":{"change":4,"start":12120,"end":12171},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":12120},"to":{"change":4,"start":12120,"end":12171},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pinsert B.BillableId ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:20303"}},{"Add":{"text":" [sql| INSERT INTO billables ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:20336"}},{"Add":{"text":" ( project_id, event_id, name, description ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:20389"}},{"Add":{"text":" , recurrence_type, recurrence_count ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:20436"}},{"Add":{"text":" , billing_amount, grace_period_days","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:20482"}},{"Add":{"text":" , payment_request_email_template","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:20525"}},{"Add":{"text":" , payment_request_memo_template) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:20569"}},{"Add":{"text":" VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?) RETURNING id |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:20633"}}],"del_contents":[{"Del":{"text":" pinsert B.BillableId","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:5316"}},{"Del":{"text":" \"INSERT INTO billables \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:12001"}},{"Del":{"text":" \\( project_id, event_id, name, description \\","pos":"EW2XN7KUMCAQNVFJJ5YTAVDZCPHNWDOEDMRFBUGLY6IE2HKNNX5AC:1138"}},{"Del":{"text":" \\, recurrence_type, recurrence_count \\","pos":"EW2XN7KUMCAQNVFJJ5YTAVDZCPHNWDOEDMRFBUGLY6IE2HKNNX5AC:1181"}},{"Del":{"text":" \\, billing_amount, grace_period_days) \\","pos":"EW2XN7KUMCAQNVFJJ5YTAVDZCPHNWDOEDMRFBUGLY6IE2HKNNX5AC:1225"}},{"Del":{"text":" \\VALUES (?, ?, ?, ?, ?, ?, ?, ?) RETURNING id\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:12170"}}]}},{"Edit":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":486,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":3044}],"down_context":[{"change":4,"pos":12451}],"flag":"BLOCK","start":20635,"end":20720,"inode":{"change":4,"pos":456}}},"contents":[{"Add":{"text":" , b ^. (B.paymentRequestEmailTemplate)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:20677"}},{"Add":{"text":" , b ^. (B.paymentRequestMemoTemplate)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:20719"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":491,"ins":{"up_context":[{"change":4,"pos":3073}],"down_context":[{"change":4,"pos":5594}],"flag":"BLOCK","start":20721,"end":21120,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":3073},"to":{"change":4,"start":12491,"end":12769},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":5593},"to":{"change":4,"start":12491,"end":12769},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":12491},"to":{"change":4,"start":12491,"end":12769},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" headMay <$> pquery billableParser ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:20757"}},{"Add":{"text":" [sql| SELECT b.project_id, e.created_by, b.name, b.description, ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:20826"}},{"Add":{"text":" b.recurrence_type, b.recurrence_count, ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:20883"}},{"Add":{"text":" b.billing_amount, b.grace_period_days,","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:20939"}},{"Add":{"text":" b.payment_request_email_template, b.payment_request_memo_template","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:21022"}},{"Add":{"text":" FROM billables b JOIN aftok_events e ON e.id = b.event_id ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:21091"}},{"Add":{"text":" WHERE b.id = ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:21119"}}],"del_contents":[{"Del":{"text":" headMay <$> pquery billableParser","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:12526"}},{"Del":{"text":" \"SELECT b.project_id, e.created_by, b.name, b.description, b.recurrence_type, b.recurrence_count, \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:12630"}},{"Del":{"text":" \\ b.billing_amount, b.grace_period_days \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:12682"}},{"Del":{"text":" \\FROM billables b JOIN aftok_events e ON e.id = b.event_id \\","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:12747"}},{"Del":{"text":" \\WHERE b.id = ?\"","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:12768"}}]}},{"Edit":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":499,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":5628}],"down_context":[{"change":4,"pos":3942}],"flag":"BLOCK","start":21121,"end":21622,"inode":{"change":4,"pos":456}}},"contents":[{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:21121"}},{"Add":{"text":"pgEval (FindBillables pid) = ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:21151"}},{"Add":{"text":" pquery ((,) <$> idParser B.BillableId <*> billableParser) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:21212"}},{"Add":{"text":" [sql| SELECT b.id, b.project_id, e.created_by, b.name, b.description, ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:21287"}},{"Add":{"text":" b.recurrence_type, b.recurrence_count, ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:21344"}},{"Add":{"text":" b.billing_amount, b.grace_period_days ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:21400"}},{"Add":{"text":" b.payment_request_email_template, b.payment_request_memo_template","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:21483"}},{"Add":{"text":" FROM billables b JOIN aftok_events e ON e.id = b.event_id ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:21552"}},{"Add":{"text":" WHERE b.project_id = ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:21588"}},{"Add":{"text":" (Only (pid ^. P._ProjectId))","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:21621"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":512,"ins":{"up_context":[{"change":4,"pos":609}],"down_context":[{"change":4,"pos":567}],"flag":"BLOCK","start":21623,"end":21790,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":609},"to":{"change":4,"start":5676,"end":5703},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":5703},"to":{"change":4,"start":637,"end":710},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":637},"to":{"change":4,"start":637,"end":710},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":710},"to":{"change":4,"start":1287,"end":1326},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pinsert B.SubscriptionId ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:21650"}},{"Add":{"text":" [sql| INSERT INTO subscriptions ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:21687"}},{"Add":{"text":" (user_id, billable_id, event_id, start_date) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:21743"}},{"Add":{"text":" VALUES (?, ?, ?, ?) RETURNING id |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:21789"}}],"del_contents":[{"Del":{"text":" pinsert B.SubscriptionId","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:5702"}},{"Del":{"text":" \"INSERT INTO subscriptions \\","pos":"Y3LIJ5USPMYBG7HKCIQBE7MWVGLQJPJSQD3KPZCTKXP22GOB535QC:669"}},{"Del":{"text":" \\(user_id, billable_id, event_id) \\","pos":"Y3LIJ5USPMYBG7HKCIQBE7MWVGLQJPJSQD3KPZCTKXP22GOB535QC:709"}},{"Del":{"text":" \\VALUES (?, ?, ?, ?) RETURNING id\"","pos":"EW2XN7KUMCAQNVFJJ5YTAVDZCPHNWDOEDMRFBUGLY6IE2HKNNX5AC:1325"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":523,"ins":{"up_context":[{"change":4,"pos":1516}],"down_context":[{"change":4,"pos":3249}],"flag":"BLOCK","start":21791,"end":21948,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":1516},"to":{"change":4,"start":3108,"end":3249},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":3108},"to":{"change":4,"start":3108,"end":3249},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" headMay <$> pquery subscriptionParser ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:21831"}},{"Add":{"text":" [sql| SELECT id, billable_id, start_date, end_date ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:21887"}},{"Add":{"text":" FROM subscriptions s ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:21919"}},{"Add":{"text":" WHERE s.id = ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:21947"}}],"del_contents":[{"Del":{"text":" headMay <$> pquery subscriptionParser","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3147"}},{"Del":{"text":" \"SELECT id, billable_id, start_date, end_date \\","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3199"}},{"Del":{"text":" \\FROM subscriptions s \\","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3227"}},{"Del":{"text":" \\WHERE s.id = ?\"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3248"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":530,"ins":{"up_context":[{"change":4,"pos":1554}],"down_context":[{"change":4,"pos":6065}],"flag":"BLOCK","start":21949,"end":22234,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":1554},"to":{"change":4,"start":3288,"end":3356},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5820},"to":{"change":4,"start":3288,"end":3356},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":3356},"to":{"change":4,"start":654,"end":715},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":715},"to":{"change":4,"start":5935,"end":6065},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5935},"to":{"change":4,"start":5935,"end":6065},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pquery ((,) <$> idParser B.SubscriptionId <*> subscriptionParser) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22017"}},{"Add":{"text":" [sql| SELECT s.id, user_id, billable_id, start_date, end_date ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22084"}},{"Add":{"text":" FROM subscriptions s ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22116"}},{"Add":{"text":" JOIN billables b ON b.id = s.billable_id ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22168"}},{"Add":{"text":" WHERE s.user_id = ? ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22199"}},{"Add":{"text":" AND b.project_id = ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22233"}}],"del_contents":[{"Del":{"text":" pquery ((,) <$> idParser B.SubscriptionId <*> subscriptionParser)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3355"}},{"Del":{"text":" \"SELECT id, user_id, billable_id, start_date, end_date \\","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:714"}},{"Del":{"text":" \\FROM subscriptions s \\","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:5962"}},{"Del":{"text":" \\JOIN billables b ON b.id = s.billable_id \\","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:6010"}},{"Del":{"text":" \\WHERE s.user_id = ? \\","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:6037"}},{"Del":{"text":" \\AND b.project_id = ?\"","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:6064"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":541,"ins":{"up_context":[{"change":4,"pos":896}],"down_context":[{"change":4,"pos":6158}],"flag":"BLOCK","start":22235,"end":22445,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":524},"to":{"change":4,"start":896,"end":959},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":896},"to":{"change":4,"start":896,"end":959},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":959},"to":{"change":4,"start":525,"end":656},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pinsert PaymentRequestId ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22262"}},{"Add":{"text":" [sql| INSERT INTO payment_requests ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22302"}},{"Add":{"text":" (subscription_id, event_id, request_data, url_key, request_time, billing_date) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22392"}},{"Add":{"text":" VALUES (?, ?, ?, ?, ?, ?) RETURNING id |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22444"}}],"del_contents":[{"Del":{"text":" pinsert PaymentRequestId","pos":"Y3LIJ5USPMYBG7HKCIQBE7MWVGLQJPJSQD3KPZCTKXP22GOB535QC:922"}},{"Del":{"text":" \"INSERT INTO payment_requests \\","pos":"Y3LIJ5USPMYBG7HKCIQBE7MWVGLQJPJSQD3KPZCTKXP22GOB535QC:958"}},{"Del":{"text":" \\(subscription_id, event_id, request_data, url_key, request_time, billing_date) \\","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:610"}},{"Del":{"text":" \\VALUES (?, ?, ?, ?, ?, ?) RETURNING id\"","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:655"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":554,"ins":{"up_context":[{"change":4,"pos":730}],"down_context":[{"change":4,"pos":753}],"flag":"BLOCK","start":22446,"end":22741,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":730},"to":{"change":4,"start":1130,"end":1295},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":1295},"to":{"change":4,"start":3716,"end":3743},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":3716},"to":{"change":4,"start":3716,"end":3743},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":3743},"to":{"change":4,"start":1296,"end":1379},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" headMay <$> pquery ((,) <$> idParser PaymentRequestId <*> paymentRequestParser) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22528"}},{"Add":{"text":" [sql| SELECT id, subscription_id, request_data, url_key, request_time, billing_date ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22615"}},{"Add":{"text":" FROM payment_requests ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22646"}},{"Add":{"text":" WHERE url_key = ? ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22673"}},{"Add":{"text":" AND id NOT IN (SELECT payment_request_id FROM payments) |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22740"}}],"del_contents":[{"Del":{"text":" headMay <$> pquery ((,) <$> idParser PaymentRequestId <*> paymentRequestParser)","pos":"BSIUHCGFDFDFGWYMHZB7OVU3Z3IHPEUXRISIOPGZI2RUXZFDS2EQC:1211"}},{"Del":{"text":" \"SELECT id, subscription_id, request_data, url_key, request_time, billing_date \\","pos":"BSIUHCGFDFDFGWYMHZB7OVU3Z3IHPEUXRISIOPGZI2RUXZFDS2EQC:1294"}},{"Del":{"text":" \\FROM payment_requests \\","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3742"}},{"Del":{"text":" \\WHERE url_key = ? \\","pos":"BSIUHCGFDFDFGWYMHZB7OVU3Z3IHPEUXRISIOPGZI2RUXZFDS2EQC:1318"}},{"Del":{"text":" \\AND id NOT IN (SELECT payment_request_id FROM payments)\"","pos":"BSIUHCGFDFDFGWYMHZB7OVU3Z3IHPEUXRISIOPGZI2RUXZFDS2EQC:1378"}}]}},{"Edit":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":560,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":764}],"down_context":[{"change":4,"pos":1590}],"flag":"BLOCK","start":22742,"end":22993,"inode":{"change":4,"pos":456}}},"contents":[{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22742"}},{"Add":{"text":"pgEval (FindPaymentRequestId (PaymentRequestId prid)) =","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22798"}},{"Add":{"text":" headMay <$> pquery paymentRequestParser","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22840"}},{"Add":{"text":" [sql| SELECT subscription_id, request_data, url_key, request_time, billing_date ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22923"}},{"Add":{"text":" FROM payment_requests ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22954"}},{"Add":{"text":" WHERE id = ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22978"}},{"Add":{"text":" (Only prid)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:22992"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":569,"ins":{"up_context":[{"change":4,"pos":1626}],"down_context":[{"change":4,"pos":4036}],"flag":"BLOCK","start":22994,"end":23220,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":1626},"to":{"change":4,"start":3835,"end":3905},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":3835},"to":{"change":4,"start":3835,"end":3905},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":3905},"to":{"change":4,"start":1380,"end":1463},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":1463},"to":{"change":4,"start":3979,"end":4036},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":3979},"to":{"change":4,"start":3979,"end":4036},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pquery ((,) <$> idParser PaymentRequestId <*> paymentRequestParser) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:23064"}},{"Add":{"text":" [sql| SELECT id, subscription_id, request_data, url_key, request_time, billing_date ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:23151"}},{"Add":{"text":" FROM payment_requests ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:23182"}},{"Add":{"text":" WHERE subscription_id = ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:23219"}}],"del_contents":[{"Del":{"text":" pquery ((,) <$> idParser PaymentRequestId <*> paymentRequestParser)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:3904"}},{"Del":{"text":" \"SELECT id, subscription_id, request_data, url_key, request_time, billing_date \\","pos":"BSIUHCGFDFDFGWYMHZB7OVU3Z3IHPEUXRISIOPGZI2RUXZFDS2EQC:1462"}},{"Del":{"text":" \\FROM payment_requests \\","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4005"}},{"Del":{"text":" \\WHERE subscription_id = ?\"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4035"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":581,"ins":{"up_context":[{"change":4,"pos":1010}],"down_context":[{"change":4,"pos":1601}],"flag":"BLOCK","start":23221,"end":24012,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1010},"to":{"change":4,"start":1010,"end":1028},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1028},"to":{"change":4,"start":893,"end":920},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":920},"to":{"change":4,"start":1464,"end":1558},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":1558},"to":{"change":4,"start":1131,"end":1601},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1131},"to":{"change":4,"start":1131,"end":1601},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" in pquery rowp ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:23239"}},{"Add":{"text":" [sql| SELECT r.url_key, ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:23270"}},{"Add":{"text":" r.subscription_id, r.request_data, r.url_key, r.request_time, r.billing_date, ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:23368"}},{"Add":{"text":" s.user_id, s.billable_id, s.start_date, s.end_date, ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:23440"}},{"Add":{"text":" b.project_id, e.created_by, b.name, b.description, b.recurrence_type, ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:23530"}},{"Add":{"text":" b.recurrence_count, b.billing_amount, b.grace_period_days,","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:23608"}},{"Add":{"text":" b.payment_request_email_template, b.payment_request_memo_template","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:23693"}},{"Add":{"text":" FROM payment_requests r ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:23730"}},{"Add":{"text":" JOIN subscriptions s on s.id = r.subscription_id ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:23792"}},{"Add":{"text":" JOIN billables b on b.id = s.billable_id ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:23846"}},{"Add":{"text":" JOIN aftok_events e on e.id = b.event_id","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:23899"}},{"Add":{"text":" WHERE subscription_id = ? ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:23938"}},{"Add":{"text":" AND r.id NOT IN (SELECT payment_request_id FROM payments) |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:24011"}}],"del_contents":[{"Del":{"text":" in pquery rowp","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1027"}},{"Del":{"text":" \"SELECT r.url_key, \\","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:919"}},{"Del":{"text":" \\ r.subscription_id, r.request_data, r.url_key, r.request_time, r.billing_date, \\","pos":"BSIUHCGFDFDFGWYMHZB7OVU3Z3IHPEUXRISIOPGZI2RUXZFDS2EQC:1557"}},{"Del":{"text":" \\ s.user_id, s.billable_id, s.start_date, s.end_date, \\","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1198"}},{"Del":{"text":" \\ b.project_id, e.created_by, b.name, b.description, b.recurrence_type, \\","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1284"}},{"Del":{"text":" \\ b.recurrence_count, b.billing_amount, b.grace_period_days \\","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1358"}},{"Del":{"text":" \\FROM payment_requests r \\","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1391"}},{"Del":{"text":" \\JOIN subscriptions s on s.id = r.subscription_id \\","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1449"}},{"Del":{"text":" \\JOIN billables b on b.id = s.billable_id \\","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1499"}},{"Del":{"text":" \\WHERE subscription_id = ? \\","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1534"}},{"Del":{"text":" \\AND r.id NOT IN (SELECT payment_request_id FROM payments)\"","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:1600"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":598,"ins":{"up_context":[{"change":4,"pos":81}],"down_context":[{"change":4,"pos":4218}],"flag":"BLOCK","start":24013,"end":24201,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":81},"to":{"change":4,"start":81,"end":129},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":129},"to":{"change":4,"start":286,"end":368},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":368},"to":{"change":4,"start":4179,"end":4218},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4179},"to":{"change":4,"start":4179,"end":4218},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pinsert PaymentId ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:24033"}},{"Add":{"text":" [sql| INSERT INTO payments ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:24065"}},{"Add":{"text":" (payment_request_id, event_id, payment_data, payment_date, exchange_rates) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:24151"}},{"Add":{"text":" VALUES (?, ?, ?, ?, ?) RETURNING id |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:24200"}}],"del_contents":[{"Del":{"text":" pinsert PaymentId","pos":"QADKFHAR3KWQCNYU25Z7PJUGMD5WL26IU3DOAHBTRN2A7NKPUPKAC:100"}},{"Del":{"text":" \"INSERT INTO payments \\","pos":"QADKFHAR3KWQCNYU25Z7PJUGMD5WL26IU3DOAHBTRN2A7NKPUPKAC:128"}},{"Del":{"text":" \\(payment_request_id, event_id, payment_data, payment_date, exchange_rates) \\","pos":"WZFQDWW4XK6M4A4PQ7WQJUTZUPRGQR7V7ZVZY5ZTL5AMGIFMHB2QC:367"}},{"Del":{"text":" \\VALUES (?, ?, ?, ?) RETURNING id\"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4217"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":610,"ins":{"up_context":[{"change":4,"pos":1655}],"down_context":[{"change":4,"pos":4553}],"flag":"BLOCK","start":24202,"end":24389,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":1655},"to":{"change":4,"start":4382,"end":4553},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4382},"to":{"change":4,"start":4382,"end":4553},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":" pquery ((,) <$> idParser PaymentId <*> paymentParser) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:24258"}},{"Add":{"text":" [sql| SELECT id, payment_request_id, payment_data, payment_date ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:24325"}},{"Add":{"text":" FROM payments ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:24348"}},{"Add":{"text":" WHERE payment_request_id = ? |]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:24388"}}],"del_contents":[{"Del":{"text":" pquery ((,) <$> idParser PaymentId <*> paymentParser)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4437"}},{"Del":{"text":" \"SELECT id, payment_request_id, payment_data, payment_date \\","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4500"}},{"Del":{"text":" \\FROM payments \\","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4519"}},{"Del":{"text":" \\WHERE payment_request_id = ?\"","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:4552"}}]}},{"Replacement":{"inode":{"change":4,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":622,"ins":{"up_context":[{"change":4,"pos":13185}],"down_context":[],"flag":"BLOCK","start":24390,"end":24424,"inode":{"change":4,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":13185},"to":{"change":4,"start":13185,"end":13217},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":13217},"to":{"change":4,"start":3946,"end":3947},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":3946},"to":{"change":4,"start":3946,"end":3947},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":3947},"to":{"change":4,"start":6295,"end":6341},"introduced_by":4}],"inode":{"change":4,"pos":456}},"ins_contents":[{"Add":{"text":"raiseError = QDBM . lift . throwE","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:24423"}}],"del_contents":[{"Del":{"text":"raiseError = QDBM . lift . left","pos":"73NDXDEZRMK672GHSTC3CI6YHXFZ2GGJI5IKQGHKFDZKTNSQXLLQC:13216"}},{"Del":{"text":"","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:3946"}},{"Del":{"text":"instance MonadDB QDBM where","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:6322"}},{"Del":{"text":" liftdb = pgEval","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:6340"}}]}},{"Edit":{"inode":{"change":4,"pos":4936},"path":"lib/Aftok/Database.hs","line":6,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":6416}],"down_context":[{"change":4,"pos":426}],"flag":"BLOCK","start":24426,"end":24462,"inode":{"change":4,"pos":4936}}},"contents":[{"Add":{"text":"{-# LANGUAGE TemplateHaskell #-}","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:24461"}}]}},{"Replacement":{"inode":{"change":4,"pos":4936},"path":"lib/Aftok/Database.hs","line":11,"ins":{"up_context":[{"change":4,"pos":143}],"down_context":[{"change":4,"pos":1787}],"flag":"BLOCK","start":24463,"end":24549,"inode":{"change":4,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":143},"to":{"change":4,"start":1731,"end":1787},"introduced_by":4}],"inode":{"change":4,"pos":4936}},"ins_contents":[{"Add":{"text":"import Control.Lens (view, (^.), makeClassyPrisms, traverseOf)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:24548"}}],"del_contents":[{"Del":{"text":"import Control.Lens (view, (^.))","pos":"JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC:1786"}}]}},{"Edit":{"inode":{"change":4,"pos":4936},"path":"lib/Aftok/Database.hs","line":37,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":6410}],"down_context":[{"change":4,"pos":4711}],"flag":"BLOCK","start":24550,"end":24638,"inode":{"change":4,"pos":4936}}},"contents":[{"Add":{"text":" ListProjects :: DBOp [ProjectId]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:24588"}},{"Add":{"text":" FindSubscribers :: ProjectId -> DBOp [UserId]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:24637"}}]}},{"Edit":{"inode":{"change":4,"pos":4936},"path":"lib/Aftok/Database.hs","line":58,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":4886}],"down_context":[{"change":4,"pos":13382}],"flag":"BLOCK","start":24639,"end":24705,"inode":{"change":4,"pos":4936}}},"contents":[{"Add":{"text":" FindBillables :: ProjectId -> DBOp [(BillableId, Billable)]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:24704"}}]}},{"Edit":{"inode":{"change":4,"pos":4936},"path":"lib/Aftok/Database.hs","line":68,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":1755}],"down_context":[{"change":4,"pos":5194}],"flag":"BLOCK","start":24706,"end":24781,"inode":{"change":4,"pos":4936}}},"contents":[{"Add":{"text":" FindPaymentRequestId :: PaymentRequestId -> DBOp (Maybe PaymentRequest)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:24780"}}]}},{"Edit":{"inode":{"change":4,"pos":4936},"path":"lib/Aftok/Database.hs","line":87,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":5117}],"down_context":[{"change":4,"pos":5117}],"flag":"BLOCK","start":24782,"end":24809,"inode":{"change":4,"pos":4936}}},"contents":[{"Add":{"text":"makeClassyPrisms ''DBError","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:24808"}}]}},{"Replacement":{"inode":{"change":4,"pos":4936},"path":"lib/Aftok/Database.hs","line":108,"ins":{"up_context":[{"change":4,"pos":7466}],"down_context":[{"change":4,"pos":5044}],"flag":"BLOCK","start":24810,"end":24899,"inode":{"change":4,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7466},"to":{"change":4,"start":7137,"end":7218},"introduced_by":4}],"inode":{"change":4,"pos":4936}},"ins_contents":[{"Add":{"text":"findUser :: (MonadDB m) => UserId -> MaybeT m User","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:24860"}},{"Add":{"text":"findUser = MaybeT . liftdb . FindUser","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:24898"}}],"del_contents":[{"Del":{"text":"findUser :: (MonadDB m) => UserId -> m (Maybe User)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:7188"}},{"Del":{"text":"findUser = liftdb . FindUser","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:7217"}}]}},{"Replacement":{"inode":{"change":4,"pos":4936},"path":"lib/Aftok/Database.hs","line":111,"ins":{"up_context":[{"change":4,"pos":5045}],"down_context":[{"change":4,"pos":7626}],"flag":"BLOCK","start":24900,"end":25019,"inode":{"change":4,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5045},"to":{"change":4,"start":5320,"end":5390},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":5390},"to":{"change":4,"start":7284,"end":7325},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7284},"to":{"change":4,"start":7284,"end":7325},"introduced_by":4}],"inode":{"change":4,"pos":4936}},"ins_contents":[{"Add":{"text":"findUserByName :: (MonadDB m) => UserName -> MaybeT m (UserId, User)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:24968"}},{"Add":{"text":"findUserByName = MaybeT . liftdb . FindUserByName","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25018"}}],"del_contents":[{"Del":{"text":"findUserByName :: (MonadDB m) => UserName -> m (Maybe (UserId, User))","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:5389"}},{"Del":{"text":"findUserByName = liftdb . FindUserByName","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:7324"}}]}},{"Edit":{"inode":{"change":4,"pos":4936},"path":"lib/Aftok/Database.hs","line":121,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":7809}],"down_context":[{"change":4,"pos":7809}],"flag":"BLOCK","start":25020,"end":25203,"inode":{"change":4,"pos":4936}}},"contents":[{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25020"}},{"Add":{"text":"listProjects :: (MonadDB m) => m [ProjectId]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25065"}},{"Add":{"text":"listProjects = liftdb ListProjects","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25100"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25101"}},{"Add":{"text":"findSubscribers :: (MonadDB m) => ProjectId -> m [UserId]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25159"}},{"Add":{"text":"findSubscribers = liftdb . FindSubscribers","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25202"}}]}},{"Replacement":{"inode":{"change":4,"pos":4936},"path":"lib/Aftok/Database.hs","line":128,"ins":{"up_context":[{"change":4,"pos":7810}],"down_context":[{"change":4,"pos":564}],"flag":"BLOCK","start":25204,"end":25675,"inode":{"change":4,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7810},"to":{"change":4,"start":7417,"end":7488},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":7488},"to":{"change":4,"start":7871,"end":7896},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7871},"to":{"change":4,"start":7871,"end":7896},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7896},"to":{"change":4,"start":533,"end":563},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":563},"to":{"change":4,"start":7927,"end":7984},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7927},"to":{"change":4,"start":7927,"end":7984},"introduced_by":4}],"inode":{"change":4,"pos":4936}},"ins_contents":[{"Add":{"text":"findProject :: (MonadDB m) => ProjectId -> MaybeT m Project","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25263"}},{"Add":{"text":"findProject = MaybeT . liftdb . FindProject","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25307"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25308"}},{"Add":{"text":"findProjectOrError :: (MonadDB m) => ProjectId -> m Project","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25368"}},{"Add":{"text":"findProjectOrError pid = fromMaybeT","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25404"}},{"Add":{"text":" (raiseSubjectNotFound $ FindProject pid)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25447"}},{"Add":{"text":" (findProject pid)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25467"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25468"}},{"Add":{"text":"findUserProject :: (MonadDB m) => UserId -> ProjectId -> MaybeT m Project","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25542"}},{"Add":{"text":"findUserProject uid pid = do","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25571"}},{"Add":{"text":" kps <- lift $ findUserProjects uid","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25608"}},{"Add":{"text":" MaybeT . pure $ fmap snd (find (\\(pid', _) -> pid' == pid) kps)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25674"}}],"del_contents":[{"Del":{"text":"findProject :: (MonadDB m) => ProjectId -> UserId -> m (Maybe Project)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:7487"}},{"Del":{"text":"findProject pid uid = do","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7895"}},{"Del":{"text":" kps <- findUserProjects uid","pos":"NLZ3JXLOOIL37O3RRQWXHNPNSNEOOLPD6MCB754BEBECQB3KGR2AC:562"}},{"Del":{"text":" pure $ fmap snd (find (\\(pid', _) -> pid' == pid) kps)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7983"}}]}},{"Replacement":{"inode":{"change":4,"pos":4936},"path":"lib/Aftok/Database.hs","line":221,"ins":{"up_context":[{"change":4,"pos":5907}],"down_context":[{"change":4,"pos":4654}],"flag":"BLOCK","start":25676,"end":25717,"inode":{"change":4,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5907},"to":{"change":4,"start":2040,"end":2068},"introduced_by":4}],"inode":{"change":4,"pos":4936}},"ins_contents":[{"Add":{"text":" traverseOf B.billable findBillable sub","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25716"}}],"del_contents":[{"Del":{"text":" traverse findBillable sub","pos":"JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC:2067"}}]}},{"Replacement":{"inode":{"change":4,"pos":4936},"path":"lib/Aftok/Database.hs","line":226,"ins":{"up_context":[{"change":4,"pos":1595}],"down_context":[{"change":4,"pos":1117}],"flag":"BLOCK","start":25718,"end":26017,"inode":{"change":4,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1595},"to":{"change":4,"start":1803,"end":1899},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":1899},"to":{"change":4,"start":1068,"end":1117},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1068},"to":{"change":4,"start":1068,"end":1117},"introduced_by":4}],"inode":{"change":4,"pos":4936}},"ins_contents":[{"Add":{"text":"findPaymentRequest :: (MonadDB m) => PaymentKey -> MaybeT m (PaymentRequestId, PaymentRequest)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25812"}},{"Add":{"text":"findPaymentRequest = MaybeT . liftdb . FindPaymentRequest","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25870"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25871"}},{"Add":{"text":"findPaymentRequestId :: (MonadDB m) => PaymentRequestId -> MaybeT m PaymentRequest","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:25954"}},{"Add":{"text":"findPaymentRequestId = MaybeT . liftdb . FindPaymentRequestId","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26016"}}],"del_contents":[{"Del":{"text":"findPaymentRequest :: (MonadDB m) => PaymentKey -> m (Maybe (PaymentRequestId, PaymentRequest))","pos":"BSIUHCGFDFDFGWYMHZB7OVU3Z3IHPEUXRISIOPGZI2RUXZFDS2EQC:1898"}},{"Del":{"text":"findPaymentRequest = liftdb . FindPaymentRequest","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1116"}}]}},{"Replacement":{"inode":{"change":4,"pos":4936},"path":"lib/Aftok/Database.hs","line":237,"ins":{"up_context":[{"change":4,"pos":2333}],"down_context":[{"change":4,"pos":4910}],"flag":"BLOCK","start":26018,"end":26165,"inode":{"change":4,"pos":4936}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":2333},"to":{"change":4,"start":6084,"end":6223},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1595},"to":{"change":4,"start":6084,"end":6223},"introduced_by":4}],"inode":{"change":4,"pos":4936}},"ins_contents":[{"Add":{"text":"findPayment :: (MonadDB m) => PaymentRequestId -> MaybeT m Payment","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26084"}},{"Add":{"text":"findPayment prid = MaybeT $ (fmap snd . headMay) <$> liftdb (FindPayments prid)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26164"}}],"del_contents":[{"Del":{"text":"findPayment :: (MonadDB m) => PaymentRequestId -> m (Maybe Payment)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6151"}},{"Del":{"text":"findPayment prid = (fmap snd . headMay) <$> liftdb (FindPayments prid)","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6222"}}]}},{"Replacement":{"inode":{"change":4,"pos":4936},"path":"lib/Aftok/Database.hs","line":246,"ins":{"up_context":[{"change":4,"pos":767}],"down_context":[{"change":4,"pos":841}],"flag":"BLOCK","start":26166,"end":26236,"inode":{"change":4,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":767},"to":{"change":4,"start":9652,"end":9723},"introduced_by":4}],"inode":{"change":4,"pos":4936}},"ins_contents":[{"Add":{"text":"findAuction :: (MonadDB m) => AuctionId -> UserId -> MaybeT m Auction","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26235"}}],"del_contents":[{"Del":{"text":"findAuction :: (MonadDB m) => AuctionId -> UserId -> m (Maybe Auction)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:9722"}}]}},{"Replacement":{"inode":{"change":4,"pos":4936},"path":"lib/Aftok/Database.hs","line":250,"ins":{"up_context":[{"change":4,"pos":892}],"down_context":[{"change":4,"pos":292}],"flag":"BLOCK","start":26237,"end":26350,"inode":{"change":4,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":892},"to":{"change":4,"start":9724,"end":9754},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":9754},"to":{"change":4,"start":205,"end":291},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":205},"to":{"change":4,"start":205,"end":291},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":291},"to":{"change":4,"start":1006,"end":1024},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1006},"to":{"change":4,"start":1006,"end":1024},"introduced_by":4}],"inode":{"change":4,"pos":4936}},"ins_contents":[{"Add":{"text":" auc <- MaybeT $ liftdb findOp","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26270"}},{"Add":{"text":" _ <- lift $ checkProjectAuth (auc ^. A.projectId) uid findOp ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26336"}},{"Add":{"text":" pure auc","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26349"}}],"del_contents":[{"Del":{"text":" maybeAuc <- liftdb findOp","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:9753"}},{"Del":{"text":" _ <- traverse (\\auc -> checkProjectAuth (auc ^. A.projectId) uid findOp) maybeAuc","pos":"FXJQACESPGTLPG5ELXBU3M3OQXUZQQIR7HPIEHQ3FNUTMWVH4WBAC:290"}},{"Del":{"text":" pure maybeAuc","pos":"5OI44E4EEVYOMHDWNK2WA7K4L4JWRWCUJUNN2UAUGE5VY4W7GTNAC:1023"}}]}},{"Replacement":{"inode":{"change":4,"pos":19},"path":"lib/Aftok/Json.hs","line":111,"ins":{"up_context":[{"change":4,"pos":486}],"down_context":[{"change":4,"pos":1288}],"flag":"BLOCK","start":26352,"end":26514,"inode":{"change":4,"pos":19}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":486},"to":{"change":4,"start":6279,"end":6327},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":6327},"to":{"change":4,"start":6629,"end":6666},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":9375},"to":{"change":4,"start":6629,"end":6666},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6666},"to":{"change":4,"start":1803,"end":1850},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":1850},"to":{"change":4,"start":1247,"end":1288},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1247},"to":{"change":4,"start":1247,"end":1288},"introduced_by":4}],"inode":{"change":4,"pos":19}},"ins_contents":[{"Add":{"text":"qdbJSON :: Text -> (Lens' a UUID) -> (b -> Value) -> (a, b) -> Value","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26420"}},{"Add":{"text":"qdbJSON name l f (xid, x) = v1 $","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26453"}},{"Add":{"text":" obj [ (name <> \"Id\") .= idValue l xid","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26493"}},{"Add":{"text":" , name .= f x","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26513"}}],"del_contents":[{"Del":{"text":"qdbProjectJSON :: (ProjectId, Project) -> Value","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:6326"}},{"Del":{"text":"qdbProjectJSON (pid, project) = v1 $","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:6665"}},{"Del":{"text":" obj [ \"projectId\" .= idValue _ProjectId pid","pos":"EW2XN7KUMCAQNVFJJ5YTAVDZCPHNWDOEDMRFBUGLY6IE2HKNNX5AC:1849"}},{"Del":{"text":" , \"project\" .= projectJSON project","pos":"7VGYLTMURLVSVUYFW7TCRZTDQ6RE2EPSPPA43XKHDOBFWYVVSJHQC:1287"}}]}},{"Edit":{"inode":{"change":4,"pos":19},"path":"lib/Aftok/Json.hs","line":126,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":1516}],"down_context":[{"change":4,"pos":538}],"flag":"BLOCK","start":26515,"end":26622,"inode":{"change":4,"pos":19}}},"contents":[{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26515"}},{"Add":{"text":"qdbProjectJSON :: (ProjectId, Project) -> Value","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26563"}},{"Add":{"text":"qdbProjectJSON = qdbJSON \"project\" _ProjectId projectJSON","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26621"}}]}},{"Edit":{"inode":{"change":4,"pos":19},"path":"lib/Aftok/Json.hs","line":180,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":2251}],"down_context":[{"change":4,"pos":1568}],"flag":"BLOCK","start":26623,"end":26715,"inode":{"change":4,"pos":19}}},"contents":[{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26623"}},{"Add":{"text":"billableIdJSON :: B.BillableId -> Value","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26663"}},{"Add":{"text":"billableIdJSON = idJSON \"billableId\" B._BillableId","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26714"}}]}},{"Edit":{"inode":{"change":4,"pos":19},"path":"lib/Aftok/Json.hs","line":197,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":2997}],"down_context":[{"change":4,"pos":1844}],"flag":"BLOCK","start":26716,"end":26836,"inode":{"change":4,"pos":19}}},"contents":[{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26716"}},{"Add":{"text":"qdbBillableJSON :: (B.BillableId, B.Billable) -> Value","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26771"}},{"Add":{"text":"qdbBillableJSON = qdbJSON \"billable\" B._BillableId billableJSON","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26835"}}]}},{"Edit":{"inode":{"change":4,"pos":19},"path":"lib/Aftok/Json.hs","line":226,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":3562}],"down_context":[{"change":4,"pos":630}],"flag":"BLOCK","start":26837,"end":26949,"inode":{"change":4,"pos":19}}},"contents":[{"Add":{"text":"subscriptionIdJSON :: B.SubscriptionId -> Value","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26884"}},{"Add":{"text":"subscriptionIdJSON = idJSON \"subscriptionId\" B._SubscriptionId","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26947"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26948"}}]}},{"Edit":{"inode":{"change":4,"pos":19},"path":"lib/Aftok/Json.hs","line":255,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":4377}],"down_context":[{"change":4,"pos":4377}],"flag":"BLOCK","start":26950,"end":27033,"inode":{"change":4,"pos":19}}},"contents":[{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26950"}},{"Add":{"text":"paymentIdJSON :: PaymentId -> Value","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:26986"}},{"Add":{"text":"paymentIdJSON = idJSON \"paymentId\" _PaymentId","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:27032"}}]}},{"Edit":{"inode":{"change":4,"pos":19},"path":"lib/Aftok/Json.hs","line":271,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":5724}],"down_context":[{"change":4,"pos":2133}],"flag":"BLOCK","start":27034,"end":27305,"inode":{"change":4,"pos":19}}},"contents":[{"Add":{"text":"parseUUID :: Value -> Parser U.UUID","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:27069"}},{"Add":{"text":"parseUUID v = do","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:27086"}},{"Add":{"text":" str <- parseJSON v","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:27107"}},{"Add":{"text":" maybe (fail $ \"Value \" <> str <> \"Could not be parsed as a valid UUID.\") pure $ U.fromString str","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:27206"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:27207"}},{"Add":{"text":"parseId :: forall a. Prism' a UUID -> Value -> Parser a","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:27263"}},{"Add":{"text":"parseId p = fmap (review p) . parseUUID ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:27304"}}]}},{"Replacement":{"inode":{"change":4,"pos":19},"path":"lib/Aftok/Json.hs","line":294,"ins":{"up_context":[{"change":4,"pos":1271}],"down_context":[{"change":4,"pos":3012}],"flag":"BLOCK","start":27306,"end":27381,"inode":{"change":4,"pos":19}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":1271},"to":{"change":4,"start":2932,"end":3012},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2932},"to":{"change":4,"start":2932,"end":3012},"introduced_by":4}],"inode":{"change":4,"pos":19}},"ins_contents":[{"Add":{"text":" fmap CreditToUser . parseId _UserId <$> O.lookup \"creditToUser\" o'","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:27380"}}],"del_contents":[{"Del":{"text":" fmap (CreditToUser . UserId) . parseUUID <$> O.lookup \"creditToUser\" o'","pos":"7VGYLTMURLVSVUYFW7TCRZTDQ6RE2EPSPPA43XKHDOBFWYVVSJHQC:3011"}}]}},{"Replacement":{"inode":{"change":4,"pos":19},"path":"lib/Aftok/Json.hs","line":297,"ins":{"up_context":[{"change":4,"pos":1304}],"down_context":[{"change":4,"pos":3135}],"flag":"BLOCK","start":27382,"end":27466,"inode":{"change":4,"pos":19}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":1304},"to":{"change":4,"start":3046,"end":3135},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":3046},"to":{"change":4,"start":3046,"end":3135},"introduced_by":4}],"inode":{"change":4,"pos":19}},"ins_contents":[{"Add":{"text":" fmap CreditToProject . parseId _ProjectId <$> O.lookup \"creditToProject\" o'","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:27465"}}],"del_contents":[{"Del":{"text":" fmap (CreditToProject . ProjectId) . parseUUID <$> O.lookup \"creditToProject\" o'","pos":"7VGYLTMURLVSVUYFW7TCRZTDQ6RE2EPSPPA43XKHDOBFWYVVSJHQC:3134"}}]}},{"Edit":{"inode":{"change":4,"pos":19},"path":"lib/Aftok/Json.hs","line":345,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":3235},"to":{"change":4,"start":6406,"end":6407},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6406},"to":{"change":4,"start":6406,"end":6407},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4678},"to":{"change":4,"start":4678,"end":4851},"introduced_by":4}],"inode":{"change":4,"pos":19}}},"contents":[{"Del":{"text":"","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:6406"}},{"Del":{"text":"parseUUID :: Value -> Parser U.UUID","pos":"RN7EI6INGUUHGMNY5RU3NH56WPLRZY5ZMYDNFMNE3TGV4ESFLQIAC:4713"}},{"Del":{"text":"parseUUID v = do","pos":"RN7EI6INGUUHGMNY5RU3NH56WPLRZY5ZMYDNFMNE3TGV4ESFLQIAC:4730"}},{"Del":{"text":" str <- parseJSON v","pos":"RN7EI6INGUUHGMNY5RU3NH56WPLRZY5ZMYDNFMNE3TGV4ESFLQIAC:4751"}},{"Del":{"text":" maybe (fail $ \"Value \" <> str <> \"Could not be parsed as a valid UUID.\") pure $ U.fromString str","pos":"RN7EI6INGUUHGMNY5RU3NH56WPLRZY5ZMYDNFMNE3TGV4ESFLQIAC:4850"}}]}},{"Edit":{"inode":{"change":4,"pos":19},"path":"lib/Aftok/Json.hs","line":354,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4874},"to":{"change":4,"start":3111,"end":3226},"introduced_by":4}],"inode":{"change":4,"pos":19}}},"contents":[{"Del":{"text":"","pos":"EW2XN7KUMCAQNVFJJ5YTAVDZCPHNWDOEDMRFBUGLY6IE2HKNNX5AC:3111"}},{"Del":{"text":"parseBillable :: Value -> Parser B.Billable","pos":"EW2XN7KUMCAQNVFJJ5YTAVDZCPHNWDOEDMRFBUGLY6IE2HKNNX5AC:3155"}},{"Del":{"text":"parseBillable = unversion \"Billable\" p where","pos":"EW2XN7KUMCAQNVFJJ5YTAVDZCPHNWDOEDMRFBUGLY6IE2HKNNX5AC:3200"}},{"Del":{"text":" --p (Version 1 0) o = ","pos":"EW2XN7KUMCAQNVFJJ5YTAVDZCPHNWDOEDMRFBUGLY6IE2HKNNX5AC:3225"}}]}},{"Replacement":{"inode":{"change":4,"pos":19},"path":"lib/Aftok/Json.hs","line":355,"ins":{"up_context":[{"change":4,"pos":3227}],"down_context":[{"change":4,"pos":987}],"flag":"BLOCK","start":27467,"end":27850,"inode":{"change":4,"pos":19}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":3227},"to":{"change":4,"start":3227,"end":3263},"introduced_by":4}],"inode":{"change":4,"pos":19}},"ins_contents":[{"Add":{"text":"parseRecurrence :: Object -> Parser B.Recurrence","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:27515"}},{"Add":{"text":"parseRecurrence o = ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:27536"}},{"Add":{"text":" let parseAnnually o' = const (pure B.Annually) <$> O.lookup \"annually\" o'","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:27615"}},{"Add":{"text":" parseMonthly o' = fmap B.Monthly . parseJSON <$> O.lookup \"monthly\" o'","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:27693"}},{"Add":{"text":" parseWeekly o' = fmap B.Weekly . parseJSON <$> O.lookup \"weekly\" o'","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:27770"}},{"Add":{"text":" parseOneTime o' = const (pure B.OneTime) <$> O.lookup \"one-time\" o'","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:27849"}}],"del_contents":[{"Del":{"text":" p v o = badVersion \"Billable\" v o","pos":"EW2XN7KUMCAQNVFJJ5YTAVDZCPHNWDOEDMRFBUGLY6IE2HKNNX5AC:3262"}}]}},{"Edit":{"inode":{"change":4,"pos":19},"path":"lib/Aftok/Json.hs","line":362,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":988}],"down_context":[{"change":4,"pos":3264}],"flag":"BLOCK","start":27851,"end":28064,"inode":{"change":4,"pos":19}}},"contents":[{"Add":{"text":" notFound = fail $ \"Value \" <> show o <> \" does not represent a Recurrence value.\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:27938"}},{"Add":{"text":" parseV v = parseAnnually v <|> parseMonthly v <|> parseWeekly v <|> parseOneTime v","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:28027"}},{"Add":{"text":" in fromMaybe notFound $ parseV o","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:28063"}}]}},{"Edit":{"inode":{"change":4,"pos":19},"path":"lib/Aftok/Json.hs","line":366,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":3265}],"down_context":[],"flag":"BLOCK","start":28065,"end":28237,"inode":{"change":4,"pos":19}}},"contents":[{"Add":{"text":"parseRecurrence' :: Value -> Parser B.Recurrence","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:28113"}},{"Add":{"text":"parseRecurrence' (Object o) = parseRecurrence o","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:28161"}},{"Add":{"text":"parseRecurrence' v = fail $ \"Value \" <> show v <> \" is not a JSON object.\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:28236"}}]}},{"Replacement":{"inode":{"change":4,"pos":10545},"path":"lib/Aftok/Payments/Types.hs","line":20,"ins":{"up_context":[{"change":4,"pos":2175}],"down_context":[{"change":4,"pos":1181}],"flag":"BLOCK","start":28240,"end":28313,"inode":{"change":4,"pos":10545}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2175},"to":{"change":4,"start":2175,"end":2235},"introduced_by":4}],"inode":{"change":4,"pos":10545}},"ins_contents":[{"Add":{"text":" getPaymentDetails, Satoshi(..))","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:28312"}}],"del_contents":[{"Del":{"text":" getPaymentDetails)","pos":"BSIUHCGFDFDFGWYMHZB7OVU3Z3IHPEUXRISIOPGZI2RUXZFDS2EQC:2234"}}]}},{"Edit":{"inode":{"change":4,"pos":10545},"path":"lib/Aftok/Payments/Types.hs","line":31,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":1243}],"down_context":[{"change":4,"pos":1243}],"flag":"BLOCK","start":28314,"end":28393,"inode":{"change":4,"pos":10545}}},"contents":[{"Add":{"text":"-- A unique identifier for the payment request, suitable","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:28370"}},{"Add":{"text":"-- for URL embedding.","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:28392"}}]}},{"Edit":{"inode":{"change":4,"pos":10545},"path":"lib/Aftok/Payments/Types.hs","line":71,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":1513}],"down_context":[],"flag":"BLOCK","start":28394,"end":28498,"inode":{"change":4,"pos":10545}}},"contents":[{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:28394"}},{"Add":{"text":"paymentRequestTotal :: P.PaymentRequest -> Satoshi","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:28445"}},{"Add":{"text":"paymentRequestTotal _ = error \"Not yet implemented\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:28497"}}]}},{"Replacement":{"inode":{"change":4,"pos":5686},"path":"lib/Aftok/Payments.hs","line":14,"ins":{"up_context":[{"change":4,"pos":2845}],"down_context":[{"change":4,"pos":11677}],"flag":"BLOCK","start":28500,"end":28572,"inode":{"change":4,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2845},"to":{"change":4,"start":2845,"end":2905},"introduced_by":4}],"inode":{"change":4,"pos":5686}},"ins_contents":[{"Add":{"text":" view, (%~), (^.), traverseOf)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:28571"}}],"del_contents":[{"Del":{"text":" view, (%~), (^.))","pos":"JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC:2904"}}]}},{"Edit":{"inode":{"change":4,"pos":5686},"path":"lib/Aftok/Payments.hs","line":17,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":2972}],"down_context":[{"change":4,"pos":2972}],"flag":"BLOCK","start":28573,"end":28643,"inode":{"change":4,"pos":5686}}},"contents":[{"Add":{"text":"import Control.Monad.Trans.Maybe (MaybeT(..), runMaybeT)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:28642"}}]}},{"Replacement":{"inode":{"change":4,"pos":5686},"path":"lib/Aftok/Payments.hs","line":42,"ins":{"up_context":[{"change":4,"pos":12460}],"down_context":[{"change":4,"pos":12579}],"flag":"BLOCK","start":28644,"end":28778,"inode":{"change":4,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":12460},"to":{"change":4,"start":12460,"end":12495},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":12495},"to":{"change":4,"start":3815,"end":3845},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":3845},"to":{"change":4,"start":7697,"end":7731},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":12522},"to":{"change":4,"start":7697,"end":7731},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7731},"to":{"change":4,"start":3846,"end":3876},"introduced_by":4}],"inode":{"change":4,"pos":5686}},"ins_contents":[{"Add":{"text":"data PaymentsConfig = PaymentsConfig","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:28680"}},{"Add":{"text":" { _network :: !BT.Network","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:28711"}},{"Add":{"text":" , _signingKey :: !RSA.PrivateKey","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:28746"}},{"Add":{"text":" , _pkiData :: !BT.PKIData","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:28777"}}],"del_contents":[{"Del":{"text":"data BillingConfig = BillingConfig","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:12494"}},{"Del":{"text":" { _network :: BT.Network","pos":"JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC:3844"}},{"Del":{"text":" , _signingKey :: RSA.PrivateKey","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7730"}},{"Del":{"text":" , _pkiData :: BT.PKIData","pos":"JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC:3875"}}]}},{"Replacement":{"inode":{"change":4,"pos":5686},"path":"lib/Aftok/Payments.hs","line":47,"ins":{"up_context":[{"change":4,"pos":12583}],"down_context":[{"change":4,"pos":7759}],"flag":"BLOCK","start":28779,"end":28807,"inode":{"change":4,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":12583},"to":{"change":4,"start":7732,"end":7759},"introduced_by":4}],"inode":{"change":4,"pos":5686}},"ins_contents":[{"Add":{"text":"makeClassy ''PaymentsConfig","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:28806"}}],"del_contents":[{"Del":{"text":"makeClassy ''BillingConfig","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:7758"}}]}},{"Replacement":{"inode":{"change":4,"pos":5686},"path":"lib/Aftok/Payments.hs","line":51,"ins":{"up_context":[{"change":4,"pos":2525}],"down_context":[{"change":4,"pos":2613}],"flag":"BLOCK","start":28808,"end":29071,"inode":{"change":4,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2525},"to":{"change":4,"start":2525,"end":2613},"introduced_by":4}],"inode":{"change":4,"pos":5686}},"ins_contents":[{"Add":{"text":" memoGen :: Subscription' UserId Billable -- ^ subscription being billed","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:28886"}},{"Add":{"text":" -> T.Day -- ^ billing date","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:28952"}},{"Add":{"text":" -> C.UTCTime -- ^ payment request generation time","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:29037"}},{"Add":{"text":" -> m (Maybe Text)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:29070"}}],"del_contents":[{"Del":{"text":" memoGen :: Subscription' UserId Billable -> T.Day -> C.UTCTime -> m (Maybe Text)","pos":"BSIUHCGFDFDFGWYMHZB7OVU3Z3IHPEUXRISIOPGZI2RUXZFDS2EQC:2612"}}]}},{"Replacement":{"inode":{"change":4,"pos":5686},"path":"lib/Aftok/Payments.hs","line":56,"ins":{"up_context":[{"change":4,"pos":2657}],"down_context":[{"change":4,"pos":2703}],"flag":"BLOCK","start":29072,"end":29196,"inode":{"change":4,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2657},"to":{"change":4,"start":2657,"end":2703},"introduced_by":4}],"inode":{"change":4,"pos":5686}},"ins_contents":[{"Add":{"text":" , uriGen :: PaymentKey -- ^ payment key to be included in the URL ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:29163"}},{"Add":{"text":" -> m (Maybe URI)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:29195"}}],"del_contents":[{"Del":{"text":" , uriGen :: PaymentKey -> m (Maybe URI)","pos":"BSIUHCGFDFDFGWYMHZB7OVU3Z3IHPEUXRISIOPGZI2RUXZFDS2EQC:2702"}}]}},{"Replacement":{"inode":{"change":4,"pos":5686},"path":"lib/Aftok/Payments.hs","line":59,"ins":{"up_context":[{"change":4,"pos":2743}],"down_context":[{"change":4,"pos":8102}],"flag":"BLOCK","start":29197,"end":29467,"inode":{"change":4,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2743},"to":{"change":4,"start":2743,"end":2837},"introduced_by":4}],"inode":{"change":4,"pos":5686}},"ins_contents":[{"Add":{"text":" , payloadGen :: Subscription' UserId Billable -- ^ subscription being billed","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:29275"}},{"Add":{"text":" -> T.Day -- ^ billing date","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:29341"}},{"Add":{"text":" -> C.UTCTime -- ^ payment request generation time","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:29426"}},{"Add":{"text":" -> m (Maybe ByteString) ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:29466"}}],"del_contents":[{"Del":{"text":" , payloadGen :: Subscription' UserId Billable -> T.Day -> C.UTCTime -> m (Maybe ByteString)","pos":"BSIUHCGFDFDFGWYMHZB7OVU3Z3IHPEUXRISIOPGZI2RUXZFDS2EQC:2836"}}]}},{"Replacement":{"inode":{"change":4,"pos":5686},"path":"lib/Aftok/Payments.hs","line":66,"ins":{"up_context":[{"change":4,"pos":4107}],"down_context":[{"change":4,"pos":12610}],"flag":"BLOCK","start":29468,"end":29724,"inode":{"change":4,"pos":5686}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":4107},"to":{"change":4,"start":8134,"end":8387},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":8134},"to":{"change":4,"start":8134,"end":8387},"introduced_by":4}],"inode":{"change":4,"pos":5686}},"ins_contents":[{"Add":{"text":" = Paid !Payment -- ^ the request was paid with the specified payment","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:29548"}},{"Add":{"text":" | Unpaid !PaymentRequest -- ^ the request has not been paid, but has not yet expired","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:29636"}},{"Add":{"text":" | Expired !PaymentRequest -- ^ the request was not paid prior to the expiration date","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:29723"}}],"del_contents":[{"Del":{"text":" = Paid Payment -- ^ the request was paid with the specified payment","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8213"}},{"Del":{"text":" | Unpaid PaymentRequest -- ^ the request has not been paid, but has not yet expired","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8300"}},{"Del":{"text":" | Expired PaymentRequest -- ^ the request was not paid prior to the expiration date","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8386"}}]}},{"Replacement":{"inode":{"change":4,"pos":5686},"path":"lib/Aftok/Payments.hs","line":71,"ins":{"up_context":[{"change":4,"pos":8406}],"down_context":[{"change":4,"pos":8460}],"flag":"BLOCK","start":29725,"end":29781,"inode":{"change":4,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":8406},"to":{"change":4,"start":8406,"end":8460},"introduced_by":4}],"inode":{"change":4,"pos":5686}},"ins_contents":[{"Add":{"text":" = Overdue !SubscriptionId","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:29752"}},{"Add":{"text":" | SigningError !RSA.Error","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:29780"}}],"del_contents":[{"Del":{"text":" = Overdue SubscriptionId","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8432"}},{"Del":{"text":" | SigningError RSA.Error","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8459"}}]}},{"Edit":{"inode":{"change":4,"pos":5686},"path":"lib/Aftok/Payments.hs","line":75,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":4109}],"down_context":[{"change":4,"pos":8496}],"flag":"BLOCK","start":29782,"end":29955,"inode":{"change":4,"pos":5686}}},"contents":[{"Add":{"text":"{--","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:29785"}},{"Add":{"text":" - Find all the subscriptions for the specified customer, and","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:29847"}},{"Add":{"text":" - determine which if any are up for renewal. Create a payment","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:29910"}},{"Add":{"text":" - request for each such subscription.","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:29949"}},{"Add":{"text":" --}","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:29954"}}]}},{"Replacement":{"inode":{"change":4,"pos":5686},"path":"lib/Aftok/Payments.hs","line":81,"ins":{"up_context":[{"change":4,"pos":8537}],"down_context":[{"change":4,"pos":8600}],"flag":"BLOCK","start":29956,"end":30020,"inode":{"change":4,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":8537},"to":{"change":4,"start":8537,"end":8600},"introduced_by":4}],"inode":{"change":4,"pos":5686}},"ins_contents":[{"Add":{"text":" , MonadReader r m, HasPaymentsConfig r","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30019"}}],"del_contents":[{"Del":{"text":" , MonadReader r m, HasBillingConfig r","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:8599"}}]}},{"Replacement":{"inode":{"change":4,"pos":5686},"path":"lib/Aftok/Payments.hs","line":96,"ins":{"up_context":[{"change":4,"pos":9242}],"down_context":[{"change":4,"pos":9285}],"flag":"BLOCK","start":30021,"end":30065,"inode":{"change":4,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":9242},"to":{"change":4,"start":9242,"end":9285},"introduced_by":4}],"inode":{"change":4,"pos":5686}},"ins_contents":[{"Add":{"text":" , MonadReader r m, HasPaymentsConfig r","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30064"}}],"del_contents":[{"Del":{"text":" , MonadReader r m, HasBillingConfig r","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9284"}}]}},{"Replacement":{"inode":{"change":4,"pos":5686},"path":"lib/Aftok/Payments.hs","line":106,"ins":{"up_context":[{"change":4,"pos":9610}],"down_context":[{"change":4,"pos":9653}],"flag":"BLOCK","start":30066,"end":30120,"inode":{"change":4,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":9610},"to":{"change":4,"start":9610,"end":9653},"introduced_by":4}],"inode":{"change":4,"pos":5686}},"ins_contents":[{"Add":{"text":" traverseOf billable findBillable sub","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30119"}}],"del_contents":[{"Del":{"text":" traverse findBillable sub","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:9652"}}]}},{"Replacement":{"inode":{"change":4,"pos":5686},"path":"lib/Aftok/Payments.hs","line":114,"ins":{"up_context":[{"change":4,"pos":9996}],"down_context":[{"change":4,"pos":10039}],"flag":"BLOCK","start":30121,"end":30165,"inode":{"change":4,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":9996},"to":{"change":4,"start":9996,"end":10039},"introduced_by":4}],"inode":{"change":4,"pos":5686}},"ins_contents":[{"Add":{"text":" , MonadReader r m, HasPaymentsConfig r","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30164"}}],"del_contents":[{"Del":{"text":" , MonadReader r m, HasBillingConfig r","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:10038"}}]}},{"Replacement":{"inode":{"change":4,"pos":5686},"path":"lib/Aftok/Payments.hs","line":167,"ins":{"up_context":[{"change":4,"pos":5206}],"down_context":[{"change":4,"pos":13890}],"flag":"BLOCK","start":30166,"end":30226,"inode":{"change":4,"pos":5686}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":5206},"to":{"change":4,"start":12525,"end":12573},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":12525},"to":{"change":4,"start":12525,"end":12573},"introduced_by":4}],"inode":{"change":4,"pos":5686}},"ins_contents":[{"Add":{"text":" in maybe ifUnpaid Paid <$> runMaybeT (findPayment reqid)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30225"}}],"del_contents":[{"Del":{"text":" in maybe ifUnpaid Paid <$> findPayment reqid","pos":"SEWTRB6S5PO5MQBLCPVBD7XT2BDYNZUE2RO6Z2XENZRIOCN6OZJAC:12572"}}]}},{"Replacement":{"inode":{"change":4,"pos":5686},"path":"lib/Aftok/Payments.hs","line":171,"ins":{"up_context":[{"change":4,"pos":12639}],"down_context":[{"change":4,"pos":12728}],"flag":"BLOCK","start":30227,"end":30316,"inode":{"change":4,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":12639},"to":{"change":4,"start":4666,"end":4754},"introduced_by":4}],"inode":{"change":4,"pos":5686}},"ins_contents":[{"Add":{"text":"createPaymentDetails :: (MonadRandom m, MonadReader r m, HasPaymentsConfig r, MonadDB m)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30315"}}],"del_contents":[{"Del":{"text":"createPaymentDetails :: (MonadRandom m, MonadReader r m, HasBillingConfig r, MonadDB m)","pos":"JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC:4753"}}]}},{"Replacement":{"inode":{"change":4,"pos":5686},"path":"lib/Aftok/Payments.hs","line":215,"ins":{"up_context":[{"change":4,"pos":6086}],"down_context":[{"change":4,"pos":6287}],"flag":"BLOCK","start":30317,"end":30520,"inode":{"change":4,"pos":5686}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6086},"to":{"change":4,"start":15514,"end":15733},"introduced_by":4}],"inode":{"change":4,"pos":5686}},"ins_contents":[{"Add":{"text":"createOutputs _ (TL.CreditToUser uid) amt = (fmap maybeToList) . runMaybeT $ do","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30396"}},{"Add":{"text":" user <- findUser uid","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30419"}},{"Add":{"text":" addr <- MaybeT . pure $ user ^. userAddress","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30465"}},{"Add":{"text":" pure $ BT.Output amt (PayPKHash (addr ^. _BtcAddr))","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30519"}}],"del_contents":[{"Del":{"text":"createOutputs _ (TL.CreditToUser uid) amt = do","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:15560"}},{"Del":{"text":" addrMay <- (>>= view userAddress) <$> findUser uid","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:15613"}},{"Del":{"text":" let createOutput addr = BT.Output amt (PayPKHash (addr ^. _BtcAddr))","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:15684"}},{"Del":{"text":" pure . maybeToList $ createOutput <$> addrMay","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:15732"}}]}},{"Replacement":{"inode":{"change":4,"pos":846},"path":"lib/Aftok/TimeLog.hs","line":38,"ins":{"up_context":[{"change":4,"pos":1225}],"down_context":[{"change":4,"pos":1237}],"flag":"BLOCK","start":30522,"end":30632,"inode":{"change":4,"pos":846}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1225},"to":{"change":4,"start":2070,"end":2178},"introduced_by":4}],"inode":{"change":4,"pos":846}},"ins_contents":[{"Add":{"text":"data LogEvent = StartWork { _eventTime :: !C.UTCTime }","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30576"}},{"Add":{"text":" | StopWork { _eventTime :: !C.UTCTime }","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30631"}}],"del_contents":[{"Del":{"text":"data LogEvent = StartWork { _eventTime :: C.UTCTime }","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:2123"}},{"Del":{"text":" | StopWork { _eventTime :: C.UTCTime }","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:2177"}}]}},{"Replacement":{"inode":{"change":4,"pos":846},"path":"lib/Aftok/TimeLog.hs","line":60,"ins":{"up_context":[{"change":4,"pos":4662}],"down_context":[{"change":4,"pos":4691}],"flag":"BLOCK","start":30633,"end":30662,"inode":{"change":4,"pos":846}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4662},"to":{"change":4,"start":1546,"end":1574},"introduced_by":4}],"inode":{"change":4,"pos":846}},"ins_contents":[{"Add":{"text":" = CreditToAddress !BtcAddr","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30661"}}],"del_contents":[{"Del":{"text":" = CreditToAddress BtcAddr","pos":"NAS4BFL43SIUAAC663R6VFBHQ2DKI45K6Y6ZKVQI7S5547HBAN7QC:1573"}}]}},{"Replacement":{"inode":{"change":4,"pos":846},"path":"lib/Aftok/TimeLog.hs","line":62,"ins":{"up_context":[{"change":4,"pos":4762}],"down_context":[{"change":4,"pos":1575}],"flag":"BLOCK","start":30663,"end":30688,"inode":{"change":4,"pos":846}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4762},"to":{"change":4,"start":4762,"end":4786},"introduced_by":4}],"inode":{"change":4,"pos":846}},"ins_contents":[{"Add":{"text":" | CreditToUser !UserId","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30687"}}],"del_contents":[{"Del":{"text":" | CreditToUser UserId","pos":"POX3UAMTGCNS3SU5I6IKDNCCSHEAUSFBZ3WCMQ3EXKPNXETOI6BAC:4785"}}]}},{"Replacement":{"inode":{"change":4,"pos":846},"path":"lib/Aftok/TimeLog.hs","line":64,"ins":{"up_context":[{"change":4,"pos":1635}],"down_context":[{"change":4,"pos":4877}],"flag":"BLOCK","start":30689,"end":30720,"inode":{"change":4,"pos":846}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":1635},"to":{"change":4,"start":4847,"end":4877},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4847},"to":{"change":4,"start":4847,"end":4877},"introduced_by":4}],"inode":{"change":4,"pos":846}},"ins_contents":[{"Add":{"text":" | CreditToProject !ProjectId","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30719"}}],"del_contents":[{"Del":{"text":" | CreditToProject ProjectId","pos":"POX3UAMTGCNS3SU5I6IKDNCCSHEAUSFBZ3WCMQ3EXKPNXETOI6BAC:4876"}}]}},{"Replacement":{"inode":{"change":4,"pos":846},"path":"lib/Aftok/TimeLog.hs","line":74,"ins":{"up_context":[{"change":4,"pos":4721}],"down_context":[{"change":4,"pos":613}],"flag":"BLOCK","start":30721,"end":30812,"inode":{"change":4,"pos":846}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4721},"to":{"change":4,"start":4927,"end":4954},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":4954},"to":{"change":4,"start":4747,"end":4774},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4747},"to":{"change":4,"start":4747,"end":4774},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":4774},"to":{"change":4,"start":1784,"end":1816},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1784},"to":{"change":4,"start":1784,"end":1816},"introduced_by":4}],"inode":{"change":4,"pos":846}},"ins_contents":[{"Add":{"text":" { _creditTo :: !CreditTo","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30748"}},{"Add":{"text":" , _event :: !LogEvent","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30776"}},{"Add":{"text":" , _eventMeta :: !(Maybe A.Value)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30811"}}],"del_contents":[{"Del":{"text":" { _creditTo :: CreditTo","pos":"POX3UAMTGCNS3SU5I6IKDNCCSHEAUSFBZ3WCMQ3EXKPNXETOI6BAC:4953"}},{"Del":{"text":" , _event :: LogEvent","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:4773"}},{"Del":{"text":" , _eventMeta :: Maybe A.Value","pos":"KNSI575VAW6HRCZYXOEPQ4DTSML4EORML5MV4DJBRKE7TXCPS4EAC:1815"}}]}},{"Replacement":{"inode":{"change":4,"pos":846},"path":"lib/Aftok/TimeLog.hs","line":91,"ins":{"up_context":[{"change":4,"pos":5813}],"down_context":[{"change":4,"pos":6877}],"flag":"BLOCK","start":30813,"end":30977,"inode":{"change":4,"pos":846}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5813},"to":{"change":4,"start":6721,"end":6772},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6772},"to":{"change":4,"start":5005,"end":5059},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":5059},"to":{"change":4,"start":6824,"end":6877},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6824},"to":{"change":4,"start":6824,"end":6877},"introduced_by":4}],"inode":{"change":4,"pos":846}},"ins_contents":[{"Add":{"text":"data EventAmendment = TimeChange !ModTime !C.UTCTime","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30865"}},{"Add":{"text":" | CreditToChange !ModTime !CreditTo","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30921"}},{"Add":{"text":" | MetadataChange !ModTime !A.Value","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30976"}}],"del_contents":[{"Del":{"text":"data EventAmendment = TimeChange ModTime C.UTCTime","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:6771"}},{"Del":{"text":" | CreditToChange ModTime CreditTo","pos":"POX3UAMTGCNS3SU5I6IKDNCCSHEAUSFBZ3WCMQ3EXKPNXETOI6BAC:5058"}},{"Del":{"text":" | MetadataChange ModTime A.Value","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:6876"}}]}},{"Edit":{"inode":{"change":4,"pos":10061},"path":"lib/Aftok/Util.hs","line":7,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":5594}],"down_context":[{"change":4,"pos":5594}],"flag":"BLOCK","start":30979,"end":31025,"inode":{"change":4,"pos":10061}}},"contents":[{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:30979"}},{"Add":{"text":"import Control.Error.Util (maybeT)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31024"}}]}},{"Edit":{"inode":{"change":4,"pos":10061},"path":"lib/Aftok/Util.hs","line":10,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":5637}],"down_context":[{"change":4,"pos":5637}],"flag":"BLOCK","start":31026,"end":31079,"inode":{"change":4,"pos":10061}}},"contents":[{"Add":{"text":"import Control.Monad.Trans.Maybe (MaybeT)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31077"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31078"}}]}},{"Edit":{"inode":{"change":4,"pos":10061},"path":"lib/Aftok/Util.hs","line":32,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":7007}],"down_context":[],"flag":"BLOCK","start":31080,"end":31166,"inode":{"change":4,"pos":10061}}},"contents":[{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31080"}},{"Add":{"text":"fromMaybeT :: (Monad m) => m a -> MaybeT m a -> m a","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31132"}},{"Add":{"text":"fromMaybeT a m = maybeT a pure m","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31165"}}]}},{"Replacement":{"inode":{"change":4,"pos":2457},"path":"lib/Aftok.hs","line":44,"ins":{"up_context":[{"change":4,"pos":2885}],"down_context":[{"change":4,"pos":2962}],"flag":"BLOCK","start":31168,"end":31262,"inode":{"change":4,"pos":2457}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2885},"to":{"change":4,"start":6188,"end":6217},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6217},"to":{"change":4,"start":7359,"end":7393},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":7393},"to":{"change":4,"start":6218,"end":6244},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2939},"to":{"change":4,"start":6218,"end":6244},"introduced_by":4}],"inode":{"change":4,"pos":2457}},"ins_contents":[{"Add":{"text":" { _username :: !UserName","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31197"}},{"Add":{"text":" , _userAddress :: !(Maybe BtcAddr)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31234"}},{"Add":{"text":" , _userEmail :: !Email","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31261"}}],"del_contents":[{"Del":{"text":" { _username :: UserName","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:6216"}},{"Del":{"text":" , _userAddress :: Maybe BtcAddr","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:7392"}},{"Del":{"text":" , _userEmail :: Email","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:6243"}}]}},{"Replacement":{"inode":{"change":4,"pos":2345},"path":"migrations/2016-10-14_02-49-36_event-amendments.txt","line":42,"ins":{"up_context":[{"change":4,"pos":3899}],"down_context":[{"change":4,"pos":3971}],"flag":"BLOCK","start":31265,"end":31336,"inode":{"change":4,"pos":2345}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":3899},"to":{"change":4,"start":3899,"end":3971},"introduced_by":4}],"inode":{"change":4,"pos":2345}},"ins_contents":[{"Add":{"text":" alter table work_events rename column credit_to_address to btc_addr;","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31335"}}],"del_contents":[{"Del":{"text":" alter table work_events rename column credit_to_btc_addr to btc_addr;","pos":"3QVT6MA6I2CILQH3LUZABS4YQ7MN6CNRYTDRVS376OOHTPLYTFJAC:3970"}}]}},{"FileAdd":{"meta":{"basename":"2017-06-08_04-37-31_event-metadata-ids.txt","metadata":0},"context":[{"change":86,"pos":1}],"contents":[{"Add":{"text":"Description: Add missing identifiers to event metadata tables","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31400"}},{"Add":{"text":"Created: 2017-06-08 04:38:05.341636 UTC","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31440"}},{"Add":{"text":"Depends: 2016-10-14_02-49-36_event-amendments","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31486"}},{"Add":{"text":"Apply: |","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31495"}},{"Add":{"text":" alter table event_metadata_amendments ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31536"}},{"Add":{"text":" add column id uuid primary key default uuid_generate_v4();","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31597"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31598"}},{"Add":{"text":" alter table event_credit_to_amendments ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31640"}},{"Add":{"text":" add column id uuid primary key default uuid_generate_v4();","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31701"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31702"}},{"Add":{"text":" alter table event_time_amendments","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31738"}},{"Add":{"text":" add column id uuid primary key default uuid_generate_v4();","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31799"}}]}},{"FileAdd":{"meta":{"basename":"2017-09-24_22-06-01_billing-templates.txt","metadata":0},"context":[{"change":86,"pos":1}],"contents":[{"Add":{"text":"Description: (Describe migration here.)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31909"}},{"Add":{"text":"Created: 2017-09-24 22:06:53.509947 UTC","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31949"}},{"Add":{"text":"Depends: 2016-12-31_03-45-17_create-payments","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:31994"}},{"Add":{"text":"Apply: |","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:32003"}},{"Add":{"text":" alter table billables add column payment_request_email_template text null; ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:32081"}},{"Add":{"text":" alter table billables add column payment_request_memo_template text null; ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:32158"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:32159"}},{"Add":{"text":"Revert: |","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:32169"}},{"Add":{"text":" alter table billables drop column payment_request_email_template;","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:32237"}},{"Add":{"text":" alter table billables drop column payment_request_memo_template;","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:32304"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:32305"}}]}},{"Replacement":{"inode":{"change":4,"pos":4500},"path":"server/Aftok/QConfig.hs","line":4,"ins":{"up_context":[{"change":4,"pos":4529}],"down_context":[{"change":4,"pos":4551}],"flag":"BLOCK","start":32376,"end":32425,"inode":{"change":4,"pos":4500}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4529},"to":{"change":4,"start":6509,"end":6540},"introduced_by":4}],"inode":{"change":4,"pos":4500}},"ins_contents":[{"Add":{"text":"import ClassyPrelude hiding (FilePath)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:32424"}}],"del_contents":[{"Del":{"text":"import ClassyPrelude","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:6539"}}]}},{"Replacement":{"inode":{"change":4,"pos":4500},"path":"server/Aftok/QConfig.hs","line":6,"ins":{"up_context":[{"change":4,"pos":4552}],"down_context":[{"change":4,"pos":6593}],"flag":"BLOCK","start":32426,"end":32479,"inode":{"change":4,"pos":4500}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4552},"to":{"change":4,"start":6541,"end":6593},"introduced_by":4}],"inode":{"change":4,"pos":4500}},"ins_contents":[{"Add":{"text":"import qualified Data.ByteString.Char8 as C8","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:32478"}}],"del_contents":[{"Del":{"text":"import qualified Data.ByteString.Char8 as C","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:6592"}}]}},{"Replacement":{"inode":{"change":4,"pos":4500},"path":"server/Aftok/QConfig.hs","line":9,"ins":{"up_context":[{"change":4,"pos":6698}],"down_context":[{"change":4,"pos":4736}],"flag":"BLOCK","start":32480,"end":32612,"inode":{"change":4,"pos":4500}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6698},"to":{"change":4,"start":33,"end":60},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":60},"to":{"change":4,"start":5065,"end":5144},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":5144},"to":{"change":4,"start":124,"end":177},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":124},"to":{"change":4,"start":124,"end":177},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":177},"to":{"change":4,"start":6698,"end":6900},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":16760},"to":{"change":4,"start":6698,"end":6900},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6698},"to":{"change":4,"start":6698,"end":6900},"introduced_by":4}],"inode":{"change":4,"pos":4500}},"ins_contents":[{"Add":{"text":"import System.Environment (getEnvironment)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:32543"}},{"Add":{"text":"import Filesystem.Path.CurrentOS (FilePath, fromText, encodeString)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:32611"}}],"del_contents":[{"Del":{"text":"import Data.X509","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:59"}},{"Del":{"text":"import Data.X509.File (readKeyFile, readSignedObject)","pos":"JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC:5143"}},{"Del":{"text":"import qualified Network.Bippy.Types as BT","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:176"}},{"Del":{"text":"import qualified Network.Mail.SMTP as SMTP","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:6752"}},{"Del":{"text":"import qualified Network.Socket as NS","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:6805"}},{"Del":{"text":"import System.Environment","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:6841"}},{"Del":{"text":"import System.IO (FilePath)","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:6899"}}]}},{"Replacement":{"inode":{"change":4,"pos":4500},"path":"server/Aftok/QConfig.hs","line":16,"ins":{"up_context":[{"change":4,"pos":4839}],"down_context":[{"change":4,"pos":216}],"flag":"BLOCK","start":32613,"end":32643,"inode":{"change":4,"pos":4500}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4839},"to":{"change":4,"start":5145,"end":5198},"introduced_by":4}],"inode":{"change":4,"pos":4500}},"ins_contents":[{"Add":{"text":"import Aftok.Config","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:32642"}}],"del_contents":[{"Del":{"text":"import qualified Aftok.Payments as AP","pos":"JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC:5197"}}]}},{"Replacement":{"inode":{"change":4,"pos":4500},"path":"server/Aftok/QConfig.hs","line":21,"ins":{"up_context":[{"change":4,"pos":7086}],"down_context":[{"change":4,"pos":4944}],"flag":"BLOCK","start":32644,"end":32674,"inode":{"change":4,"pos":4500}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7086},"to":{"change":4,"start":7086,"end":7126},"introduced_by":4}],"inode":{"change":4,"pos":4500}},"ins_contents":[{"Add":{"text":" , authSiteKey :: FilePath","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:32673"}}],"del_contents":[{"Del":{"text":" , authSiteKey :: System.IO.FilePath","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:7125"}}]}},{"Replacement":{"inode":{"change":4,"pos":4500},"path":"server/Aftok/QConfig.hs","line":26,"ins":{"up_context":[{"change":4,"pos":253}],"down_context":[{"change":4,"pos":534}],"flag":"BLOCK","start":32675,"end":32737,"inode":{"change":4,"pos":4500}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":253},"to":{"change":4,"start":7190,"end":7230},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":16792},"to":{"change":4,"start":7190,"end":7230},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7190},"to":{"change":4,"start":7190,"end":7230},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7230},"to":{"change":4,"start":2054,"end":2096},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":2096},"to":{"change":4,"start":7230,"end":7234},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7230},"to":{"change":4,"start":7230,"end":7234},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":7234},"to":{"change":4,"start":377,"end":378},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5084},"to":{"change":4,"start":377,"end":378},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":378},"to":{"change":4,"start":7235,"end":7264},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":7264},"to":{"change":4,"start":408,"end":472},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":408},"to":{"change":4,"start":408,"end":472},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":472},"to":{"change":4,"start":7265,"end":7325},"introduced_by":4}],"inode":{"change":4,"pos":4500}},"ins_contents":[{"Add":{"text":" , templatePath :: FilePath","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:32704"}},{"Add":{"text":" , staticAssetPath :: FilePath","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:32736"}}],"del_contents":[{"Del":{"text":" , templatePath :: System.IO.FilePath","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:7229"}},{"Del":{"text":" , staticAssetPath :: System.IO.FilePath","pos":"HO2PFRABW6BBTE4MUKUTEGXCMJS46WGVBCNWOHO4OL52DVAB4YDAC:2095"}},{"Del":{"text":" }","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:7233"}},{"Del":{"text":"","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:377"}},{"Del":{"text":"data SmtpConfig = SmtpConfig","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:7263"}},{"Del":{"text":" { smtpHost :: NS.HostName","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:435"}},{"Del":{"text":" , smtpPort :: Maybe NS.PortNumber","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:471"}},{"Del":{"text":" , smtpUser :: SMTP.UserName","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:7294"}},{"Del":{"text":" , smtpPass :: SMTP.Password","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:7324"}}]}},{"Replacement":{"inode":{"change":4,"pos":4500},"path":"server/Aftok/QConfig.hs","line":30,"ins":{"up_context":[{"change":4,"pos":5085}],"down_context":[{"change":4,"pos":7326}],"flag":"BLOCK","start":32738,"end":32776,"inode":{"change":4,"pos":4500}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5085},"to":{"change":4,"start":254,"end":289},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":289},"to":{"change":4,"start":1020,"end":1196},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":1196},"to":{"change":4,"start":392,"end":396},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":5274},"to":{"change":4,"start":392,"end":396},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":392},"to":{"change":4,"start":392,"end":396},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":396},"to":{"change":4,"start":16851,"end":16852},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":16851},"to":{"change":4,"start":16851,"end":16852},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":16852},"to":{"change":4,"start":5085,"end":5133},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5085},"to":{"change":4,"start":5085,"end":5133},"introduced_by":4}],"inode":{"change":4,"pos":4500}},"ins_contents":[{"Add":{"text":"loadQConfig :: FilePath -> IO QConfig","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:32775"}}],"del_contents":[{"Del":{"text":"data BillingConfig = BillingConfig","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:288"}},{"Del":{"text":" { network :: BT.Network","pos":"WZFQDWW4XK6M4A4PQ7WQJUTZUPRGQR7V7ZVZY5ZTL5AMGIFMHB2QC:1060"}},{"Del":{"text":" , signingKeyFile :: System.IO.FilePath","pos":"WZFQDWW4XK6M4A4PQ7WQJUTZUPRGQR7V7ZVZY5ZTL5AMGIFMHB2QC:1109"}},{"Del":{"text":" , certsFile :: System.IO.FilePath","pos":"WZFQDWW4XK6M4A4PQ7WQJUTZUPRGQR7V7ZVZY5ZTL5AMGIFMHB2QC:1158"}},{"Del":{"text":" , exchangeRateServiceURI :: String","pos":"WZFQDWW4XK6M4A4PQ7WQJUTZUPRGQR7V7ZVZY5ZTL5AMGIFMHB2QC:1195"}},{"Del":{"text":" }","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:395"}},{"Del":{"text":"","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:16851"}},{"Del":{"text":"loadQConfig :: System.IO.FilePath -> IO QConfig","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5132"}}]}},{"Replacement":{"inode":{"change":4,"pos":4500},"path":"server/Aftok/QConfig.hs","line":33,"ins":{"up_context":[{"change":4,"pos":5183}],"down_context":[{"change":4,"pos":5294}],"flag":"BLOCK","start":32777,"end":32903,"inode":{"change":4,"pos":4500}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5183},"to":{"change":4,"start":7352,"end":7389},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":7389},"to":{"change":4,"start":5221,"end":5294},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5221},"to":{"change":4,"start":5221,"end":5294},"introduced_by":4}],"inode":{"change":4,"pos":4500}},"ins_contents":[{"Add":{"text":" cfg <- C.load [C.Required $ encodeString cfgFile]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:32828"}},{"Add":{"text":" let dbEnvCfg = pgsDefaultConfig . C8.pack <$> lookup \"DATABASE_URL\" env","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:32902"}}],"del_contents":[{"Del":{"text":" cfg <- C.load [C.Required cfgFile]","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:7388"}},{"Del":{"text":" let dbEnvCfg = pgsDefaultConfig . C.pack <$> lookup \"DATABASE_URL\" env","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5293"}}]}},{"Replacement":{"inode":{"change":4,"pos":4500},"path":"server/Aftok/QConfig.hs","line":41,"ins":{"up_context":[{"change":4,"pos":7458}],"down_context":[{"change":4,"pos":7459}],"flag":"BLOCK","start":32904,"end":32957,"inode":{"change":4,"pos":4500}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":7458},"to":{"change":4,"start":5506,"end":5544},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5506},"to":{"change":4,"start":5506,"end":5544},"introduced_by":4}],"inode":{"change":4,"pos":4500}},"ins_contents":[{"Add":{"text":" <*> (fromText <$> C.require cfg \"siteKey\")","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:32956"}}],"del_contents":[{"Del":{"text":" <*> C.require cfg \"siteKey\"","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5543"}}]}},{"Replacement":{"inode":{"change":4,"pos":4500},"path":"server/Aftok/QConfig.hs","line":46,"ins":{"up_context":[{"change":2,"pos":266}],"down_context":[{"change":4,"pos":7968}],"flag":"BLOCK","start":32958,"end":33148,"inode":{"change":4,"pos":4500}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":2,"pos":266},"to":{"change":4,"start":3,"end":83},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":4,"pos":433},"to":{"change":4,"start":3,"end":83},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":572},"to":{"change":4,"start":3,"end":83},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":16885},"to":{"change":4,"start":3,"end":83},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7925},"to":{"change":4,"start":3,"end":83},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":83},"to":{"change":4,"start":2097,"end":2177},"introduced_by":4}],"inode":{"change":4,"pos":4500}},"ins_contents":[{"Add":{"text":" <*> (fromText <$> C.lookupDefault \"/opt/aftok/server/templates/\" cfg \"templatePath\")","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33052"}},{"Add":{"text":" <*> (fromText <$> C.lookupDefault \"/opt/aftok/server/static/\" cfg \"staticAssetPath\")","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33147"}}],"del_contents":[{"Del":{"text":" <*> C.lookupDefault \"/opt/aftok/server/templates/\" cfg \"templatePath\"","pos":"LCBJULKEU4I5FRUGYNRQSHXYLY5X3LRTSNWDCTZLS7YE4BBBDE6AC:82"}},{"Del":{"text":" <*> C.lookupDefault \"/opt/aftok/server/static/\" cfg \"staticAssetPath\"","pos":"HO2PFRABW6BBTE4MUKUTEGXCMJS46WGVBCNWOHO4OL52DVAB4YDAC:2176"}}]}},{"Edit":{"inode":{"change":4,"pos":4500},"path":"server/Aftok/QConfig.hs","line":49,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":7969},"to":{"change":4,"start":573,"end":618},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":618},"to":{"change":4,"start":7503,"end":7524},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":7524},"to":{"change":4,"start":640,"end":836},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":640},"to":{"change":4,"start":640,"end":836},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":836},"to":{"change":4,"start":5811,"end":5812},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":8170},"to":{"change":4,"start":5811,"end":5812},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5811},"to":{"change":4,"start":5811,"end":5812},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5812},"to":{"change":4,"start":434,"end":485},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":485},"to":{"change":4,"start":5275,"end":5299},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":5299},"to":{"change":4,"start":510,"end":670},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":510},"to":{"change":4,"start":510,"end":670},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":670},"to":{"change":4,"start":1197,"end":1256},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":1256},"to":{"change":4,"start":670,"end":756},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":670},"to":{"change":4,"start":670,"end":756},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":756},"to":{"change":4,"start":5300,"end":5342},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":813},"to":{"change":4,"start":17124,"end":17125},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":5342},"to":{"change":4,"start":17124,"end":17125},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":17124},"to":{"change":4,"start":17124,"end":17125},"introduced_by":4}],"inode":{"change":4,"pos":4500}}},"contents":[{"Del":{"text":"readSmtpConfig :: CT.Config -> IO SmtpConfig","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:617"}},{"Del":{"text":"readSmtpConfig cfg =","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:7523"}},{"Del":{"text":" SmtpConfig <$> C.require cfg \"smtpHost\"","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:681"}},{"Del":{"text":" <*> ((fmap . fmap) fromInteger $ C.lookup cfg \"smtpPort\")","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:752"}},{"Del":{"text":" <*> C.require cfg \"smtpUser\"","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:794"}},{"Del":{"text":" <*> C.require cfg \"smtpKey\"","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:835"}},{"Del":{"text":"","pos":"V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC:5811"}},{"Del":{"text":"readBillingConfig :: CT.Config -> IO BillingConfig","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:484"}},{"Del":{"text":"readBillingConfig cfg =","pos":"JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC:5298"}},{"Del":{"text":" BillingConfig <$> (parseNetwork <$> C.require cfg \"network\")","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:572"}},{"Del":{"text":" <*> C.require cfg \"signingKeyFile\"","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:623"}},{"Del":{"text":" <*> C.require cfg \"certsFile\"","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:669"}},{"Del":{"text":" <*> C.require cfg \"exchangeRateServiceURI\"","pos":"WZFQDWW4XK6M4A4PQ7WQJUTZUPRGQR7V7ZVZY5ZTL5AMGIFMHB2QC:1255"}},{"Del":{"text":" where parseNetwork :: String -> BT.Network","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:714"}},{"Del":{"text":" parseNetwork \"main\" = BT.MainNet","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:755"}},{"Del":{"text":" parseNetwork _ = BT.TestNet","pos":"JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC:5340"}},{"Del":{"text":"","pos":"JFOEOFGA4CQR2LW43IVQGDZSPVJAD4KDN2DZMZXGM2QDIUD7AVCAC:5341"}},{"Del":{"text":"","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:17124"}}]}},{"Edit":{"inode":{"change":4,"pos":4500},"path":"server/Aftok/QConfig.hs","line":59,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":6294},"to":{"change":4,"start":814,"end":1352},"introduced_by":4}],"inode":{"change":4,"pos":4500}}},"contents":[{"Del":{"text":"toBillingConfig :: BillingConfig -> IO AP.BillingConfig","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:869"}},{"Del":{"text":"toBillingConfig c = do","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:892"}},{"Del":{"text":" privKeys <- readKeyFile (signingKeyFile c)","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:939"}},{"Del":{"text":" pkiEntries <- readSignedObject (certsFile c)","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:986"}},{"Del":{"text":" privKey <- case headMay privKeys of","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:1024"}},{"Del":{"text":" Just (PrivKeyRSA k) -> pure k","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:1058"}},{"Del":{"text":" Just (PrivKeyDSA _) -> fail \"DSA keys not supported for payment request signing.\"","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:1144"}},{"Del":{"text":" Nothing -> fail $ \"No keys found in private key file \" <> signingKeyFile c","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:1235"}},{"Del":{"text":" let pkiData = BT.X509SHA256 . CertificateChain $ pkiEntries","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:1297"}},{"Del":{"text":" pure $ AP.BillingConfig (network c) privKey pkiData","pos":"MJ6R42RCK2ASXAJ6QXDPMAW56RBOJ4F4HI2LFIV3KXFIKWYMQK3QC:1351"}}]}},{"Edit":{"inode":{"change":4,"pos":2441},"path":"server/Aftok/Snaplet/Auctions.hs","line":10,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":2573}],"down_context":[{"change":4,"pos":2573}],"flag":"BLOCK","start":33151,"end":33207,"inode":{"change":4,"pos":2441}}},"contents":[{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33151"}},{"Add":{"text":"import Control.Monad.Trans.Maybe (mapMaybeT)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33206"}}]}},{"Edit":{"inode":{"change":4,"pos":2441},"path":"server/Aftok/Snaplet/Auctions.hs","line":25,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":2894}],"down_context":[{"change":4,"pos":2894}],"flag":"BLOCK","start":33208,"end":33249,"inode":{"change":4,"pos":2441}}},"contents":[{"Add":{"text":"import Aftok.Util (fromMaybeT)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33248"}}]}},{"Replacement":{"inode":{"change":4,"pos":2441},"path":"server/Aftok/Snaplet/Auctions.hs","line":58,"ins":{"up_context":[{"change":4,"pos":1105}],"down_context":[{"change":4,"pos":1245}],"flag":"BLOCK","start":33250,"end":33408,"inode":{"change":4,"pos":2441}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1105},"to":{"change":4,"start":1164,"end":1244},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":1244},"to":{"change":4,"start":1150,"end":1231},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1150},"to":{"change":4,"start":1150,"end":1231},"introduced_by":4}],"inode":{"change":4,"pos":2441}},"ins_contents":[{"Add":{"text":" fromMaybeT","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33262"}},{"Add":{"text":" (snapError 404 $ \"Auction not found for id \" <> tshow aid)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33325"}},{"Add":{"text":" (mapMaybeT snapEval $ findAuction aid uid) -- this will verify auction access","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33407"}}],"del_contents":[{"Del":{"text":" maybeAuc <- snapEval $ findAuction aid uid -- this will verify auction access","pos":"ASF3UPJLCX7KIUCNJD5KAXSPDXCUEJHLL4HBRTRUBPCW73IXOCWQC:1243"}},{"Del":{"text":" maybe (snapError 404 $ \"Auction not found for id \" <> tshow aid) pure maybeAuc","pos":"Z3MK2PJ5U222DXRS22WCDHVPZ7HVAR3HOCUNXIGX6VMEPBQDF6PQC:1230"}}]}},{"Edit":{"inode":{"change":4,"pos":203},"path":"server/Aftok/Snaplet/Auth.hs","line":6,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":7666}],"down_context":[{"change":4,"pos":5724}],"flag":"BLOCK","start":33410,"end":33510,"inode":{"change":4,"pos":203}}},"contents":[{"Add":{"text":"import Control.Error.Util (maybeT)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33454"}},{"Add":{"text":"import Control.Monad.Trans.Maybe (mapMaybeT)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33509"}}]}},{"Replacement":{"inode":{"change":4,"pos":203},"path":"server/Aftok/Snaplet/Auth.hs","line":34,"ins":{"up_context":[{"change":4,"pos":1742}],"down_context":[{"change":4,"pos":2161}],"flag":"BLOCK","start":33511,"end":33728,"inode":{"change":4,"pos":203}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1780},"to":{"change":4,"start":1400,"end":1458},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1458},"to":{"change":4,"start":11752,"end":11803},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":1524},"to":{"change":4,"start":2024,"end":2042},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":11803},"to":{"change":4,"start":2024,"end":2042},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2024},"to":{"change":4,"start":2024,"end":2042},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2042},"to":{"change":4,"start":8265,"end":8350},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":8350},"to":{"change":4,"start":8071,"end":8100},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2128},"to":{"change":4,"start":8071,"end":8100},"introduced_by":4}],"inode":{"change":4,"pos":203}},"ins_contents":[{"Add":{"text":" currentUser <- UserName . AU.userLogin <$> requireUser","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33567"}},{"Add":{"text":" maybeT","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33576"}},{"Add":{"text":" (snapError 403 \"Unable to retrieve user record for authenticated user\")","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33652"}},{"Add":{"text":" (pure . (^. _1))","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33673"}},{"Add":{"text":" (mapMaybeT snapEval $ findUserByName currentUser)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33727"}}],"del_contents":[{"Del":{"text":" currentUser <- UserName . AU.userLogin <$> requireLogin","pos":"2G3GNDDUOVPF45PELJ65ZB2IXEHJJXJILFRVHZXGPXUL4BVNZJFQC:1457"}},{"Del":{"text":" qdbUser <- snapEval $ findUserByName currentUser","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11802"}},{"Del":{"text":" case qdbUser of","pos":"I2KHGVD44KT4MQJXGCTVSQKMBO6TVCY72F26TLXGWRL6PHGF6RNQC:2041"}},{"Del":{"text":" Nothing -> snapError 403 \"Unable to retrieve user record for authenticated user\"","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:8349"}},{"Del":{"text":" Just u -> pure (u ^. _1)","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:8099"}}]}},{"FileAdd":{"meta":{"basename":"Billing.hs","metadata":0},"context":[{"change":4,"pos":2082}],"contents":[{"Add":{"text":"{-# LANGUAGE TemplateHaskell #-}","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33763"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33764"}},{"Add":{"text":"module Aftok.Snaplet.Billing","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33793"}},{"Add":{"text":" ( billableCreateHandler","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33819"}},{"Add":{"text":" , billableListHandler","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33843"}},{"Add":{"text":" , subscribeHandler","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33864"}},{"Add":{"text":" ) where","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33874"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33875"}},{"Add":{"text":"import ClassyPrelude","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33906"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33907"}},{"Add":{"text":"import Control.Lens ((^.))","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33944"}},{"Add":{"text":"import Data.Aeson","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:33972"}},{"Add":{"text":"import Data.Aeson.Types","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34006"}},{"Add":{"text":"import Data.Thyme.Clock as C","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34049"}},{"Add":{"text":"import Data.Thyme.Time.Core (toThyme)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34097"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34098"}},{"Add":{"text":"import Snap.Snaplet as S","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34141"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34142"}},{"Add":{"text":"import Aftok (UserId)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34189"}},{"Add":{"text":"import Aftok.Billables ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34228"}},{"Add":{"text":"import Aftok.Json","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34256"}},{"Add":{"text":"import Aftok.Types","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34285"}},{"Add":{"text":"import Aftok.Project","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34316"}},{"Add":{"text":"import Aftok.Database (createBillable, withProjectAuth, liftdb, DBOp(..))","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34406"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34407"}},{"Add":{"text":"import Aftok.Snaplet","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34438"}},{"Add":{"text":"import Aftok.Snaplet.Auth","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34474"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34475"}},{"Add":{"text":"parseCreateBillable :: UserId -> ProjectId -> Value -> Parser Billable","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34546"}},{"Add":{"text":"parseCreateBillable uid pid = unversion \"Billable\" p where","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34605"}},{"Add":{"text":" p (Version 1 0) o = ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34628"}},{"Add":{"text":" Billable <$> pure pid","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34654"}},{"Add":{"text":" <*> pure uid","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34680"}},{"Add":{"text":" <*> o .: \"name\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34709"}},{"Add":{"text":" <*> o .: \"description\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34745"}},{"Add":{"text":" <*> (parseRecurrence' =<< o .: \"recurrence\")","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34803"}},{"Add":{"text":" <*> (Satoshi <$> o .: \"amount\")","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34848"}},{"Add":{"text":" <*> o .: \"gracePeriod\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34884"}},{"Add":{"text":" <*> (fmap toThyme <$> o .: \"requestExpiryPeriod\")","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:34947"}},{"Add":{"text":" <*> o .:? \"paymentRequestEmailTemplate\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35000"}},{"Add":{"text":" <*> o .:? \"paymentRequestMemoTemplate\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35052"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35053"}},{"Add":{"text":" p v o = badVersion \"Billable\" v o","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35089"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35090"}},{"Add":{"text":"billableCreateHandler :: S.Handler App App BillableId","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35144"}},{"Add":{"text":"billableCreateHandler = do","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35171"}},{"Add":{"text":" uid <- requireUserId","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35194"}},{"Add":{"text":" pid <- requireProjectId","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35220"}},{"Add":{"text":" requestBody <- readRequestJSON 4096","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35258"}},{"Add":{"text":" b <- either (snapError 400 . tshow) pure $ parseEither (parseCreateBillable uid pid) requestBody","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35357"}},{"Add":{"text":" snapEval $ createBillable uid b","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35391"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35392"}},{"Add":{"text":"billableListHandler :: S.Handler App App [(BillableId, Billable)]","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35458"}},{"Add":{"text":"billableListHandler = do","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35483"}},{"Add":{"text":" uid <- requireUserId","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35506"}},{"Add":{"text":" pid <- requireProjectId","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35532"}},{"Add":{"text":" snapEval $ withProjectAuth pid uid (FindBillables pid)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35589"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35590"}},{"Add":{"text":"subscribeHandler :: S.Handler App App SubscriptionId","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35643"}},{"Add":{"text":"subscribeHandler = do","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35665"}},{"Add":{"text":" uid <- requireUserId","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35688"}},{"Add":{"text":" bid <- requireId \"billableId\" BillableId","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35731"}},{"Add":{"text":" t <- liftIO C.getCurrentTime","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35762"}},{"Add":{"text":" snapEval . liftdb $ CreateSubscription uid bid (t ^. C._utctDay)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35829"}},{"Add":{"text":" ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35832"}}]}},{"Replacement":{"inode":{"change":4,"pos":9762},"path":"server/Aftok/Snaplet/Payments.hs","line":9,"ins":{"up_context":[{"change":4,"pos":9800}],"down_context":[{"change":4,"pos":5782}],"flag":"BLOCK","start":35870,"end":35902,"inode":{"change":4,"pos":9762}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":9800},"to":{"change":4,"start":9800,"end":9831},"introduced_by":4}],"inode":{"change":4,"pos":9762}},"ins_contents":[{"Add":{"text":"import ClassyPrelude ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35901"}}],"del_contents":[{"Del":{"text":"import ClassyPrelude","pos":"DFOBMSAODB3NKW37B272ZXA2ML5HMIH3N3C4GT2DPEQS7ZFK4SNAC:9830"}}]}},{"Replacement":{"inode":{"change":4,"pos":9762},"path":"server/Aftok/Snaplet/Payments.hs","line":11,"ins":{"up_context":[{"change":4,"pos":5783}],"down_context":[{"change":4,"pos":3559}],"flag":"BLOCK","start":35903,"end":36053,"inode":{"change":4,"pos":9762}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5783},"to":{"change":4,"start":1295,"end":1383},"introduced_by":4}],"inode":{"change":4,"pos":9762}},"ins_contents":[{"Add":{"text":"import Control.Lens (view, _1, _2, _Right, _Left, preview, (&), (.~), (^.))","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:35996"}},{"Add":{"text":"import Control.Monad.Trans.Maybe (mapMaybeT)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:36051"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:36052"}}],"del_contents":[{"Del":{"text":"import Control.Lens (view, _1, _2, _Right, _Left, preview, (&), (.~))","pos":"WZFQDWW4XK6M4A4PQ7WQJUTZUPRGQR7V7ZVZY5ZTL5AMGIFMHB2QC:1382"}}]}},{"Edit":{"inode":{"change":4,"pos":9762},"path":"server/Aftok/Snaplet/Payments.hs","line":26,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":5963}],"down_context":[{"change":4,"pos":5963}],"flag":"BLOCK","start":36054,"end":36098,"inode":{"change":4,"pos":9762}}},"contents":[{"Add":{"text":"import Aftok.Config as AC","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:36097"}}]}},{"Replacement":{"inode":{"change":4,"pos":9762},"path":"server/Aftok/Snaplet/Payments.hs","line":29,"ins":{"up_context":[{"change":4,"pos":3883}],"down_context":[{"change":4,"pos":9900}],"flag":"BLOCK","start":36099,"end":36179,"inode":{"change":4,"pos":9762}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":3883},"to":{"change":4,"start":5996,"end":6028},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":5996},"to":{"change":4,"start":5996,"end":6028},"introduced_by":4}],"inode":{"change":4,"pos":9762}},"ins_contents":[{"Add":{"text":"import Aftok.Payments ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:36137"}},{"Add":{"text":"import Aftok.Util (fromMaybeT)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:36178"}}],"del_contents":[{"Del":{"text":"import Aftok.Payments","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:6027"}}]}},{"Edit":{"inode":{"change":4,"pos":9762},"path":"server/Aftok/Snaplet/Payments.hs","line":32,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":9901},"to":{"change":4,"start":1731,"end":1775},"introduced_by":4}],"inode":{"change":4,"pos":9762}}},"contents":[{"Del":{"text":"import Aftok.QConfig as QC","pos":"WZFQDWW4XK6M4A4PQ7WQJUTZUPRGQR7V7ZVZY5ZTL5AMGIFMHB2QC:1774"}}]}},{"Replacement":{"inode":{"change":4,"pos":9762},"path":"server/Aftok/Snaplet/Payments.hs","line":46,"ins":{"up_context":[{"change":4,"pos":3971}],"down_context":[{"change":4,"pos":1850}],"flag":"BLOCK","start":36180,"end":36254,"inode":{"change":4,"pos":9762}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":3971},"to":{"change":4,"start":1776,"end":1850},"introduced_by":4}],"inode":{"change":4,"pos":9762}},"ins_contents":[{"Add":{"text":"paymentResponseHandler :: AC.BillingConfig -> S.Handler App App PaymentId","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:36253"}}],"del_contents":[{"Del":{"text":"paymentResponseHandler :: QC.BillingConfig -> S.Handler App App PaymentId","pos":"WZFQDWW4XK6M4A4PQ7WQJUTZUPRGQR7V7ZVZY5ZTL5AMGIFMHB2QC:1849"}}]}},{"Replacement":{"inode":{"change":4,"pos":9762},"path":"server/Aftok/Snaplet/Payments.hs","line":59,"ins":{"up_context":[{"change":4,"pos":2064}],"down_context":[{"change":4,"pos":2164}],"flag":"BLOCK","start":36255,"end":36358,"inode":{"change":4,"pos":9762}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2064},"to":{"change":4,"start":2064,"end":2164},"introduced_by":4}],"inode":{"change":4,"pos":9762}},"ins_contents":[{"Add":{"text":" exchResp <- liftIO . try $ asValue =<< (withOpenSSL $ getWith opts (cfg ^. exchangeRateServiceURI))","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:36357"}}],"del_contents":[{"Del":{"text":" exchResp <- liftIO . try $ asValue =<< (withOpenSSL $ getWith opts (exchangeRateServiceURI cfg))","pos":"WZFQDWW4XK6M4A4PQ7WQJUTZUPRGQR7V7ZVZY5ZTL5AMGIFMHB2QC:2163"}}]}},{"Replacement":{"inode":{"change":4,"pos":9762},"path":"server/Aftok/Snaplet/Payments.hs","line":70,"ins":{"up_context":[{"change":4,"pos":1786}],"down_context":[{"change":4,"pos":5392}],"flag":"BLOCK","start":36359,"end":36521,"inode":{"change":4,"pos":9762}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1786},"to":{"change":4,"start":1786,"end":1934},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1934},"to":{"change":4,"start":4667,"end":4686},"introduced_by":4}],"inode":{"change":4,"pos":9762}},"ins_contents":[{"Add":{"text":" fromMaybeT","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:36371"}},{"Add":{"text":" (snapError 404 $ \"Outstanding payment request not found for key \" <> (view _PaymentKey pkey))","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:36469"}},{"Add":{"text":" (mapMaybeT snapEval $ findPaymentRequest pkey)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:36520"}}],"del_contents":[{"Del":{"text":" prMay <- snapEval $ findPaymentRequest pkey","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1831"}},{"Del":{"text":" maybe (snapError 404 $ \"Outstanding payment request not found for key \" <> (view _PaymentKey pkey))","pos":"4FDQGIXN3Z4J55DILCSI5EOLIIA7R5CADTGFMW5X7N7MH6JIMBWAC:1933"}},{"Del":{"text":" pure prMay","pos":"BSIUHCGFDFDFGWYMHZB7OVU3Z3IHPEUXRISIOPGZI2RUXZFDS2EQC:4685"}}]}},{"Replacement":{"inode":{"change":4,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":11,"ins":{"up_context":[{"change":4,"pos":2463}],"down_context":[{"change":4,"pos":2485}],"flag":"BLOCK","start":36523,"end":36572,"inode":{"change":4,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2463},"to":{"change":4,"start":2042,"end":2073},"introduced_by":4}],"inode":{"change":4,"pos":2363}},"ins_contents":[{"Add":{"text":"import ClassyPrelude hiding (FilePath)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:36571"}}],"del_contents":[{"Del":{"text":"import ClassyPrelude","pos":"NLZ3JXLOOIL37O3RRQWXHNPNSNEOOLPD6MCB754BEBECQB3KGR2AC:2072"}}]}},{"Edit":{"inode":{"change":4,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":14,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":2104}],"down_context":[{"change":4,"pos":2104}],"flag":"BLOCK","start":36573,"end":36639,"inode":{"change":4,"pos":2363}}},"contents":[{"Add":{"text":"import Control.Monad.Trans.Maybe (mapMaybeT, runMaybeT)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:36638"}}]}},{"Edit":{"inode":{"change":4,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":18,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":2263}],"down_context":[{"change":4,"pos":2263}],"flag":"BLOCK","start":36640,"end":36708,"inode":{"change":4,"pos":2363}}},"contents":[{"Add":{"text":"import Filesystem.Path.CurrentOS (FilePath, encodeString)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:36707"}}]}},{"Edit":{"inode":{"change":4,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":21,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2350},"to":{"change":4,"start":2350,"end":2405},"introduced_by":4}],"inode":{"change":4,"pos":2363}}},"contents":[{"Del":{"text":"import System.IO (FilePath)","pos":"NLZ3JXLOOIL37O3RRQWXHNPNSNEOOLPD6MCB754BEBECQB3KGR2AC:2404"}}]}},{"Edit":{"inode":{"change":4,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":24,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":2466}],"down_context":[{"change":4,"pos":2466}],"flag":"BLOCK","start":36709,"end":36739,"inode":{"change":4,"pos":2363}}},"contents":[{"Add":{"text":"import Aftok.Config","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:36738"}}]}},{"Replacement":{"inode":{"change":4,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":27,"ins":{"up_context":[{"change":4,"pos":3928}],"down_context":[{"change":4,"pos":2529}],"flag":"BLOCK","start":36740,"end":36777,"inode":{"change":4,"pos":2363}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":3928},"to":{"change":4,"start":2498,"end":2529},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2498},"to":{"change":4,"start":2498,"end":2529},"introduced_by":4}],"inode":{"change":4,"pos":2363}},"ins_contents":[{"Add":{"text":"import Aftok.QConfig as QC","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:36776"}}],"del_contents":[{"Del":{"text":"import Aftok.QConfig","pos":"NLZ3JXLOOIL37O3RRQWXHNPNSNEOOLPD6MCB754BEBECQB3KGR2AC:2528"}}]}},{"Edit":{"inode":{"change":4,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":30,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":2596}],"down_context":[{"change":4,"pos":2650}],"flag":"BLOCK","start":36778,"end":36819,"inode":{"change":4,"pos":2363}}},"contents":[{"Add":{"text":"import Aftok.Util (fromMaybeT)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:36818"}}]}},{"Replacement":{"inode":{"change":4,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":58,"ins":{"up_context":[{"change":4,"pos":12379}],"down_context":[{"change":4,"pos":8936}],"flag":"BLOCK","start":36820,"end":36947,"inode":{"change":4,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":12379},"to":{"change":4,"start":12379,"end":12418},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":12418},"to":{"change":4,"start":3610,"end":3685},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":3610},"to":{"change":4,"start":3610,"end":3685},"introduced_by":4}],"inode":{"change":4,"pos":2363}},"ins_contents":[{"Add":{"text":" fromMaybeT","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:36832"}},{"Add":{"text":" (snapError 404 $ \"Project not found for id \" <> tshow pid)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:36895"}},{"Add":{"text":" (mapMaybeT snapEval $ findUserProject uid pid)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:36946"}}],"del_contents":[{"Del":{"text":" mp <- snapEval $ findProject pid uid","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12417"}},{"Del":{"text":" maybe (snapError 404 $ \"Project not found for id \" <> tshow pid) pure mp","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:3684"}}]}},{"Replacement":{"inode":{"change":4,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":69,"ins":{"up_context":[{"change":4,"pos":2697}],"down_context":[{"change":4,"pos":9278}],"flag":"BLOCK","start":36948,"end":37039,"inode":{"change":4,"pos":2363}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":2697},"to":{"change":4,"start":9219,"end":9278},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":9219},"to":{"change":4,"start":9219,"end":9278},"introduced_by":4}],"inode":{"change":4,"pos":2363}},"ins_contents":[{"Add":{"text":" (,,) <$> (runMaybeT $ findUser uid)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:36987"}},{"Add":{"text":" <*> (runMaybeT $ findUserProject uid pid)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:37038"}}],"del_contents":[{"Del":{"text":" (,,) <$> findUser uid","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:9244"}},{"Del":{"text":" <*> findProject pid uid","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:9277"}}]}},{"Replacement":{"inode":{"change":4,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":82,"ins":{"up_context":[{"change":4,"pos":2837}],"down_context":[{"change":4,"pos":2838}],"flag":"BLOCK","start":37040,"end":37173,"inode":{"change":4,"pos":2363}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":2837},"to":{"change":4,"start":1332,"end":1459},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1332},"to":{"change":4,"start":1332,"end":1459},"introduced_by":4}],"inode":{"change":4,"pos":2363}},"ins_contents":[{"Add":{"text":" let SmtpConfig{..} = QC.smtpConfig cfg","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:37080"}},{"Add":{"text":" mailer = maybe (sendMailWithLogin _smtpHost) (sendMailWithLogin' _smtpHost) _smtpPort","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:37172"}}],"del_contents":[{"Del":{"text":" let SmtpConfig{..} = smtpConfig cfg","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1369"}},{"Del":{"text":" mailer = maybe (sendMailWithLogin smtpHost) (sendMailWithLogin' smtpHost) smtpPort","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1458"}}]}},{"Replacement":{"inode":{"change":4,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":85,"ins":{"up_context":[{"change":4,"pos":2920}],"down_context":[{"change":4,"pos":2921}],"flag":"BLOCK","start":37174,"end":37209,"inode":{"change":4,"pos":2363}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":2920},"to":{"change":4,"start":1542,"end":1575},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1542},"to":{"change":4,"start":1542,"end":1575},"introduced_by":4}],"inode":{"change":4,"pos":2363}},"ins_contents":[{"Add":{"text":" (mailer _smtpUser _smtpPass)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:37208"}}],"del_contents":[{"Del":{"text":" (mailer smtpUser smtpPass)","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:1574"}}]}},{"Replacement":{"inode":{"change":4,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":88,"ins":{"up_context":[{"change":4,"pos":9688}],"down_context":[{"change":4,"pos":2969}],"flag":"BLOCK","start":37210,"end":37246,"inode":{"change":4,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":9688},"to":{"change":4,"start":2923,"end":2969},"introduced_by":4}],"inode":{"change":4,"pos":2363}},"ins_contents":[{"Add":{"text":"buildProjectInviteEmail :: FilePath","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:37245"}}],"del_contents":[{"Del":{"text":"buildProjectInviteEmail :: System.IO.FilePath","pos":"NLZ3JXLOOIL37O3RRQWXHNPNSNEOOLPD6MCB754BEBECQB3KGR2AC:2968"}}]}},{"Replacement":{"inode":{"change":4,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":95,"ins":{"up_context":[{"change":4,"pos":1953}],"down_context":[{"change":4,"pos":1954}],"flag":"BLOCK","start":37247,"end":37305,"inode":{"change":4,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1953},"to":{"change":4,"start":3052,"end":3095},"introduced_by":4}],"inode":{"change":4,"pos":2363}},"ins_contents":[{"Add":{"text":" templates <- directoryGroup $ encodeString templatePath","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:37304"}}],"del_contents":[{"Del":{"text":" templates <- directoryGroup templatePath","pos":"NLZ3JXLOOIL37O3RRQWXHNPNSNEOOLPD6MCB754BEBECQB3KGR2AC:3094"}}]}},{"Edit":{"inode":{"change":4,"pos":5424},"path":"server/Aftok/Snaplet/WorkLog.hs","line":6,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":9655}],"down_context":[{"change":4,"pos":9655}],"flag":"BLOCK","start":37307,"end":37363,"inode":{"change":4,"pos":5424}}},"contents":[{"Add":{"text":"import Control.Monad.Trans.Maybe (mapMaybeT)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:37361"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:37362"}}]}},{"Edit":{"inode":{"change":4,"pos":5424},"path":"server/Aftok/Snaplet/WorkLog.hs","line":19,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":9959}],"down_context":[{"change":4,"pos":5728}],"flag":"BLOCK","start":37364,"end":37405,"inode":{"change":4,"pos":5424}}},"contents":[{"Add":{"text":"import Aftok.Util (fromMaybeT)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:37404"}}]}},{"Replacement":{"inode":{"change":4,"pos":5424},"path":"server/Aftok/Snaplet/WorkLog.hs","line":74,"ins":{"up_context":[{"change":4,"pos":13074}],"down_context":[{"change":4,"pos":13216}],"flag":"BLOCK","start":37406,"end":37544,"inode":{"change":4,"pos":5424}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":13074},"to":{"change":4,"start":10204,"end":10251},"introduced_by":4},{"previous":"","flag":"DELETED","from":{"change":4,"pos":10251},"to":{"change":4,"start":13122,"end":13216},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":13122},"to":{"change":4,"start":13122,"end":13216},"introduced_by":4}],"inode":{"change":4,"pos":5424}},"ins_contents":[{"Add":{"text":" project <- fromMaybeT","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:37429"}},{"Add":{"text":" (snapError 400 $ \"Project not found for id \" <> tshow pid)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:37492"}},{"Add":{"text":" (mapMaybeT snapEval $ findUserProject uid pid)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:37543"}}],"del_contents":[{"Del":{"text":" projectMay <- snapEval $ findProject pid uid","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:10250"}},{"Del":{"text":" project <- maybe (snapError 400 $ \"Project not found for id \" <> tshow pid) pure projectMay","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:13215"}}]}},{"Replacement":{"inode":{"change":4,"pos":1088},"path":"server/Aftok/Snaplet.hs","line":11,"ins":{"up_context":[{"change":4,"pos":10564}],"down_context":[{"change":4,"pos":10608}],"flag":"BLOCK","start":37546,"end":37606,"inode":{"change":4,"pos":1088}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":10564},"to":{"change":4,"start":10564,"end":10608},"introduced_by":4}],"inode":{"change":4,"pos":1088}},"ins_contents":[{"Add":{"text":"import Control.Monad.Trans.Except (runExceptT)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:37605"}}],"del_contents":[{"Del":{"text":"import Control.Monad.Trans.Either","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:10607"}}]}},{"Replacement":{"inode":{"change":4,"pos":1088},"path":"server/Aftok/Snaplet.hs","line":50,"ins":{"up_context":[{"change":4,"pos":11873}],"down_context":[{"change":4,"pos":11945}],"flag":"BLOCK","start":37607,"end":37688,"inode":{"change":4,"pos":1088}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":11873},"to":{"change":4,"start":18921,"end":19002},"introduced_by":4}],"inode":{"change":4,"pos":1088}},"ins_contents":[{"Add":{"text":" e <- liftPG $ \\conn -> liftIO $ runExceptT (runQDBM conn $ interpret liftdb p)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:37687"}}],"del_contents":[{"Del":{"text":" e <- liftPG $ \\conn -> liftIO $ runEitherT (runQDBM conn $ interpret liftdb p)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:19001"}}]}},{"Replacement":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":3,"ins":{"up_context":[{"change":4,"pos":1461}],"down_context":[{"change":4,"pos":5259}],"flag":"BLOCK","start":37690,"end":37739,"inode":{"change":4,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1461},"to":{"change":4,"start":11196,"end":11227},"introduced_by":4}],"inode":{"change":4,"pos":5188}},"ins_contents":[{"Add":{"text":"import ClassyPrelude hiding (FilePath)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:37738"}}],"del_contents":[{"Del":{"text":"import ClassyPrelude","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:11226"}}]}},{"Edit":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":6,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":11294}],"down_context":[{"change":4,"pos":7988}],"flag":"BLOCK","start":37740,"end":37783,"inode":{"change":4,"pos":5188}}},"contents":[{"Add":{"text":"import Data.Either.Combinators (fromRight)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:37782"}}]}},{"Edit":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":9,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":8139}],"down_context":[{"change":4,"pos":11294}],"flag":"BLOCK","start":37784,"end":37846,"inode":{"change":4,"pos":5188}}},"contents":[{"Add":{"text":"import Filesystem.Path.CurrentOS (decodeString, encodeString)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:37845"}}]}},{"Edit":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":18,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":4162}],"down_context":[{"change":4,"pos":2232}],"flag":"BLOCK","start":37847,"end":37886,"inode":{"change":4,"pos":5188}}},"contents":[{"Add":{"text":"import Aftok.Snaplet.Billing","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:37885"}}]}},{"Replacement":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":35,"ins":{"up_context":[{"change":4,"pos":1730}],"down_context":[{"change":4,"pos":8231}],"flag":"BLOCK","start":37887,"end":37960,"inode":{"change":4,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1730},"to":{"change":4,"start":1730,"end":1796},"introduced_by":4}],"inode":{"change":4,"pos":5188}},"ins_contents":[{"Add":{"text":" cfg <- loadQConfig . decodeString $ fromRight \"conf/aftok.cfg\" cfgPath","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:37959"}}],"del_contents":[{"Del":{"text":" cfg <- loadQConfig $ either (const \"conf/aftok.cfg\") id cfgPath","pos":"4ZLEDBK7VGLKFUPENAFLUJYNFLKFYJ3TREPQ7P6PKMYGJUXB55HQC:1795"}}]}},{"Replacement":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":42,"ins":{"up_context":[{"change":4,"pos":11874}],"down_context":[{"change":4,"pos":12521}],"flag":"BLOCK","start":37961,"end":38079,"inode":{"change":4,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":11874},"to":{"change":4,"start":19134,"end":19237},"introduced_by":4}],"inode":{"change":4,"pos":5188}},"ins_contents":[{"Add":{"text":" initCookieSessionManager (encodeString $ authSiteKey cfg) \"quookie\" (Just \"aftok.com\") (cookieTimeout cfg)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:38078"}}],"del_contents":[{"Del":{"text":" initCookieSessionManager (authSiteKey cfg) \"quookie\" (Just \"aftok.com\") (cookieTimeout cfg)","pos":"HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC:19236"}}]}},{"Replacement":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":46,"ins":{"up_context":[{"change":4,"pos":2275}],"down_context":[{"change":4,"pos":212}],"flag":"BLOCK","start":38080,"end":38421,"inode":{"change":4,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2275},"to":{"change":4,"start":2286,"end":2548},"introduced_by":4}],"inode":{"change":4,"pos":5188}},"ins_contents":[{"Add":{"text":" let loginRoute = method GET requireLogin >> redirect \"/home\"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:38151"}},{"Add":{"text":" xhrLoginRoute = void $ method POST requireLogin","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:38211"}},{"Add":{"text":" registerRoute = void $ method POST registerHandler","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:38274"}},{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:38275"}},{"Add":{"text":" inviteRoute = void $ method POST (projectInviteHandler cfg)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:38349"}},{"Add":{"text":" acceptInviteRoute = void $ method POST acceptInvitationHandler","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:38420"}}],"del_contents":[{"Del":{"text":" let loginRoute = method GET requireLogin >> redirect \"/home\"","pos":"HO2PFRABW6BBTE4MUKUTEGXCMJS46WGVBCNWOHO4OL52DVAB4YDAC:2356"}},{"Del":{"text":" xhrLoginRoute = void $ method POST requireLogin","pos":"HO2PFRABW6BBTE4MUKUTEGXCMJS46WGVBCNWOHO4OL52DVAB4YDAC:2415"}},{"Del":{"text":" registerRoute = void $ method POST registerHandler","pos":"HO2PFRABW6BBTE4MUKUTEGXCMJS46WGVBCNWOHO4OL52DVAB4YDAC:2477"}},{"Del":{"text":" acceptInviteRoute = void $ method POST acceptInvitationHandler","pos":"HO2PFRABW6BBTE4MUKUTEGXCMJS46WGVBCNWOHO4OL52DVAB4YDAC:2547"}}]}},{"Replacement":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":54,"ins":{"up_context":[{"change":4,"pos":1972}],"down_context":[{"change":4,"pos":2397}],"flag":"BLOCK","start":38422,"end":38514,"inode":{"change":4,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1972},"to":{"change":4,"start":1972,"end":2064},"introduced_by":4}],"inode":{"change":4,"pos":5188}},"ins_contents":[{"Add":{"text":" projectListRoute = serveJSON (fmap qdbProjectJSON) $ method GET projectListHandler","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:38513"}}],"del_contents":[{"Del":{"text":" listProjectsRoute = serveJSON (fmap qdbProjectJSON) $ method GET projectListHandler","pos":"O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC:2063"}}]}},{"Edit":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":57,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2146},"to":{"change":4,"start":2146,"end":2229},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2229},"to":{"change":4,"start":674,"end":760},"introduced_by":4}],"inode":{"change":4,"pos":5188}}},"contents":[{"Del":{"text":" logWorkRoute f = serveJSON eventIdJSON $ method POST (logWorkHandler f)","pos":"O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC:2228"}},{"Del":{"text":" logWorkBTCRoute f = serveJSON eventIdJSON $ method POST (logWorkBTCHandler f)","pos":"UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC:759"}}]}},{"Edit":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":59,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":2492}],"down_context":[{"change":4,"pos":2492}],"flag":"BLOCK","start":38515,"end":38516,"inode":{"change":4,"pos":5188}}},"contents":[{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:38515"}}]}},{"Replacement":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":61,"ins":{"up_context":[{"change":4,"pos":2570}],"down_context":[{"change":4,"pos":12970}],"flag":"BLOCK","start":38517,"end":38772,"inode":{"change":4,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2570},"to":{"change":4,"start":2570,"end":2644},"introduced_by":4}],"inode":{"change":4,"pos":5188}},"ins_contents":[{"Add":{"text":"","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:38517"}},{"Add":{"text":" logWorkRoute f = serveJSON eventIdJSON $ method POST (logWorkHandler f)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:38600"}},{"Add":{"text":" logWorkBTCRoute f = serveJSON eventIdJSON $ method POST (logWorkBTCHandler f)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:38686"}},{"Add":{"text":" amendEventRoute = serveJSON amendmentIdJSON $ method PUT amendEventHandler","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:38771"}}],"del_contents":[{"Del":{"text":" inviteRoute = void . method POST $ projectInviteHandler cfg","pos":"O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC:2643"}}]}},{"Replacement":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":67,"ins":{"up_context":[{"change":4,"pos":2732}],"down_context":[{"change":4,"pos":4230}],"flag":"BLOCK","start":38773,"end":38941,"inode":{"change":4,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2732},"to":{"change":4,"start":2732,"end":2893},"introduced_by":4}],"inode":{"change":4,"pos":5188}},"ins_contents":[{"Add":{"text":" auctionRoute = serveJSON auctionJSON $ method GET auctionGetHandler","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:38855"}},{"Add":{"text":" auctionBidRoute = serveJSON bidIdJSON $ method POST auctionBidHandler ","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:38940"}}],"del_contents":[{"Del":{"text":" auctionRoute = serveJSON auctionJSON $ method GET auctionGetHandler","pos":"O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC:2812"}},{"Del":{"text":" auctionBidRoute = serveJSON bidIdJSON $ method POST auctionBidHandler","pos":"O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC:2892"}}]}},{"Replacement":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":70,"ins":{"up_context":[{"change":4,"pos":4231}],"down_context":[{"change":4,"pos":8383}],"flag":"BLOCK","start":38942,"end":39213,"inode":{"change":4,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4231},"to":{"change":4,"start":8181,"end":8276},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":8276},"to":{"change":4,"start":4688,"end":4797},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4797},"to":{"change":4,"start":2396,"end":2495},"introduced_by":4}],"inode":{"change":4,"pos":5188}},"ins_contents":[{"Add":{"text":" billableCreateRoute = serveJSON billableIdJSON $ method POST billableCreateHandler","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:39030"}},{"Add":{"text":" billableListRoute = serveJSON (fmap qdbBillableJSON) $ method GET billableListHandler","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:39124"}},{"Add":{"text":" subscribeRoute = serveJSON subscriptionIdJSON $ method POST subscribeHandler","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:39212"}}],"del_contents":[{"Del":{"text":" payableRequestsRoute = serveJSON billDetailsJSON $ method GET listPayableRequestsHandler","pos":"AL37SVTCKRSG4HG2PCYK5Z7QSIZZH5JHH4Q2VLMXFAXSAQRFFG4QC:8275"}},{"Del":{"text":" paymentRoute = (writeLBS . runPutLazy . encodeMessage =<< method GET getPaymentRequestHandler)","pos":"BSIUHCGFDFDFGWYMHZB7OVU3Z3IHPEUXRISIOPGZI2RUXZFDS2EQC:4796"}},{"Del":{"text":" <|> (void . method POST . paymentResponseHandler $ billingConfig cfg)","pos":"WZFQDWW4XK6M4A4PQ7WQJUTZUPRGQR7V7ZVZY5ZTL5AMGIFMHB2QC:2494"}}]}},{"Replacement":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":74,"ins":{"up_context":[{"change":4,"pos":8384}],"down_context":[{"change":4,"pos":2549}],"flag":"BLOCK","start":39214,"end":39532,"inode":{"change":4,"pos":5188}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":4,"pos":8384},"to":{"change":4,"start":2894,"end":2979},"introduced_by":4},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":4231},"to":{"change":4,"start":2894,"end":2979},"introduced_by":4}],"inode":{"change":4,"pos":5188}},"ins_contents":[{"Add":{"text":" payableRequestsRoute = serveJSON billDetailsJSON $ method GET listPayableRequestsHandler","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:39308"}},{"Add":{"text":" getPaymentRequestRoute = writeLBS . runPutLazy . encodeMessage =<< method GET getPaymentRequestHandler","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:39417"}},{"Add":{"text":" submitPaymentRoute = serveJSON paymentIdJSON $ method POST (paymentResponseHandler $ billingConfig cfg)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:39531"}}],"del_contents":[{"Del":{"text":" amendEventRoute = serveJSON amendmentIdJSON $ method PUT amendEventHandler","pos":"O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC:2978"}}]}},{"Replacement":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":78,"ins":{"up_context":[{"change":4,"pos":2550}],"down_context":[{"change":4,"pos":2569}],"flag":"BLOCK","start":39533,"end":39611,"inode":{"change":4,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":2550},"to":{"change":4,"start":2550,"end":2613},"introduced_by":4}],"inode":{"change":4,"pos":5188}},"ins_contents":[{"Add":{"text":" addRoutes [ (\"static\", serveDirectory . encodeString $ staticAssetPath cfg)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:39610"}}],"del_contents":[{"Del":{"text":" addRoutes [ (\"static\", serveDirectory $ staticAssetPath cfg)","pos":"HO2PFRABW6BBTE4MUKUTEGXCMJS46WGVBCNWOHO4OL52DVAB4YDAC:2612"}}]}},{"Edit":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":89,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":920},"to":{"change":4,"start":614,"end":690},"introduced_by":4}],"inode":{"change":4,"pos":5188}}},"contents":[{"Del":{"text":" , (\"projects/:projectId/auctions\", auctionCreateRoute)","pos":"DXIGERDTERUIG7QHHRPKTSJHSQEPJPDJVLUW7YVC7URXBQ4ZJVOAC:689"}}]}},{"Edit":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":91,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":3779}],"down_context":[{"change":4,"pos":13136}],"flag":"BLOCK","start":39612,"end":39811,"inode":{"change":4,"pos":5188}}},"contents":[{"Add":{"text":" , (\"projects/:projectId/auctions\", auctionCreateRoute) -- <|> auctionListRoute","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:39711"}},{"Add":{"text":" , (\"projects/:projectId/billables\", billableCreateRoute <|> billableListRoute)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:39810"}}]}},{"Replacement":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":96,"ins":{"up_context":[{"change":4,"pos":761}],"down_context":[{"change":4,"pos":321}],"flag":"BLOCK","start":39812,"end":39909,"inode":{"change":4,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":761},"to":{"change":4,"start":761,"end":854},"introduced_by":4}],"inode":{"change":4,"pos":5188}},"ins_contents":[{"Add":{"text":" , (\"projects\", projectCreateRoute <|> projectListRoute)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:39908"}}],"del_contents":[{"Del":{"text":" , (\"projects\", projectCreateRoute)","pos":"DXIGERDTERUIG7QHHRPKTSJHSQEPJPDJVLUW7YVC7URXBQ4ZJVOAC:807"}},{"Del":{"text":" , (\"projects\", listProjectsRoute)","pos":"DXIGERDTERUIG7QHHRPKTSJHSQEPJPDJVLUW7YVC7URXBQ4ZJVOAC:853"}}]}},{"Edit":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":101,"atom":{"NewVertex":{"up_context":[{"change":4,"pos":8386}],"down_context":[{"change":4,"pos":8386}],"flag":"BLOCK","start":39910,"end":39973,"inode":{"change":4,"pos":5188}}},"contents":[{"Add":{"text":" , (\"subscribe/:billableId\", subscribeRoute)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:39972"}}]}},{"Replacement":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":103,"ins":{"up_context":[{"change":4,"pos":8473}],"down_context":[{"change":4,"pos":4299}],"flag":"BLOCK","start":39974,"end":40062,"inode":{"change":4,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":8473},"to":{"change":4,"start":4875,"end":4930},"introduced_by":4}],"inode":{"change":4,"pos":5188}},"ins_contents":[{"Add":{"text":" , (\"pay/:paymentRequestKey\", getPaymentRequestRoute <|> submitPaymentRoute)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:40061"}}],"del_contents":[{"Del":{"text":" , (\"pay/:paymentRequestKey\", paymentRoute)","pos":"BSIUHCGFDFDFGWYMHZB7OVU3Z3IHPEUXRISIOPGZI2RUXZFDS2EQC:4929"}}]}},{"Replacement":{"inode":{"change":4,"pos":5188},"path":"server/Main.hs","line":112,"ins":{"up_context":[{"change":4,"pos":1271}],"down_context":[],"flag":"BLOCK","start":40063,"end":40109,"inode":{"change":4,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":1271},"to":{"change":4,"start":1271,"end":1308},"introduced_by":4}],"inode":{"change":4,"pos":5188}},"ins_contents":[{"Add":{"text":" value <- ma","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:40076"}},{"Add":{"text":" writeLBS $ A.encode (f value)","pos":"IPG33FAWXGEQ2PO6OXRT2PWWXHRNMPVUKKADL6UKKN5GD2CNZ25AC:40108"}}],"del_contents":[{"Del":{"text":" writeLBS =<< (A.encode . f <$> ma)","pos":"XTBSG4C7SCZUFOU2BTNFR6B6TCGYI35BWUV4PVTS3N7KNH5VEARQC:1307"}}]}}],"owner":"nuttycom","repo":"aftok","token":"9nXfgE4xkjar+H9qyuVBI9ADKvKbHyyjpgGcpiMUjOg=","login":null}

…

Dependencies

Change contents

Review