{"header":{"message":"Refactor QDB to use a free monad algebra instead.","description":null,"timestamp":"2015-06-13T05:15:08Z","authors":[{"email":"kris.nuttycombe@gmail.com","name":"Kris Nuttycombe"}]},"hash":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC","authors":[],"deps":{"hashes":[["QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC","Refactor QDB to use a free monad algebra instead."],["AA",null],["4U7F3CPIDTK6JSEDMNMHVKSR7HOQDLZQD2PPVMDLHO5SFSIMUXZAC","THE GREAT RENAMING OF THINGS!"],["Y35QCWYW2OTZ27ZVTH2BA3XJTUCJ2WMLKU32ZCOCDY3AW7TIZXRAC","Minor improvement in WorkIndex type to eliminate duplicated information."],["NTPC7KJEAPA34SBIA74FVQSJXYNW32RIUQTHUSUTKMEUCPLUIBJAC","Trivial changes, feature scratchpad."],["2G3GNDDUOVPF45PELJ65ZB2IXEHJJXJILFRVHZXGPXUL4BVNZJFQC","Event logging is now functioning in postgres."],["XTBSG4C7SCZUFOU2BTNFR6B6TCGYI35BWUV4PVTS3N7KNH5VEARQC","Adding serveJSON combinator to eliminate some boilerplate from handlers."],["RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC","Change to use UUIDs instead of ints for primary keys."],["GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC","Create amends endpoint, switch to UUID primary keys"],["Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC","Very WIP. Wow."],["SCXG6TJWYIPRUMT27KGKIIF6FYKTUTY74UNZ2FQTT63XZ6HIF3AAC","Make log reduction safer in presence of overlapping events."],["2OIPAQCBDIUJBXB4K2QVP3IEBIUOCQHSWSWFVMVSVZC7GHX2VK7AC","Merge branch 'master' of github.com:nuttycom/ananke"],["5DRIWGLUKMQZU2ZPBXSTLAWJKAMOD5YXAHM5LEDQHDFGYYLHWCDQC","Improving TimeLog specs"],["V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC","Enable postgres configuration via environment variable for Heroku."],["5W5M56VJFJEBXMGBVKGCKPHOEMVTKUOQMLPJP7VNDQLTYNJXXLHQC","Move library code to 'lib'"],["BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC","Beginning of modularization of server."],["IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","Work in progress replacing sqlite with postgres."],["2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC","Switch to more modern cabal2nix-based workflow."],["5XFJNUAZUCQ3WCGW4QRIAWR764QYDOPHOIVO2TRMGSSG7UDX2M2AC","Start of addition of project infrastructure."],["64VI73NPSFNWTL6UXM6YHRFLNJZ3NUJ2R3CL53MO2HSZWFGBIRTQC","Server now compiles using abstracted SQLite"],["I2KHGVD44KT4MQJXGCTVSQKMBO6TVCY72F26TLXGWRL6PHGF6RNQC","Require project permissions for access to most data."],["PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC","Postgres & auth are beginning to function."],["WFZDMVUXZ2KPTMRAZGEYHKEJTKOKWVYCXKKAKQ7K6I5TMSLBUJ4QC","Rename ADB -> QDB"],["4QX5E5ACVN57KJLCWOM4JEI6JSV4XZNCWVYPOTKSOMUW3SOMCNJAC","Initial compilation of payouts function succeeds."],["64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","Rename Ananke -> Quixotic, project reboot."],["JKMHA2QGDSVHD4DKDYQUYNJJ3LUQCOPOWEC3543BDWDXLYIBBZXQC","SQLite support is now relatively sane."],["7KZP4RHZ3QSYTPPQ257A65Z5UPX44TF2LAI2U5EMULQCLDCEUK2AC","Switch from Data.Time to Data.Thyme"],["A2J7B4SCCJYKQV3G2LDHEFNE2GUICO3N3Y5FKF4EUZW5AG7PTDWAC","Initial impl of depreciation function."],["SLL7262CJUE7TZDDZZXFROHCVVDA527WA4PHXCKEGZUJF2EN5MQAC","Make depreciation functions more flexible."],["VJPT6HDRMJAJD5PT3VOYJYW43ISKLICEHLSDWSROX2XZWO2OFZPQC","Fix remaining type errors after addition of login handler."],["75N3UJ4JK56KXF56GASGPAWLFYGJDETVJNYTF4KXFCQM767JUU5AC","More progression toward lenses."],["W35DDBFYF6Z4ZPCFEO5RPAONZLYCSNTXUSTS6FIUUVZHCI6Q7GHAC","Factor common JSON conversions up into client lib module."],["A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC","Attempting to improve JSON handling."],["FD7SV5I6VCW27HZ3T3K4MMGB2OYGJTPKFFA263TNTAMRJGQJWVNAC","Fix handling of event_t columns."],["BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC","Added primitive user registration handler."],["GKGVYBZGPJXO7N7GLHLRNYQPXFHBQSNQN53OKRFCXLQEYDTC5I4QC","Added JSON serialization to TimeLog"],["LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC","More database stuff."],["EZQG2APB36DDMIAYDPPDGOIXOD7K2RZZSGC2NKGZIHB2HZBTW7EQC","Update task list."],["N4NDAZYTLSI2W22KT3SYXL257DBMSH3UT2BXOYM7LH7FSZAY4RLAC","Initial implementation of payouts."],["TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC","Lenses, sqlite-simple"],["KNSI575VAW6HRCZYXOEPQ4DTSML4EORML5MV4DJBRKE7TXCPS4EAC","Cleanup of EventLog types."],["P6NR2CGXCWAW6GXXSIXCGOBIRAS2BM4LEM6D5ADPN4IL7TMW6UVAC","Beginning of implementation of depreciation."],["NVOCQVASZWTKQJG7GPH7KHKZZR7NUG4WLV5YY4KAIRPCJRWCZPIAC","Initial failing tests."],["O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC","Undo JSON silliness, enable a couple more routes."],["LAROLAYUGJ4Q5AEFV5EJMIA2ZKBNCBWHHHPCJ3CKCNIUIYUKRFVQC","WIP"],["TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC","Switch to Postgres + snaplet arch compiles."],["TZQJVHBAMDNWDBYCDE3SDVGBG2T5FOE3J5JAD6NENRW36XBHUUFQC","Add auction functions to ADB."],["4IQVQL4TS35GL2GYZJG254TKJLL5EHMRSFT77Z4VTRZIG2TMBM3QC","Added client for payouts endpoint."],["EMVTF2IWNQGRL44FC4JNG5FYYQTZSFPNM6SOM7IAEH6T7PPK2NVAC","WIP moving back to snap."],["ADMKQQGCGVSHHIMVQ4XFRDCG544SBJCYALSKZV45CQQBZ4ACUH2AC","Initial empty Snap project."]],"deps":["4U7F3CPIDTK6JSEDMNMHVKSR7HOQDLZQD2PPVMDLHO5SFSIMUXZAC"],"known":["NVOCQVASZWTKQJG7GPH7KHKZZR7NUG4WLV5YY4KAIRPCJRWCZPIAC","N4NDAZYTLSI2W22KT3SYXL257DBMSH3UT2BXOYM7LH7FSZAY4RLAC","4QX5E5ACVN57KJLCWOM4JEI6JSV4XZNCWVYPOTKSOMUW3SOMCNJAC","Y35QCWYW2OTZ27ZVTH2BA3XJTUCJ2WMLKU32ZCOCDY3AW7TIZXRAC","P6NR2CGXCWAW6GXXSIXCGOBIRAS2BM4LEM6D5ADPN4IL7TMW6UVAC","GKGVYBZGPJXO7N7GLHLRNYQPXFHBQSNQN53OKRFCXLQEYDTC5I4QC","A2J7B4SCCJYKQV3G2LDHEFNE2GUICO3N3Y5FKF4EUZW5AG7PTDWAC","2OIPAQCBDIUJBXB4K2QVP3IEBIUOCQHSWSWFVMVSVZC7GHX2VK7AC","64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","64VI73NPSFNWTL6UXM6YHRFLNJZ3NUJ2R3CL53MO2HSZWFGBIRTQC","NTPC7KJEAPA34SBIA74FVQSJXYNW32RIUQTHUSUTKMEUCPLUIBJAC","5W5M56VJFJEBXMGBVKGCKPHOEMVTKUOQMLPJP7VNDQLTYNJXXLHQC","EMVTF2IWNQGRL44FC4JNG5FYYQTZSFPNM6SOM7IAEH6T7PPK2NVAC","LAROLAYUGJ4Q5AEFV5EJMIA2ZKBNCBWHHHPCJ3CKCNIUIYUKRFVQC","TZQJVHBAMDNWDBYCDE3SDVGBG2T5FOE3J5JAD6NENRW36XBHUUFQC","WFZDMVUXZ2KPTMRAZGEYHKEJTKOKWVYCXKKAKQ7K6I5TMSLBUJ4QC","75N3UJ4JK56KXF56GASGPAWLFYGJDETVJNYTF4KXFCQM767JUU5AC","TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC","JKMHA2QGDSVHD4DKDYQUYNJJ3LUQCOPOWEC3543BDWDXLYIBBZXQC","W35DDBFYF6Z4ZPCFEO5RPAONZLYCSNTXUSTS6FIUUVZHCI6Q7GHAC","4IQVQL4TS35GL2GYZJG254TKJLL5EHMRSFT77Z4VTRZIG2TMBM3QC","2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC","SLL7262CJUE7TZDDZZXFROHCVVDA527WA4PHXCKEGZUJF2EN5MQAC","IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC","BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC","VJPT6HDRMJAJD5PT3VOYJYW43ISKLICEHLSDWSROX2XZWO2OFZPQC","BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC","5XFJNUAZUCQ3WCGW4QRIAWR764QYDOPHOIVO2TRMGSSG7UDX2M2AC","Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC","LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC","I2KHGVD44KT4MQJXGCTVSQKMBO6TVCY72F26TLXGWRL6PHGF6RNQC","PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC","2G3GNDDUOVPF45PELJ65ZB2IXEHJJXJILFRVHZXGPXUL4BVNZJFQC","EZQG2APB36DDMIAYDPPDGOIXOD7K2RZZSGC2NKGZIHB2HZBTW7EQC","XTBSG4C7SCZUFOU2BTNFR6B6TCGYI35BWUV4PVTS3N7KNH5VEARQC","A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC","FD7SV5I6VCW27HZ3T3K4MMGB2OYGJTPKFFA263TNTAMRJGQJWVNAC","7KZP4RHZ3QSYTPPQ257A65Z5UPX44TF2LAI2U5EMULQCLDCEUK2AC","5DRIWGLUKMQZU2ZPBXSTLAWJKAMOD5YXAHM5LEDQHDFGYYLHWCDQC","SCXG6TJWYIPRUMT27KGKIIF6FYKTUTY74UNZ2FQTT63XZ6HIF3AAC","KNSI575VAW6HRCZYXOEPQ4DTSML4EORML5MV4DJBRKE7TXCPS4EAC","O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC","RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC","GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC","V2VDN77HCSRYYWXDJJ2XOVHV4P6PVWNJZLXZ7JUYPQEZQIH5BZ3QC"]},"hunks":[{"Edit":{"inode":{"change":3,"pos":1},"path":"aftok.cabal","line":30,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":429}],"down_context":[{"change":2,"pos":429}],"flag":"BLOCK","start":1,"end":34,"inode":{"change":3,"pos":1}}},"contents":[{"Add":{"text":" Aftok.Util","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:33"}}]}},{"Edit":{"inode":{"change":3,"pos":1},"path":"aftok.cabal","line":45,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":2726}],"down_context":[{"change":3,"pos":2726}],"flag":"BLOCK","start":35,"end":46,"inode":{"change":3,"pos":1}}},"contents":[{"Add":{"text":" , free","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:45"}}]}},{"Edit":{"inode":{"change":3,"pos":1},"path":"aftok.cabal","line":49,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":2841}],"down_context":[{"change":3,"pos":2841}],"flag":"BLOCK","start":47,"end":68,"inode":{"change":3,"pos":1}}},"contents":[{"Add":{"text":" , kan-extensions","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:67"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":1,"ins":{"up_context":[{"change":3,"pos":456}],"down_context":[{"change":3,"pos":565}],"flag":"BLOCK","start":73,"end":124,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":532},"to":{"change":3,"start":532,"end":565},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":"{-# LANGUAGE GADTs, GeneralizedNewtypeDeriving #-}","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:123"}}],"del_contents":[{"Del":{"text":"{-# LANGUAGE TemplateHaskell #-}","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:564"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":3,"ins":{"up_context":[{"change":3,"pos":566}],"down_context":[{"change":3,"pos":622}],"flag":"BLOCK","start":125,"end":175,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":566},"to":{"change":2,"start":1048,"end":1101},"introduced_by":2}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":"module Aftok.Database.PostgreSQL (QDBM(..)) where","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:174"}}],"del_contents":[{"Del":{"text":"module Aftok.Database.PostgreSQL (postgresQDB) where","pos":"4U7F3CPIDTK6JSEDMNMHVKSR7HOQDLZQD2PPVMDLHO5SFSIMUXZAC:1100"}}]}},{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":8,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":713}],"down_context":[{"change":3,"pos":73}],"flag":"BLOCK","start":176,"end":202,"inode":{"change":3,"pos":456}}},"contents":[{"Add":{"text":"import Data.Aeson(toJSON)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:201"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":28,"ins":{"up_context":[{"change":3,"pos":1124}],"down_context":[{"change":3,"pos":1123}],"flag":"BLOCK","start":203,"end":305,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1124},"to":{"change":3,"start":1124,"end":1158},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":"newtype QDBM a = QDBM { runQDBM :: ReaderT Connection IO a }","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:263"}},{"Add":{"text":" deriving (Functor, Applicative, Monad)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:304"}}],"del_contents":[{"Del":{"text":"type QDBM = ReaderT Connection IO","pos":"A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC:1157"}}]}},{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":49,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":765},"to":{"change":3,"start":223,"end":224},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":223},"to":{"change":3,"start":223,"end":224},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":224},"to":{"change":3,"start":165,"end":240},"introduced_by":3}],"inode":{"change":3,"pos":456}}},"contents":[{"Del":{"text":"","pos":"FD7SV5I6VCW27HZ3T3K4MMGB2OYGJTPKFFA263TNTAMRJGQJWVNAC:223"}},{"Del":{"text":"eidParser :: FieldParser EventId","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:197"}},{"Del":{"text":"eidParser f v = EventId <$> fromField f v","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:239"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":89,"ins":{"up_context":[{"change":3,"pos":2598}],"down_context":[{"change":3,"pos":468}],"flag":"BLOCK","start":306,"end":351,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2598},"to":{"change":3,"start":425,"end":468},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":"qdbLogEntryParser :: RowParser KeyedLogEntry","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:350"}}],"del_contents":[{"Del":{"text":"qdbLogEntryParser :: RowParser QDBLogEntry","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:467"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":91,"ins":{"up_context":[{"change":3,"pos":489}],"down_context":[{"change":3,"pos":554}],"flag":"BLOCK","start":352,"end":383,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":489},"to":{"change":3,"start":489,"end":554},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" (,,) <$> fieldWith pidParser","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:382"}}],"del_contents":[{"Del":{"text":" (,,,) <$> fieldWith eidParser ","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:521"}},{"Del":{"text":" <*> fieldWith pidParser","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:553"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":113,"ins":{"up_context":[{"change":3,"pos":2935}],"down_context":[{"change":3,"pos":1046}],"flag":"BLOCK","start":384,"end":421,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2935},"to":{"change":3,"start":1011,"end":1046},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":"qdbUserParser :: RowParser KeyedUser","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:420"}}],"del_contents":[{"Del":{"text":"qdbUserParser :: RowParser QDBUser","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:1045"}}]}},{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":123,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":1244}],"down_context":[{"change":3,"pos":313}],"flag":"BLOCK","start":422,"end":460,"inode":{"change":3,"pos":456}}},"contents":[{"Add":{"text":" <*> fieldWith fromJSONField","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:459"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":125,"ins":{"up_context":[{"change":3,"pos":314}],"down_context":[{"change":3,"pos":1286}],"flag":"BLOCK","start":461,"end":504,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":314},"to":{"change":3,"start":1245,"end":1286},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":"qdbProjectParser :: RowParser KeyedProject","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:503"}}],"del_contents":[{"Del":{"text":"qdbProjectParser :: RowParser QDBProject","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:1285"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":131,"ins":{"up_context":[{"change":3,"pos":1410}],"down_context":[{"change":3,"pos":1425}],"flag":"BLOCK","start":505,"end":527,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1410},"to":{"change":3,"start":1410,"end":1425},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":"pexec q d = QDBM $ do","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:526"}}],"del_contents":[{"Del":{"text":"pexec q d = do","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:1424"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":136,"ins":{"up_context":[{"change":3,"pos":1527}],"down_context":[{"change":3,"pos":3172}],"flag":"BLOCK","start":528,"end":554,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1527},"to":{"change":3,"start":1527,"end":1546},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":"pinsert f q d = QDBM $ do","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:553"}}],"del_contents":[{"Del":{"text":"pinsert f q d = do","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:1545"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":142,"ins":{"up_context":[{"change":3,"pos":1676}],"down_context":[{"change":3,"pos":1320}],"flag":"BLOCK","start":555,"end":580,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1676},"to":{"change":3,"start":1676,"end":1694},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":"pquery p q d = QDBM $ do","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:579"}}],"del_contents":[{"Del":{"text":"pquery p q d = do","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:1693"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":146,"ins":{"up_context":[{"change":3,"pos":1362}],"down_context":[{"change":3,"pos":1807}],"flag":"BLOCK","start":581,"end":974,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1362},"to":{"change":3,"start":295,"end":359},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":359},"to":{"change":3,"start":1726,"end":1806},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1806},"to":{"change":3,"start":1510,"end":1666},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1510},"to":{"change":3,"start":1510,"end":1666},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1666},"to":{"change":3,"start":523,"end":538},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3644},"to":{"change":3,"start":523,"end":538},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":523},"to":{"change":3,"start":523,"end":538},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":538},"to":{"change":3,"start":3645,"end":3665},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3665},"to":{"change":3,"start":1025,"end":1043},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1043},"to":{"change":3,"start":225,"end":258},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":258},"to":{"change":3,"start":1073,"end":1081},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1073},"to":{"change":3,"start":1073,"end":1081},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1081},"to":{"change":3,"start":3399,"end":3405},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3687},"to":{"change":3,"start":3399,"end":3405},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3399},"to":{"change":3,"start":3399,"end":3405},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":"instance DBEval QDBM where","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:607"}},{"Add":{"text":" dbEval (CreateEvent (ProjectId pid) (UserId uid) (LogEntry a e m)) = ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:679"}},{"Add":{"text":" pinsert EventId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:699"}},{"Add":{"text":" \"INSERT INTO work_events (project_id, user_id, btc_addr, event_type, event_time, event_metadata) \\","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:804"}},{"Add":{"text":" \\VALUES (?, ?, ?, ?, ?, ?) \\","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:839"}},{"Add":{"text":" \\RETURNING id\" ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:861"}},{"Add":{"text":" ( pid, uid","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:878"}},{"Add":{"text":" , a ^. _BtcAddr","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:900"}},{"Add":{"text":" , eventName e","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:920"}},{"Add":{"text":" , fromThyme $ e ^. eventTime","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:955"}},{"Add":{"text":" , m","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:965"}},{"Add":{"text":" )","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:973"}}],"del_contents":[{"Del":{"text":"createEvent' :: ProjectId -> UserId -> LogEntry -> QDBM EventId","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:358"}},{"Del":{"text":"createEvent' (ProjectId pid) (UserId uid) (LogEntry a e m) = ","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:1787"}},{"Del":{"text":" pinsert EventId","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:1805"}},{"Del":{"text":" \"INSERT INTO work_events (project_id, user_id, btc_addr, event_type, event_time, event_metadata) \\","pos":"A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC:1612"}},{"Del":{"text":" \\VALUES (?, ?, ?, ?, ?, ?) \\","pos":"A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC:1645"}},{"Del":{"text":" \\RETURNING id\" ","pos":"A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC:1665"}},{"Del":{"text":" ( pid, uid","pos":"Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC:537"}},{"Del":{"text":" , a ^. _BtcAddr","pos":"EZQG2APB36DDMIAYDPPDGOIXOD7K2RZZSGC2NKGZIHB2HZBTW7EQC:3664"}},{"Del":{"text":" , eventName e","pos":"KNSI575VAW6HRCZYXOEPQ4DTSML4EORML5MV4DJBRKE7TXCPS4EAC:1042"}},{"Del":{"text":" , fromThyme $ e ^. eventTime","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:257"}},{"Del":{"text":" , m","pos":"KNSI575VAW6HRCZYXOEPQ4DTSML4EORML5MV4DJBRKE7TXCPS4EAC:1080"}},{"Del":{"text":" )","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3404"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":159,"ins":{"up_context":[{"change":3,"pos":1808}],"down_context":[{"change":3,"pos":3405}],"flag":"BLOCK","start":975,"end":1230,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1808},"to":{"change":3,"start":1808,"end":2097},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" dbEval (FindEvent (EventId eid)) = do ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:1015"}},{"Add":{"text":" logEntries <- pquery qdbLogEntryParser","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:1058"}},{"Add":{"text":" \"SELECT project_id, user_id, btc_addr, event_type, event_time, event_metadata FROM work_events \\","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:1161"}},{"Add":{"text":" \\WHERE id = ?\"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:1182"}},{"Add":{"text":" (Only eid)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:1199"}},{"Add":{"text":" pure $ headMay logEntries","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:1229"}}],"del_contents":[{"Del":{"text":"findEvent' :: EventId -> QDBM (Maybe QDBLogEntry)","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:1857"}},{"Del":{"text":"findEvent' (EventId eid) = do ","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:1888"}},{"Del":{"text":" logEntries <- pquery qdbLogEntryParser","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:1929"}},{"Del":{"text":" \"SELECT id, project_id, user_id, btc_addr, event_type, event_time, event_metadata FROM work_events \\","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2034"}},{"Del":{"text":" \\WHERE id = ?\"","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2053"}},{"Del":{"text":" (Only eid)","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2068"}},{"Del":{"text":" pure $ headMay logEntries","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2096"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":166,"ins":{"up_context":[{"change":3,"pos":3406}],"down_context":[{"change":3,"pos":1083}],"flag":"BLOCK","start":1231,"end":2034,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3406},"to":{"change":3,"start":259,"end":374},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":374},"to":{"change":3,"start":2098,"end":2130},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2130},"to":{"change":3,"start":402,"end":585},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":402},"to":{"change":3,"start":402,"end":585},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":585},"to":{"change":3,"start":2131,"end":2165},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2165},"to":{"change":3,"start":615,"end":841},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":615},"to":{"change":3,"start":615,"end":841},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":841},"to":{"change":3,"start":2166,"end":2197},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2197},"to":{"change":3,"start":868,"end":1051},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":868},"to":{"change":3,"start":868,"end":1051},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1051},"to":{"change":3,"start":2198,"end":2226},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" dbEval (FindEvents (ProjectId pid) (UserId uid) ival) =","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:1288"}},{"Add":{"text":" let q p (Before e) = pquery p","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:1322"}},{"Add":{"text":" \"SELECT btc_addr, event_type, event_time, event_metadata FROM work_events \\","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:1408"}},{"Add":{"text":" \\WHERE project_id = ? AND user_id = ? AND event_time <= ?\" ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:1478"}},{"Add":{"text":" (pid, uid, PUTCTime e)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:1511"}},{"Add":{"text":" q p (During s e) = pquery p","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:1547"}},{"Add":{"text":" \"SELECT btc_addr, event_type, event_time, event_metadata FROM work_events \\","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:1633"}},{"Add":{"text":" \\WHERE project_id = ? AND user_id = ? \\","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:1683"}},{"Add":{"text":" \\AND event_time >= ? AND event_time <= ?\" ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:1736"}},{"Add":{"text":" (pid, uid, PUTCTime s, PUTCTime e)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:1781"}},{"Add":{"text":" q p (After s) = pquery p","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:1814"}},{"Add":{"text":" \"SELECT btc_addr, event_type, event_time, event_metadata FROM work_events \\","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:1900"}},{"Add":{"text":" \\WHERE project_id = ? AND user_id = ? AND event_time >= ?\" ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:1970"}},{"Add":{"text":" (pid, uid, PUTCTime s)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:2003"}},{"Add":{"text":" in q logEntryParser ival","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:2033"}}],"del_contents":[{"Del":{"text":"findEvents' :: ProjectId -> UserId -> Interval' -> QDBM [LogEntry]","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:325"}},{"Del":{"text":"findEvents' (ProjectId pid) (UserId uid) ival =","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:373"}},{"Del":{"text":" let q p (Before e) = pquery p","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2129"}},{"Del":{"text":" \"SELECT btc_addr, event_type, event_time, event_metadata FROM work_events \\","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:485"}},{"Del":{"text":" \\WHERE project_id = ? AND user_id = ? AND event_time <= ?\" ","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:553"}},{"Del":{"text":" (pid, uid, PUTCTime e)","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:584"}},{"Del":{"text":" q p (During s e) = pquery p","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2164"}},{"Del":{"text":" \"SELECT btc_addr, event_type, event_time, event_metadata FROM work_events \\","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:698"}},{"Del":{"text":" \\WHERE project_id = ? AND user_id = ? \\","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:746"}},{"Del":{"text":" \\AND event_time >= ? AND event_time <= ?\" ","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:797"}},{"Del":{"text":" (pid, uid, PUTCTime s, PUTCTime e)","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:840"}},{"Del":{"text":" q p (After s) = pquery p","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2196"}},{"Del":{"text":" \"SELECT btc_addr, event_type, event_time, event_metadata FROM work_events \\","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:951"}},{"Del":{"text":" \\WHERE project_id = ? AND user_id = ? AND event_time >= ?\" ","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:1019"}},{"Del":{"text":" (pid, uid, PUTCTime s)","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:1050"}},{"Del":{"text":" in q logEntryParser ival","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2225"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":182,"ins":{"up_context":[{"change":3,"pos":1084}],"down_context":[{"change":3,"pos":1951}],"flag":"BLOCK","start":2035,"end":2276,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1084},"to":{"change":3,"start":2227,"end":2288},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2288},"to":{"change":3,"start":1768,"end":1815},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1768},"to":{"change":3,"start":1768,"end":1815},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1815},"to":{"change":3,"start":2289,"end":2414},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2414},"to":{"change":3,"start":264,"end":317},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1920},"to":{"change":3,"start":264,"end":317},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" dbEval (AmendEvent (EventId eid) (TimeChange mt t)) = ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:2091"}},{"Add":{"text":" pinsert AmendmentId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:2115"}},{"Add":{"text":" \"INSERT INTO event_time_amendments (event_id, mod_time, event_time) VALUES (?, ?, ?) RETURNING id\"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:2220"}},{"Add":{"text":" ( eid, fromThyme $ mt ^. _ModTime, fromThyme t )","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:2275"}}],"del_contents":[{"Del":{"text":"amendEvent' :: EventId -> EventAmendment -> QDBM AmendmentId","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2287"}},{"Del":{"text":"amendEvent' (EventId eid) (TimeChange mt t) = ","pos":"A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC:1814"}},{"Del":{"text":" pinsert AmendmentId","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2310"}},{"Del":{"text":" \"INSERT INTO event_time_amendments (event_id, mod_time, event_time) VALUES (?, ?, ?) RETURNING id\"","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2413"}},{"Del":{"text":" ( eid, fromThyme $ mt ^. _ModTime, fromThyme t )","pos":"7KZP4RHZ3QSYTPPQ257A65Z5UPX44TF2LAI2U5EMULQCLDCEUK2AC:316"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":187,"ins":{"up_context":[{"change":3,"pos":1952}],"down_context":[{"change":3,"pos":2154}],"flag":"BLOCK","start":2277,"end":2527,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1952},"to":{"change":3,"start":1952,"end":2005},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2005},"to":{"change":3,"start":2415,"end":2538},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2538},"to":{"change":3,"start":318,"end":376},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2108},"to":{"change":3,"start":318,"end":376},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" dbEval (AmendEvent (EventId eid) (AddressChange mt addr)) = ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:2339"}},{"Add":{"text":" pinsert AmendmentId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:2363"}},{"Add":{"text":" \"INSERT INTO event_addr_amendments (event_id, mod_time, btc_addr) VALUES (?, ?, ?) RETURNING id\"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:2466"}},{"Add":{"text":" ( eid, fromThyme $ mt ^. _ModTime, addr ^. _BtcAddr )","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:2526"}}],"del_contents":[{"Del":{"text":"amendEvent' (EventId eid) (AddressChange mt addr) = ","pos":"A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC:2004"}},{"Del":{"text":" pinsert AmendmentId","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2436"}},{"Del":{"text":" \"INSERT INTO event_addr_amendments (event_id, mod_time, btc_addr) VALUES (?, ?, ?) RETURNING id\"","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2537"}},{"Del":{"text":" ( eid, fromThyme $ mt ^. _ModTime, addr ^. _BtcAddr )","pos":"7KZP4RHZ3QSYTPPQ257A65Z5UPX44TF2LAI2U5EMULQCLDCEUK2AC:375"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":192,"ins":{"up_context":[{"change":3,"pos":2157}],"down_context":[{"change":3,"pos":4597}],"flag":"BLOCK","start":2528,"end":2764,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2157},"to":{"change":3,"start":2157,"end":2208},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2208},"to":{"change":3,"start":2539,"end":2708},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":420},"to":{"change":3,"start":2346,"end":2393},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2708},"to":{"change":3,"start":2346,"end":2393},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2346},"to":{"change":3,"start":2346,"end":2393},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2393},"to":{"change":3,"start":602,"end":626},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":602},"to":{"change":3,"start":602,"end":626},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":626},"to":{"change":3,"start":2709,"end":2747},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2747},"to":{"change":3,"start":1085,"end":1186},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2411},"to":{"change":3,"start":1085,"end":1186},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":405},"to":{"change":3,"start":740,"end":762},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1186},"to":{"change":3,"start":740,"end":762},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":740},"to":{"change":3,"start":740,"end":762},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":762},"to":{"change":3,"start":2748,"end":2778},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2778},"to":{"change":3,"start":3624,"end":3625},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3624},"to":{"change":3,"start":3624,"end":3625},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3625},"to":{"change":3,"start":425,"end":482},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":482},"to":{"change":3,"start":2779,"end":2926},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2926},"to":{"change":3,"start":954,"end":1029},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":954},"to":{"change":3,"start":954,"end":1029},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3928},"to":{"change":3,"start":3928,"end":3929},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3929},"to":{"change":3,"start":511,"end":585},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":585},"to":{"change":3,"start":2927,"end":3026},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3026},"to":{"change":3,"start":4129,"end":4162},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4129},"to":{"change":3,"start":4129,"end":4162},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4162},"to":{"change":3,"start":3027,"end":3053},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3053},"to":{"change":3,"start":4200,"end":4201},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4200},"to":{"change":3,"start":4200,"end":4201},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4201},"to":{"change":3,"start":3054,"end":3099},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3099},"to":{"change":3,"start":628,"end":666},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":628},"to":{"change":3,"start":628,"end":666},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":666},"to":{"change":3,"start":3100,"end":3241},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":159},"to":{"change":3,"start":4444,"end":4597},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3241},"to":{"change":3,"start":4444,"end":4597},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4444},"to":{"change":3,"start":4444,"end":4597},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" dbEval (AmendEvent (EventId eid) (MetadataChange mt v)) = ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:2588"}},{"Add":{"text":" pinsert AmendmentId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:2612"}},{"Add":{"text":" \"INSERT INTO event_metadata_amendments (event_id, mod_time, btc_addr) VALUES (?, ?, ?) RETURNING id\"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:2719"}},{"Add":{"text":" ( eid, fromThyme $ mt ^. _ModTime, v)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:2763"}}],"del_contents":[{"Del":{"text":"amendEvent' (EventId eid) (MetadataChange mt v) = ","pos":"A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC:2207"}},{"Del":{"text":" pinsert AmendmentId","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2560"}},{"Del":{"text":" \"INSERT INTO event_metadata_amendments (event_id, mod_time, btc_addr) VALUES (?, ?, ?) RETURNING id\"","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2665"}},{"Del":{"text":" ( eid, fromThyme $ mt ^. _ModTime, v)","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2707"}},{"Del":{"text":"","pos":"A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC:2346"}},{"Del":{"text":"readWorkIndex' :: ProjectId -> QDBM WorkIndex","pos":"A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC:2392"}},{"Del":{"text":"readWorkIndex' pid = do","pos":"Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC:625"}},{"Del":{"text":" logEntries <- pquery logEntryParser","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2746"}},{"Del":{"text":" \"SELECT btc_addr, event_type, event_time, event_metadata FROM work_events WHERE project_id = ?\" ","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:1185"}},{"Del":{"text":" (Only $ PPid pid)","pos":"Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC:761"}},{"Del":{"text":" pure $ workIndex logEntries","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2777"}},{"Del":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3624"}},{"Del":{"text":"createAuction' :: ProjectId -> Auction -> QDBM AuctionId","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:481"}},{"Del":{"text":"createAuction' pid auc = ","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2804"}},{"Del":{"text":" pinsert AuctionId","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2824"}},{"Del":{"text":" \"INSERT INTO auctions (project_id, raise_amount, end_time) \\","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2889"}},{"Del":{"text":" \\VALUES (?, ?, ?) RETURNING id\"","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2925"}},{"Del":{"text":" (pid ^. (_ProjectId), auc ^. (raiseAmount.to PBTC), auc ^. auctionEnd)","pos":"Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC:1028"}},{"Del":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:3928"}},{"Del":{"text":"findAuction' :: AuctionId -> QDBM (Maybe Auction)","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:560"}},{"Del":{"text":"findAuction' aucId = do","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:584"}},{"Del":{"text":" auctions <- pquery auctionParser","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:2961"}},{"Del":{"text":" \"SELECT raise_amount, end_time FROM auctions WHERE id = ?\" ","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3025"}},{"Del":{"text":" (Only (aucId ^. _AuctionId))","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4161"}},{"Del":{"text":" pure $ headMay auctions","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3052"}},{"Del":{"text":"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4200"}},{"Del":{"text":"createBid' :: AuctionId -> Bid -> QDBM BidId","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3098"}},{"Del":{"text":"createBid' (AuctionId aucId) bid = do","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:665"}},{"Del":{"text":" pinsert BidId","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3115"}},{"Del":{"text":" \"INSERT INTO bids (auction_id, bidder_id, bid_seconds, bid_amount, bid_time) \\","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3198"}},{"Del":{"text":" \\VALUES (?, ?, ?, ?, ?) RETURNING id\"","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3240"}},{"Del":{"text":" ( aucId ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4456"}},{"Del":{"text":" , bid ^. (bidUser._UserId)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4487"}},{"Del":{"text":" , case bid ^. bidSeconds of (Seconds i) -> i","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4536"}},{"Del":{"text":" , bid ^. (bidAmount.to PBTC)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4569"}},{"Del":{"text":" , bid ^. bidTime","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4590"}},{"Del":{"text":" )","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4596"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":197,"ins":{"up_context":[{"change":3,"pos":4598}],"down_context":[{"change":3,"pos":4861}],"flag":"BLOCK","start":2765,"end":2998,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4598},"to":{"change":3,"start":2615,"end":2652},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2652},"to":{"change":3,"start":3242,"end":3280},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2670},"to":{"change":3,"start":4715,"end":4837},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3280},"to":{"change":3,"start":4715,"end":4837},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4715},"to":{"change":3,"start":4715,"end":4837},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" dbEval (ReadWorkIndex pid) = do","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:2798"}},{"Add":{"text":" logEntries <- pquery logEntryParser","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:2838"}},{"Add":{"text":" \"SELECT btc_addr, event_type, event_time, event_metadata FROM work_events WHERE project_id = ?\" ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:2941"}},{"Add":{"text":" (Only $ PPid pid)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:2965"}},{"Add":{"text":" pure $ workIndex logEntries","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:2997"}}],"del_contents":[{"Del":{"text":"readBids' :: AuctionId -> QDBM [Bid]","pos":"A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC:2651"}},{"Del":{"text":"readBids' aucId = ","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3260"}},{"Del":{"text":" pquery bidParser","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3279"}},{"Del":{"text":" \"SELECT user_id, bid_seconds, bid_amount, bid_time FROM bids WHERE auction_id = ?\"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4801"}},{"Del":{"text":" (Only $ (aucId ^. _AuctionId))","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4836"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":203,"ins":{"up_context":[{"change":3,"pos":4862}],"down_context":[{"change":3,"pos":5182}],"flag":"BLOCK","start":2999,"end":3239,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4862},"to":{"change":3,"start":2671,"end":2706},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2706},"to":{"change":3,"start":3281,"end":3319},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2724},"to":{"change":3,"start":160,"end":240},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3319},"to":{"change":3,"start":160,"end":240},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4978},"to":{"change":3,"start":160,"end":240},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":240},"to":{"change":3,"start":3688,"end":3777},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" dbEval (CreateAuction pid auc) = ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3034"}},{"Add":{"text":" pinsert AuctionId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3056"}},{"Add":{"text":" \"INSERT INTO auctions (project_id, raise_amount, end_time) \\","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3123"}},{"Add":{"text":" \\VALUES (?, ?, ?) RETURNING id\"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3161"}},{"Add":{"text":" (pid ^. (_ProjectId), auc ^. (raiseAmount.to PBTC), auc ^. auctionEnd)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3238"}}],"del_contents":[{"Del":{"text":"createUser' :: User -> QDBM UserId","pos":"A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC:2705"}},{"Del":{"text":"createUser' user' = ","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3301"}},{"Del":{"text":" pinsert UserId","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3318"}},{"Del":{"text":" \"INSERT INTO users (handle, btc_addr, email) VALUES (?, ?, ?) RETURNING id\"","pos":"PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC:239"}},{"Del":{"text":" (user' ^. (username._UserName), user' ^. (userAddress._BtcAddr), user' ^. userEmail)","pos":"EZQG2APB36DDMIAYDPPDGOIXOD7K2RZZSGC2NKGZIHB2HZBTW7EQC:3776"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":209,"ins":{"up_context":[{"change":3,"pos":5183}],"down_context":[{"change":3,"pos":5424}],"flag":"BLOCK","start":3240,"end":3440,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5183},"to":{"change":3,"start":2725,"end":2766},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2766},"to":{"change":3,"start":5241,"end":5269},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5241},"to":{"change":3,"start":5241,"end":5269},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5269},"to":{"change":3,"start":3320,"end":3349},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2785},"to":{"change":3,"start":5312,"end":5388},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3349},"to":{"change":3,"start":5312,"end":5388},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5312},"to":{"change":3,"start":5312,"end":5388},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5388},"to":{"change":3,"start":3350,"end":3373},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" dbEval (FindAuction aucId) = do","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3273"}},{"Add":{"text":" auctions <- pquery auctionParser","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3310"}},{"Add":{"text":" \"SELECT raise_amount, end_time FROM auctions WHERE id = ?\" ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3376"}},{"Add":{"text":" (Only (aucId ^. _AuctionId))","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3411"}},{"Add":{"text":" pure $ headMay auctions","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3439"}}],"del_contents":[{"Del":{"text":"findUser' :: UserId -> QDBM (Maybe User)","pos":"A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC:2765"}},{"Del":{"text":"findUser' (UserId uid) = do","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5268"}},{"Del":{"text":" users <- pquery userParser","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3348"}},{"Del":{"text":" \"SELECT handle, btc_addr, email FROM users WHERE id = ?\"","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5372"}},{"Del":{"text":" (Only uid)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5387"}},{"Del":{"text":" pure $ headMay users","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3372"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":215,"ins":{"up_context":[{"change":3,"pos":5425}],"down_context":[{"change":3,"pos":5524}],"flag":"BLOCK","start":3441,"end":3799,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5425},"to":{"change":3,"start":2786,"end":2842},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2842},"to":{"change":3,"start":501,"end":539},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":501},"to":{"change":3,"start":501,"end":539},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":539},"to":{"change":3,"start":3374,"end":3406},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2861},"to":{"change":3,"start":582,"end":664},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3406},"to":{"change":3,"start":582,"end":664},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":582},"to":{"change":3,"start":582,"end":664},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":664},"to":{"change":3,"start":3407,"end":3430},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" dbEval (CreateBid (AuctionId aucId) bid) = ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3486"}},{"Add":{"text":" pinsert BidId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3504"}},{"Add":{"text":" \"INSERT INTO bids (auction_id, bidder_id, bid_seconds, bid_amount, bid_time) \\","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3589"}},{"Add":{"text":" \\VALUES (?, ?, ?, ?, ?) RETURNING id\"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3633"}},{"Add":{"text":" ( aucId ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3648"}},{"Add":{"text":" , bid ^. (bidUser._UserId)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3681"}},{"Add":{"text":" , case bid ^. bidSeconds of (Seconds i) -> i","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3732"}},{"Add":{"text":" , bid ^. (bidAmount.to PBTC)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3767"}},{"Add":{"text":" , bid ^. bidTime","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3790"}},{"Add":{"text":" )","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3798"}}],"del_contents":[{"Del":{"text":"findUserByUserName' :: UserName -> QDBM (Maybe QDBUser)","pos":"A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC:2841"}},{"Del":{"text":"findUserByUserName' (UserName h) = do","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:538"}},{"Del":{"text":" users <- pquery qdbUserParser","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3405"}},{"Del":{"text":" \"SELECT id, handle, btc_addr, email FROM users WHERE handle = ?\"","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:650"}},{"Del":{"text":" (Only h)","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:663"}},{"Del":{"text":" pure $ headMay users","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3429"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":226,"ins":{"up_context":[{"change":3,"pos":5525}],"down_context":[{"change":3,"pos":667}],"flag":"BLOCK","start":3800,"end":3976,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5525},"to":{"change":3,"start":2862,"end":2906},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2906},"to":{"change":3,"start":683,"end":705},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":683},"to":{"change":3,"start":683,"end":705},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":705},"to":{"change":3,"start":4,"end":41},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":41},"to":{"change":3,"start":3431,"end":3458},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2924},"to":{"change":3,"start":747,"end":849},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3458},"to":{"change":3,"start":747,"end":849},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":747},"to":{"change":3,"start":747,"end":849},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":849},"to":{"change":3,"start":42,"end":90},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":90},"to":{"change":3,"start":3459,"end":3588},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" dbEval (ReadBids aucId) = ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3828"}},{"Add":{"text":" pquery bidParser","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3849"}},{"Add":{"text":" \"SELECT user_id, bid_seconds, bid_amount, bid_time FROM bids WHERE auction_id = ?\"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3938"}},{"Add":{"text":" (Only $ (aucId ^. _AuctionId))","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3975"}}],"del_contents":[{"Del":{"text":"createProject' :: Project -> QDBM ProjectId","pos":"A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC:2905"}},{"Del":{"text":"createProject' p = do","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:704"}},{"Del":{"text":" let uid = p ^. (initiator._UserId)","pos":"2G3GNDDUOVPF45PELJ65ZB2IXEHJJXJILFRVHZXGPXUL4BVNZJFQC:40"}},{"Del":{"text":" pid <- pinsert ProjectId","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3457"}},{"Del":{"text":" \"INSERT INTO projects (project_name, inception_date, initiator_id) VALUES (?, ?, ?) RETURNING id\"","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:848"}},{"Del":{"text":" (p ^. projectName, p ^. inceptionDate, uid)","pos":"2G3GNDDUOVPF45PELJ65ZB2IXEHJJXJILFRVHZXGPXUL4BVNZJFQC:89"}},{"Del":{"text":" void $ pexec ","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3474"}},{"Del":{"text":" \"INSERT INTO project_companions (project_id, user_id) VALUES (?, ?)\"","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3547"}},{"Del":{"text":" (pid ^. _ProjectId, uid)","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3576"}},{"Del":{"text":" pure pid","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3587"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":231,"ins":{"up_context":[{"change":3,"pos":668}],"down_context":[{"change":3,"pos":704}],"flag":"BLOCK","start":3977,"end":4200,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":668},"to":{"change":3,"start":668,"end":752},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":752},"to":{"change":3,"start":3589,"end":3624},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3624},"to":{"change":3,"start":773,"end":871},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":773},"to":{"change":3,"start":773,"end":871},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":871},"to":{"change":3,"start":3625,"end":3651},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" dbEval (CreateUser user') = ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:4007"}},{"Add":{"text":" pinsert UserId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:4026"}},{"Add":{"text":" \"INSERT INTO users (handle, btc_addr, email) VALUES (?, ?, ?) RETURNING id\"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:4108"}},{"Add":{"text":" (user' ^. (username._UserName), user' ^. (userAddress._BtcAddr), user' ^. userEmail)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:4199"}}],"del_contents":[{"Del":{"text":"findProject' :: ProjectId -> QDBM (Maybe Project)","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:717"}},{"Del":{"text":"findProject' (ProjectId pid) = do","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:751"}},{"Del":{"text":" projects <- pquery projectParser","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3623"}},{"Del":{"text":" \"SELECT project_name, inception_date, initiator_id FROM projects WHERE id = ?\"","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:855"}},{"Del":{"text":" (Only pid)","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:870"}},{"Del":{"text":" pure $ headMay projects","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3650"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":236,"ins":{"up_context":[{"change":3,"pos":705}],"down_context":[{"change":3,"pos":1368}],"flag":"BLOCK","start":4201,"end":4375,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":705},"to":{"change":3,"start":2941,"end":2990},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2990},"to":{"change":3,"start":3652,"end":3712},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3011},"to":{"change":3,"start":1111,"end":1180},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3712},"to":{"change":3,"start":1111,"end":1180},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1111},"to":{"change":3,"start":1111,"end":1180},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1180},"to":{"change":3,"start":274,"end":348},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":348},"to":{"change":3,"start":3713,"end":3740},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3740},"to":{"change":3,"start":380,"end":395},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":380},"to":{"change":3,"start":380,"end":395},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" dbEval (FindUser (UserId uid)) = do","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:4238"}},{"Add":{"text":" users <- pquery userParser","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:4269"}},{"Add":{"text":" \"SELECT handle, btc_addr, email FROM users WHERE id = ?\"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:4332"}},{"Add":{"text":" (Only uid)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:4349"}},{"Add":{"text":" pure $ headMay users","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:4374"}}],"del_contents":[{"Del":{"text":"findUserProjects' :: UserId -> QDBM [QDBProject]","pos":"A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC:2989"}},{"Del":{"text":"findUserProjects' (UserId uid) = ","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3685"}},{"Del":{"text":" pquery qdbProjectParser","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3711"}},{"Del":{"text":" \"SELECT p.id, p.project_name, p.inception_date, p.initiator_id \\","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:1179"}},{"Del":{"text":" \\FROM projects p JOIN project_companions pc ON pc.project_id = p.id \\","pos":"2G3GNDDUOVPF45PELJ65ZB2IXEHJJXJILFRVHZXGPXUL4BVNZJFQC:347"}},{"Del":{"text":" \\WHERE pc.user_id = ?\"","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3739"}},{"Del":{"text":" (Only uid)","pos":"2G3GNDDUOVPF45PELJ65ZB2IXEHJJXJILFRVHZXGPXUL4BVNZJFQC:394"}}]}},{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":242,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":1369}],"down_context":[{"change":3,"pos":3741}],"flag":"BLOCK","start":4376,"end":4565,"inode":{"change":3,"pos":456}}},"contents":[{"Add":{"text":" dbEval (FindUserByName (UserName h)) = do","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:4419"}},{"Add":{"text":" users <- pquery qdbUserParser","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:4453"}},{"Add":{"text":" \"SELECT id, handle, btc_addr, email FROM users WHERE handle = ?\"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:4524"}},{"Add":{"text":" (Only h)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:4539"}},{"Add":{"text":" pure $ headMay users","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:4564"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":248,"ins":{"up_context":[{"change":3,"pos":3742}],"down_context":[{"change":3,"pos":946}],"flag":"BLOCK","start":4566,"end":4842,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":3742},"to":{"change":3,"start":3012,"end":3036},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1369},"to":{"change":3,"start":3012,"end":3036},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3036},"to":{"change":3,"start":5568,"end":5587},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5568},"to":{"change":3,"start":5568,"end":5587},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5587},"to":{"change":3,"start":914,"end":945},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":945},"to":{"change":3,"start":3037,"end":3066},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5618},"to":{"change":3,"start":3037,"end":3066},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3066},"to":{"change":3,"start":3743,"end":3770},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3770},"to":{"change":3,"start":1187,"end":1216},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3066},"to":{"change":3,"start":1187,"end":1216},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1216},"to":{"change":3,"start":5618,"end":5654},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3066},"to":{"change":3,"start":5618,"end":5654},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5618},"to":{"change":3,"start":5618,"end":5654},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" dbEval (CreateProject p) = ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:4595"}},{"Add":{"text":" pinsert ProjectId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:4617"}},{"Add":{"text":" \"INSERT INTO projects (project_name, inception_date, initiator_id, depreciation_fn) \\","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:4709"}},{"Add":{"text":" \\VALUES (?, ?, ?, ?) RETURNING id\"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:4750"}},{"Add":{"text":" (p ^. projectName, p ^. inceptionDate, p ^. (initiator._UserId), toJSON $ p ^. depf)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:4841"}}],"del_contents":[{"Del":{"text":"postgresQDB :: QDB QDBM","pos":"A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC:3035"}},{"Del":{"text":"postgresQDB = QDB ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5586"}},{"Del":{"text":" { createEvent = createEvent'","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:944"}},{"Del":{"text":" , amendEvent = amendEvent'","pos":"A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC:3065"}},{"Del":{"text":" , findEvent = findEvent'","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3769"}},{"Del":{"text":" , findEvents = findEvents'","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:1215"}},{"Del":{"text":" , readWorkIndex = readWorkIndex' ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5653"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":254,"ins":{"up_context":[{"change":3,"pos":947}],"down_context":[{"change":3,"pos":1013}],"flag":"BLOCK","start":4843,"end":5054,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":947},"to":{"change":3,"start":947,"end":1013},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" dbEval (FindProject (ProjectId pid)) = do","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:4886"}},{"Add":{"text":" projects <- pquery projectParser","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:4923"}},{"Add":{"text":" \"SELECT project_name, inception_date, initiator_id FROM projects WHERE id = ?\"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5008"}},{"Add":{"text":" (Only pid)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5025"}},{"Add":{"text":" pure $ headMay projects","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5053"}}],"del_contents":[{"Del":{"text":" , createAuction = createAuction'","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:981"}},{"Del":{"text":" , findAuction = findAuction'","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:1012"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":260,"ins":{"up_context":[{"change":3,"pos":1014}],"down_context":[{"change":3,"pos":1042}],"flag":"BLOCK","start":5055,"end":5465,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1014},"to":{"change":3,"start":1014,"end":1041},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1041},"to":{"change":3,"start":5741,"end":5766},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5741},"to":{"change":3,"start":5741,"end":5766},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" dbEval (FindUserProjects (UserId uid)) = ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5098"}},{"Add":{"text":" pquery qdbProjectParser","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5126"}},{"Add":{"text":" \"SELECT p.id, p.project_name, p.inception_date, p.initiator_id \\","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5197"}},{"Add":{"text":" \\FROM projects p JOIN project_companions pc ON pc.project_id = p.id \\","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5273"}},{"Add":{"text":" \\WHERE pc.user_id = ? \\","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5303"}},{"Add":{"text":" \\UNION \\","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5318"}},{"Add":{"text":" \\SELECT p.id, p.project_name, p.inception_date, p.initiator_id \\","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5389"}},{"Add":{"text":" \\FROM projects p \\","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5414"}},{"Add":{"text":" \\WHERE p.initiator_id = ?\"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5447"}},{"Add":{"text":" (uid, uid)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5464"}}],"del_contents":[{"Del":{"text":" , createBid = createBid'","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:1040"}},{"Del":{"text":" , readBids = readBids'","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5765"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":271,"ins":{"up_context":[{"change":3,"pos":1043}],"down_context":[{"change":3,"pos":1044}],"flag":"BLOCK","start":5466,"end":5684,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":1043},"to":{"change":3,"start":5766,"end":5820},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5766},"to":{"change":3,"start":5766,"end":5820},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5820},"to":{"change":3,"start":706,"end":751},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" dbEval (AddUserToProject pid current new) = do","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5514"}},{"Add":{"text":" void $ pexec","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5531"}},{"Add":{"text":" \"INSERT INTO project_companions (project_id, user_id, invited_by) VALUES (?, ?, ?)\"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5621"}},{"Add":{"text":" (pid ^. _ProjectId, new ^. _UserId, current ^. _UserId)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5683"}}],"del_contents":[{"Del":{"text":" , createUser = createUser'","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5794"}},{"Del":{"text":" , findUser = findUser'","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5819"}},{"Del":{"text":" , findUserByUserName = findUserByUserName'","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:750"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":276,"ins":{"up_context":[{"change":3,"pos":1045}],"down_context":[],"flag":"BLOCK","start":5685,"end":5854,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":1045},"to":{"change":3,"start":1371,"end":1406},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":751},"to":{"change":3,"start":1371,"end":1406},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1406},"to":{"change":3,"start":1046,"end":1077},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1077},"to":{"change":3,"start":1406,"end":1447},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1406},"to":{"change":3,"start":1406,"end":1447},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":751},"to":{"change":3,"start":5861,"end":5865},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1447},"to":{"change":3,"start":5861,"end":5865},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5861},"to":{"change":3,"start":5861,"end":5865},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" -- FIXME, these are just placeholders","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5724"}},{"Add":{"text":" dbEval (OpForbidden _ reason _) = fail $ show reason","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5779"}},{"Add":{"text":" dbEval (SubjectNotFound _) = fail \"Subject of operation was not found.\"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5853"}}],"del_contents":[{"Del":{"text":" , createProject = createProject'","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:1405"}},{"Del":{"text":" , findProject = findProject'","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:1076"}},{"Del":{"text":" , findUserProjects = findUserProjects'","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:1446"}},{"Del":{"text":" }","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5864"}}]}},{"Replacement":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":1,"ins":{"up_context":[{"change":3,"pos":4936}],"down_context":[{"change":3,"pos":426}],"flag":"BLOCK","start":5856,"end":5879,"inode":{"change":3,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4936},"to":{"change":3,"start":5,"end":38},"introduced_by":3}],"inode":{"change":3,"pos":4936}},"ins_contents":[{"Add":{"text":"{-# LANGUAGE GADTs #-}","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5878"}}],"del_contents":[{"Del":{"text":"{-# LANGUAGE TemplateHaskell #-}","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:37"}}]}},{"Edit":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":6,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":838}],"down_context":[{"change":3,"pos":6576}],"flag":"BLOCK","start":5880,"end":5900,"inode":{"change":3,"pos":4936}}},"contents":[{"Add":{"text":"import Control.Lens","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5899"}}]}},{"Edit":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":12,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":1548}],"down_context":[{"change":3,"pos":5044}],"flag":"BLOCK","start":5901,"end":7533,"inode":{"change":3,"pos":4936}}},"contents":[{"Add":{"text":"import Aftok.Util","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5918"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5919"}},{"Add":{"text":"type KeyedUser = (UserId, User)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:5955"}},{"Add":{"text":"type KeyedLogEntry = (ProjectId, UserId, LogEntry)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6006"}},{"Add":{"text":"type KeyedProject = (ProjectId, Project)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6048"}},{"Add":{"text":"type InvitingUID = UserId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6076"}},{"Add":{"text":"type InvitedUID = UserId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6104"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6105"}},{"Add":{"text":"type DBProg a = Program DBOp a","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6136"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6137"}},{"Add":{"text":"data DBOp a where","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6155"}},{"Add":{"text":" CreateUser :: User -> DBOp UserId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6197"}},{"Add":{"text":" FindUser :: UserId -> DBOp (Maybe User)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6247"}},{"Add":{"text":" FindUserByName :: UserName -> DBOp (Maybe KeyedUser)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6304"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6305"}},{"Add":{"text":" CreateProject :: Project -> DBOp ProjectId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6353"}},{"Add":{"text":" FindProject :: ProjectId -> DBOp (Maybe Project)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6409"}},{"Add":{"text":" FindUserProjects :: UserId -> DBOp [KeyedProject]","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6461"}},{"Add":{"text":" AddUserToProject :: ProjectId -> InvitingUID -> InvitedUID -> DBOp ()","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6533"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6534"}},{"Add":{"text":" CreateEvent :: ProjectId -> UserId -> LogEntry -> DBOp EventId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6604"}},{"Add":{"text":" AmendEvent :: EventId -> EventAmendment -> DBOp AmendmentId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6672"}},{"Add":{"text":" FindEvent :: EventId -> DBOp (Maybe KeyedLogEntry)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6732"}},{"Add":{"text":" FindEvents :: ProjectId -> UserId -> Interval' -> DBOp [LogEntry]","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6806"}},{"Add":{"text":" ReadWorkIndex :: ProjectId -> DBOp WorkIndex","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6856"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6857"}},{"Add":{"text":" CreateAuction :: ProjectId -> Auction -> DBOp AuctionId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6918"}},{"Add":{"text":" FindAuction :: AuctionId -> DBOp (Maybe Auction)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:6974"}},{"Add":{"text":" CreateBid :: AuctionId -> Bid -> DBOp BidId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7027"}},{"Add":{"text":" ReadBids :: AuctionId -> DBOp [Bid]","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7073"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7074"}},{"Add":{"text":" OpForbidden :: forall x. UserId -> OpForbiddenReason -> DBOp x -> DBOp x","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7154"}},{"Add":{"text":" SubjectNotFound :: forall x. DBOp x -> DBOp x","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7203"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7204"}},{"Add":{"text":"data OpForbiddenReason = UserNotProjectMember","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7250"}},{"Add":{"text":" | UserNotEventLogger","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7294"}},{"Add":{"text":" deriving (Eq, Show)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7337"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7338"}},{"Add":{"text":"class DBEval m where","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7359"}},{"Add":{"text":" dbEval :: DBOp a -> m a","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7385"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7386"}},{"Add":{"text":"-- User ops","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7398"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7399"}},{"Add":{"text":"createUser :: User -> DBProg UserId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7435"}},{"Add":{"text":"createUser = fc . CreateUser","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7464"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7465"}},{"Add":{"text":"findUser :: UserId -> DBProg (Maybe User)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7507"}},{"Add":{"text":"findUser = fc . FindUser","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7532"}}]}},{"Replacement":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":61,"ins":{"up_context":[{"change":3,"pos":5045}],"down_context":[{"change":3,"pos":1389}],"flag":"BLOCK","start":7534,"end":8488,"inode":{"change":3,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5045},"to":{"change":3,"start":3772,"end":3904},"introduced_by":3}],"inode":{"change":3,"pos":4936}},"ins_contents":[{"Add":{"text":"findUserByName :: UserName -> DBProg (Maybe KeyedUser)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7588"}},{"Add":{"text":"findUserByName = fc . FindUserByName","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7625"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7626"}},{"Add":{"text":"-- Project ops","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7641"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7642"}},{"Add":{"text":"createProject :: Project -> DBProg ProjectId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7687"}},{"Add":{"text":"createProject p = do","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7708"}},{"Add":{"text":" pid <- fc $ CreateProject p","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7738"}},{"Add":{"text":" addUserToProject pid (p ^. initiator) (p ^. initiator)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7795"}},{"Add":{"text":" return pid","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7808"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7809"}},{"Add":{"text":"findProject :: ProjectId -> UserId -> DBProg (Maybe Project)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7870"}},{"Add":{"text":"findProject pid uid = do","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7895"}},{"Add":{"text":" kps <- findUserProjects uid ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7926"}},{"Add":{"text":" pure $ fmap snd (find (\\(pid', _) -> pid' == pid) kps)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7983"}},{"Add":{"text":" ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7986"}},{"Add":{"text":"findUserProjects :: UserId -> DBProg [KeyedProject]","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8038"}},{"Add":{"text":"findUserProjects = fc . FindUserProjects","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8079"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8080"}},{"Add":{"text":"addUserToProject :: ProjectId -> InvitingUID -> InvitedUID -> DBProg ()","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8152"}},{"Add":{"text":"addUserToProject pid current new = ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8188"}},{"Add":{"text":" withProjectAuth pid current $ AddUserToProject pid current new","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8253"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8254"}},{"Add":{"text":"withProjectAuth :: ProjectId -> UserId -> DBOp a -> DBProg a","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8315"}},{"Add":{"text":"withProjectAuth pid uid act = do","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8348"}},{"Add":{"text":" px <- findUserProjects uid","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8377"}},{"Add":{"text":" fc $ if any (\\(pid', _) -> pid' == pid) px ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8423"}},{"Add":{"text":" then act ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8437"}},{"Add":{"text":" else OpForbidden uid UserNotProjectMember act","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8487"}}],"del_contents":[{"Del":{"text":"type QDBUser = (UserId, User)","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3805"}},{"Del":{"text":"type QDBLogEntry = (EventId, ProjectId, UserId, LogEntry)","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3863"}},{"Del":{"text":"type QDBProject = (ProjectId, Project)","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3903"}}]}},{"Replacement":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":91,"ins":{"up_context":[{"change":3,"pos":1390}],"down_context":[{"change":3,"pos":1146}],"flag":"BLOCK","start":8489,"end":9016,"inode":{"change":3,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6669},"to":{"change":3,"start":6669,"end":6687},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6687},"to":{"change":3,"start":1079,"end":1145},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1145},"to":{"change":3,"start":3905,"end":4023},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":4023},"to":{"change":3,"start":1244,"end":1314},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3190},"to":{"change":3,"start":1244,"end":1314},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1314},"to":{"change":3,"start":296,"end":342},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3190},"to":{"change":3,"start":296,"end":342},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":296},"to":{"change":3,"start":296,"end":342},"introduced_by":3}],"inode":{"change":3,"pos":4936}},"ins_contents":[{"Add":{"text":"-- Log ops","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8499"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8500"}},{"Add":{"text":"-- TODO: ignore \"duplicate\" events within some small time limit?","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8565"}},{"Add":{"text":"createEvent :: ProjectId -> UserId -> LogEntry -> DBProg EventId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8630"}},{"Add":{"text":"createEvent p u l = withProjectAuth p u $ CreateEvent p u l","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8690"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8691"}},{"Add":{"text":"amendEvent :: UserId -> EventId -> EventAmendment -> DBProg AmendmentId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8763"}},{"Add":{"text":"amendEvent uid eid a = do","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8789"}},{"Add":{"text":" ev <- findEvent eid","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8811"}},{"Add":{"text":" let act = AmendEvent eid a","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8840"}},{"Add":{"text":" forbidden = OpForbidden uid UserNotEventLogger act","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8897"}},{"Add":{"text":" missing = SubjectNotFound act","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:8933"}},{"Add":{"text":" fc $ maybe missing (\\(_, uid', _) -> if uid' == uid then act else forbidden) ev","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:9015"}}],"del_contents":[{"Del":{"text":"data QDB m = QDB ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6686"}},{"Del":{"text":" { createEvent :: ProjectId -> UserId -> LogEntry -> m EventId","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:1144"}},{"Del":{"text":" , amendEvent :: EventId -> EventAmendment -> m AmendmentId","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:3968"}},{"Del":{"text":" , findEvent :: EventId -> m (Maybe QDBLogEntry)","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:4022"}},{"Del":{"text":" , findEvents :: ProjectId -> UserId -> Interval' -> m [LogEntry]","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:1313"}},{"Del":{"text":" , readWorkIndex :: ProjectId -> m WorkIndex","pos":"5XFJNUAZUCQ3WCGW4QRIAWR764QYDOPHOIVO2TRMGSSG7UDX2M2AC:341"}}]}},{"Replacement":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":105,"ins":{"up_context":[{"change":3,"pos":1147}],"down_context":[{"change":3,"pos":4024}],"flag":"BLOCK","start":9017,"end":9097,"inode":{"change":3,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1147},"to":{"change":3,"start":1147,"end":1256},"introduced_by":3}],"inode":{"change":3,"pos":4936}},"ins_contents":[{"Add":{"text":"findEvent :: EventId -> DBProg (Maybe KeyedLogEntry)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:9069"}},{"Add":{"text":"findEvent = fc . FindEvent","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:9096"}}],"del_contents":[{"Del":{"text":" , createAuction :: ProjectId -> Auction -> m AuctionId","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:1203"}},{"Del":{"text":" , findAuction :: AuctionId -> m (Maybe Auction)","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:1255"}}]}},{"Replacement":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":108,"ins":{"up_context":[{"change":3,"pos":4025}],"down_context":[{"change":3,"pos":1303}],"flag":"BLOCK","start":9098,"end":9207,"inode":{"change":3,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4025},"to":{"change":3,"start":4025,"end":4074},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1302},"to":{"change":3,"start":1598,"end":1640},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":4074},"to":{"change":3,"start":1598,"end":1640},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1598},"to":{"change":3,"start":1598,"end":1640},"introduced_by":3}],"inode":{"change":3,"pos":4936}},"ins_contents":[{"Add":{"text":"findEvents :: ProjectId -> UserId -> Interval' -> DBProg [LogEntry]","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:9165"}},{"Add":{"text":"findEvents p u i = fc $ FindEvents p u i","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:9206"}}],"del_contents":[{"Del":{"text":" , createBid :: AuctionId -> Bid -> m BidId","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:4073"}},{"Del":{"text":" , readBids :: AuctionId -> m [Bid]","pos":"Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC:1639"}}]}},{"Replacement":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":111,"ins":{"up_context":[{"change":3,"pos":1304}],"down_context":[{"change":3,"pos":1305}],"flag":"BLOCK","start":9208,"end":9333,"inode":{"change":3,"pos":4936}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":1304},"to":{"change":3,"start":578,"end":662},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1640},"to":{"change":3,"start":578,"end":662},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":578},"to":{"change":3,"start":578,"end":662},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":662},"to":{"change":3,"start":799,"end":855},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":7012},"to":{"change":3,"start":799,"end":855},"introduced_by":3}],"inode":{"change":3,"pos":4936}},"ins_contents":[{"Add":{"text":"readWorkIndex :: ProjectId -> UserId -> DBProg WorkIndex","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:9264"}},{"Add":{"text":"readWorkIndex pid uid = withProjectAuth pid uid $ ReadWorkIndex pid","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:9332"}}],"del_contents":[{"Del":{"text":" , createUser :: User -> m UserId","pos":"5XFJNUAZUCQ3WCGW4QRIAWR764QYDOPHOIVO2TRMGSSG7UDX2M2AC:615"}},{"Del":{"text":" , findUser :: UserId -> m (Maybe User)","pos":"5XFJNUAZUCQ3WCGW4QRIAWR764QYDOPHOIVO2TRMGSSG7UDX2M2AC:661"}},{"Del":{"text":" , findUserByUserName :: UserName -> m (Maybe QDBUser)","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:854"}}]}},{"Edit":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":114,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":1306},"to":{"change":3,"start":1449,"end":1493},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":855},"to":{"change":3,"start":1449,"end":1493},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1493},"to":{"change":3,"start":1307,"end":1359},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1359},"to":{"change":3,"start":1641,"end":1690},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1493},"to":{"change":3,"start":1641,"end":1690},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":855},"to":{"change":3,"start":1641,"end":1690},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":855},"to":{"change":3,"start":5159,"end":5163},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1688},"to":{"change":3,"start":5159,"end":5163},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1690},"to":{"change":3,"start":5159,"end":5163},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1725},"to":{"change":3,"start":5159,"end":5163},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":5930},"to":{"change":3,"start":5159,"end":5163},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":7064},"to":{"change":3,"start":5159,"end":5163},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5159},"to":{"change":3,"start":5159,"end":5163},"introduced_by":3}],"inode":{"change":3,"pos":4936}}},"contents":[{"Del":{"text":" , createProject :: Project -> m ProjectId","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:1492"}},{"Del":{"text":" , findProject :: ProjectId -> m (Maybe Project)","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:1358"}},{"Del":{"text":" , findUserProjects :: UserId -> m [QDBProject]","pos":"Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC:1689"}},{"Del":{"text":" }","pos":"64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC:5162"}}]}},{"Replacement":{"inode":{"change":3,"pos":19},"path":"lib/Aftok/Json.hs","line":82,"ins":{"up_context":[{"change":3,"pos":486}],"down_context":[{"change":3,"pos":5170}],"flag":"BLOCK","start":9335,"end":9375,"inode":{"change":3,"pos":19}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":486},"to":{"change":3,"start":1514,"end":1552},"introduced_by":3}],"inode":{"change":3,"pos":19}},"ins_contents":[{"Add":{"text":"qdbProjectJSON :: KeyedProject -> Value","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:9374"}}],"del_contents":[{"Del":{"text":"qdbProjectJSON :: QDBProject -> Value","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:1551"}}]}},{"Replacement":{"inode":{"change":3,"pos":846},"path":"lib/Aftok/TimeLog.hs","line":10,"ins":{"up_context":[{"change":3,"pos":2184}],"down_context":[{"change":3,"pos":2185}],"flag":"BLOCK","start":9377,"end":9394,"inode":{"change":3,"pos":846}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":2184},"to":{"change":3,"start":3,"end":12},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":5508},"to":{"change":3,"start":3,"end":12},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3635},"to":{"change":3,"start":3,"end":12},"introduced_by":3}],"inode":{"change":3,"pos":846}},"ins_contents":[{"Add":{"text":" , DepF, toDepF","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:9393"}}],"del_contents":[{"Del":{"text":" , DepF","pos":"SLL7262CJUE7TZDDZZXFROHCVVDA527WA4PHXCKEGZUJF2EN5MQAC:11"}}]}},{"Edit":{"inode":{"change":3,"pos":846},"path":"lib/Aftok/TimeLog.hs","line":15,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":12},"to":{"change":3,"start":5326,"end":5345},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":5608},"to":{"change":3,"start":5326,"end":5345},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":6623},"to":{"change":3,"start":5326,"end":5345},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":24},"to":{"change":3,"start":5326,"end":5345},"introduced_by":3}],"inode":{"change":3,"pos":846}}},"contents":[{"Del":{"text":" , Months(Months)","pos":"64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC:5344"}}]}},{"Edit":{"inode":{"change":3,"pos":846},"path":"lib/Aftok/TimeLog.hs","line":98,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":2354}],"down_context":[{"change":3,"pos":344}],"flag":"BLOCK","start":9395,"end":9529,"inode":{"change":3,"pos":846}}},"contents":[{"Add":{"text":"toDepF :: DepreciationFunction -> DepF","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:9433"}},{"Add":{"text":"toDepF (LinearDepreciation undepLength depLength) = linearDepreciation undepLength depLength","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:9527"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:9528"}}]}},{"Replacement":{"inode":{"change":3,"pos":846},"path":"lib/Aftok/TimeLog.hs","line":106,"ins":{"up_context":[{"change":3,"pos":1502}],"down_context":[{"change":3,"pos":1576}],"flag":"BLOCK","start":9530,"end":9600,"inode":{"change":3,"pos":846}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1502},"to":{"change":3,"start":1502,"end":1576},"introduced_by":3}],"inode":{"change":3,"pos":846}},"ins_contents":[{"Add":{"text":"workCredit df ptime ivals = getSum $ F.foldMap (Sum . df ptime) ivals","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:9599"}}],"del_contents":[{"Del":{"text":"workCredit depf ptime ivals = getSum $ F.foldMap (Sum . depf ptime) ivals","pos":"7KZP4RHZ3QSYTPPQ257A65Z5UPX44TF2LAI2U5EMULQCLDCEUK2AC:1575"}}]}},{"Edit":{"inode":{"change":3,"pos":846},"path":"lib/Aftok/TimeLog.hs","line":164,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":23},"to":{"change":3,"start":23,"end":57},"introduced_by":3}],"inode":{"change":3,"pos":846}}},"contents":[{"Del":{"text":"newtype Months = Months Integer ","pos":"A2J7B4SCCJYKQV3G2LDHEFNE2GUICO3N3Y5FKF4EUZW5AG7PTDWAC:55"}},{"Del":{"text":"","pos":"A2J7B4SCCJYKQV3G2LDHEFNE2GUICO3N3Y5FKF4EUZW5AG7PTDWAC:56"}}]}},{"Replacement":{"inode":{"change":3,"pos":846},"path":"lib/Aftok/TimeLog.hs","line":167,"ins":{"up_context":[{"change":3,"pos":2121}],"down_context":[{"change":3,"pos":2404}],"flag":"BLOCK","start":9601,"end":9933,"inode":{"change":3,"pos":846}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2121},"to":{"change":3,"start":2121,"end":2404},"introduced_by":3}],"inode":{"change":3,"pos":846}},"ins_contents":[{"Add":{"text":"linearDepreciation :: Months -- ^ The number of initial months during which no depreciation occurs","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:9699"}},{"Add":{"text":" -> Months -- ^ The number of months over which each logged interval will be depreciated","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:9806"}},{"Add":{"text":" -> DepF -- ^ The resulting configured depreciation function.","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:9888"}},{"Add":{"text":"linearDepreciation undepLength depLength = ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:9932"}}],"del_contents":[{"Del":{"text":"linearDepreciation :: Months -> -- ^ The number of initial months during which no depreciation occurs","pos":"7KZP4RHZ3QSYTPPQ257A65Z5UPX44TF2LAI2U5EMULQCLDCEUK2AC:2222"}},{"Del":{"text":" Months -> -- ^ The number of months over which each logged interval will be depreciated","pos":"7KZP4RHZ3QSYTPPQ257A65Z5UPX44TF2LAI2U5EMULQCLDCEUK2AC:2332"}},{"Del":{"text":" DepF","pos":"7KZP4RHZ3QSYTPPQ257A65Z5UPX44TF2LAI2U5EMULQCLDCEUK2AC:2359"}},{"Del":{"text":"linearDepreciation undepPeriod depPeriod = ","pos":"7KZP4RHZ3QSYTPPQ257A65Z5UPX44TF2LAI2U5EMULQCLDCEUK2AC:2403"}}]}},{"Replacement":{"inode":{"change":3,"pos":846},"path":"lib/Aftok/TimeLog.hs","line":175,"ins":{"up_context":[{"change":3,"pos":2537}],"down_context":[{"change":3,"pos":970}],"flag":"BLOCK","start":9934,"end":10010,"inode":{"change":3,"pos":846}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2537},"to":{"change":3,"start":2537,"end":2613},"introduced_by":3}],"inode":{"change":3,"pos":846}},"ins_contents":[{"Add":{"text":" maxDepreciable = monthsLength undepLength ^+^ monthsLength depLength ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10009"}}],"del_contents":[{"Del":{"text":" maxDepreciable = monthsLength undepPeriod ^+^ monthsLength depPeriod ","pos":"7KZP4RHZ3QSYTPPQ257A65Z5UPX44TF2LAI2U5EMULQCLDCEUK2AC:2612"}}]}},{"Replacement":{"inode":{"change":3,"pos":846},"path":"lib/Aftok/TimeLog.hs","line":179,"ins":{"up_context":[{"change":3,"pos":508}],"down_context":[{"change":3,"pos":2647}],"flag":"BLOCK","start":10011,"end":10059,"inode":{"change":3,"pos":846}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":508},"to":{"change":3,"start":508,"end":556},"introduced_by":3}],"inode":{"change":3,"pos":846}},"ins_contents":[{"Add":{"text":" if dt < monthsLength undepLength then 1","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10058"}}],"del_contents":[{"Del":{"text":" if dt < monthsLength undepPeriod then 1","pos":"SLL7262CJUE7TZDDZZXFROHCVVDA527WA4PHXCKEGZUJF2EN5MQAC:555"}}]}},{"FileAdd":{"meta":{"basename":"Util.hs","metadata":0},"context":[{"change":2,"pos":679}],"contents":[{"Add":{"text":"{-# LANGUAGE RankNTypes #-}","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10089"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10090"}},{"Add":{"text":"module Aftok.Util where","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10114"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10115"}},{"Add":{"text":"import ClassyPrelude","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10136"}},{"Add":{"text":"import Control.Monad.Free.Church","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10169"}},{"Add":{"text":"import Data.Functor.Coyoneda","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10198"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10199"}},{"Add":{"text":"type Program f a = F (Coyoneda f) a","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10235"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10236"}},{"Add":{"text":"-- Shouldn't this exist already in a library somewhere?","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10292"}},{"Add":{"text":"interpret :: Monad m => (forall x. f x -> m x) -> Program f a -> m a","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10361"}},{"Add":{"text":"interpret nt p = ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10379"}},{"Add":{"text":" let eval (Coyoneda cf cm) = nt cm >>= cf","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10422"}},{"Add":{"text":" in iterM eval p","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10441"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10442"}},{"Add":{"text":"fc :: f a -> Program f a","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10467"}},{"Add":{"text":"fc = liftF . liftCoyoneda","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10493"}}]}},{"Replacement":{"inode":{"change":3,"pos":2457},"path":"lib/Aftok.hs","line":1,"ins":{"up_context":[{"change":3,"pos":2457}],"down_context":[{"change":3,"pos":1126}],"flag":"BLOCK","start":10528,"end":10600,"inode":{"change":3,"pos":2457}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2457},"to":{"change":3,"start":1742,"end":1794},"introduced_by":3}],"inode":{"change":3,"pos":2457}},"ins_contents":[{"Add":{"text":"{-# LANGUAGE NoImplicitPrelude, TemplateHaskell, DeriveDataTypeable #-}","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10599"}}],"del_contents":[{"Del":{"text":"{-# LANGUAGE NoImplicitPrelude, TemplateHaskell #-}","pos":"75N3UJ4JK56KXF56GASGPAWLFYGJDETVJNYTF4KXFCQM767JUU5AC:1793"}}]}},{"Replacement":{"inode":{"change":3,"pos":2457},"path":"lib/Aftok.hs","line":7,"ins":{"up_context":[{"change":3,"pos":2690}],"down_context":[{"change":3,"pos":2203}],"flag":"BLOCK","start":10601,"end":10704,"inode":{"change":3,"pos":2457}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":2690},"to":{"change":3,"start":1818,"end":1838},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1149},"to":{"change":3,"start":1818,"end":1838},"introduced_by":3}],"inode":{"change":3,"pos":2457}},"ins_contents":[{"Add":{"text":"import Control.Lens(makePrisms, makeLenses)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10644"}},{"Add":{"text":"import Data.Aeson","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10662"}},{"Add":{"text":"import Data.Aeson.Types","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10686"}},{"Add":{"text":"import Data.Data","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10703"}}],"del_contents":[{"Del":{"text":"import Control.Lens","pos":"75N3UJ4JK56KXF56GASGPAWLFYGJDETVJNYTF4KXFCQM767JUU5AC:1837"}}]}},{"Edit":{"inode":{"change":3,"pos":2457},"path":"lib/Aftok.hs","line":19,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":4286}],"down_context":[{"change":3,"pos":2763}],"flag":"BLOCK","start":10705,"end":10777,"inode":{"change":3,"pos":2457}}},"contents":[{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10705"}},{"Add":{"text":"newtype Months = Months Integer ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10738"}},{"Add":{"text":" deriving (Eq, Show, Data, Typeable)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10776"}}]}},{"Edit":{"inode":{"change":3,"pos":2457},"path":"lib/Aftok.hs","line":23,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":2764}],"down_context":[{"change":3,"pos":2221}],"flag":"BLOCK","start":10778,"end":10878,"inode":{"change":3,"pos":2457}}},"contents":[{"Add":{"text":"data DepreciationFunction = LinearDepreciation Months Months","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10838"}},{"Add":{"text":" deriving (Eq, Show, Data, Typeable)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10876"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10877"}}]}},{"Edit":{"inode":{"change":3,"pos":2457},"path":"lib/Aftok.hs","line":46,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":3168}],"down_context":[{"change":3,"pos":3168}],"flag":"BLOCK","start":10879,"end":10913,"inode":{"change":3,"pos":2457}}},"contents":[{"Add":{"text":" , _depf :: DepreciationFunction","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10912"}}]}},{"Edit":{"inode":{"change":3,"pos":2457},"path":"lib/Aftok.hs","line":68,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":3595}],"down_context":[],"flag":"BLOCK","start":10914,"end":11675,"inode":{"change":3,"pos":2457}}},"contents":[{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10914"}},{"Add":{"text":"-- | others tbd","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10953"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10954"}},{"Add":{"text":"instance ToJSON DepreciationFunction where","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:10997"}},{"Add":{"text":" toJSON (LinearDepreciation (Months up) (Months dp)) =","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11053"}},{"Add":{"text":" object [ \"type\" .= (\"LinearDepreciation\" :: Text)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11107"}},{"Add":{"text":" , \"arguments\" .= (","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11137"}},{"Add":{"text":" object [ \"undep\" .= up","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11173"}},{"Add":{"text":" , \"dep\" .= dp","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11207"}},{"Add":{"text":" ]","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11229"}},{"Add":{"text":" )]","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11243"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11244"}},{"Add":{"text":"instance FromJSON DepreciationFunction where","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11289"}},{"Add":{"text":" parseJSON (Object v) = do","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11317"}},{"Add":{"text":" t <- v .: \"text\" :: Parser Text","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11353"}},{"Add":{"text":" args <- v .: \"arguments\"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11382"}},{"Add":{"text":" case unpack t of","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11403"}},{"Add":{"text":" \"LinearDepreciation\" -> ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11434"}},{"Add":{"text":" let undep = Months <$> (args .: \"undep\")","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11483"}},{"Add":{"text":" dep = Months <$> (args .: \"dep\")","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11530"}},{"Add":{"text":" in LinearDepreciation <$> undep <*> dep","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11579"}},{"Add":{"text":" x -> fail $ \"No depreciation function recognized for type \" <> x","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11650"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11651"}},{"Add":{"text":" parseJSON _ = mzero","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11673"}},{"Add":{"text":"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11674"}}]}},{"Replacement":{"inode":{"change":3,"pos":203},"path":"server/Aftok/Snaplet/Auth.hs","line":6,"ins":{"up_context":[{"change":3,"pos":283}],"down_context":[{"change":3,"pos":1947}],"flag":"BLOCK","start":11680,"end":11710,"inode":{"change":3,"pos":203}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":283},"to":{"change":3,"start":283,"end":310},"introduced_by":3}],"inode":{"change":3,"pos":203}},"ins_contents":[{"Add":{"text":"-- import Control.Monad.State","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11709"}}],"del_contents":[{"Del":{"text":"import Control.Monad.State","pos":"I2KHGVD44KT4MQJXGCTVSQKMBO6TVCY72F26TLXGWRL6PHGF6RNQC:309"}}]}},{"Replacement":{"inode":{"change":3,"pos":203},"path":"server/Aftok/Snaplet/Auth.hs","line":16,"ins":{"up_context":[{"change":3,"pos":527}],"down_context":[{"change":3,"pos":564}],"flag":"BLOCK","start":11711,"end":11751,"inode":{"change":3,"pos":203}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":527},"to":{"change":3,"start":527,"end":564},"introduced_by":3}],"inode":{"change":3,"pos":203}},"ins_contents":[{"Add":{"text":"-- import Snap.Snaplet.PostgresqlSimple","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11750"}}],"del_contents":[{"Del":{"text":"import Snap.Snaplet.PostgresqlSimple","pos":"I2KHGVD44KT4MQJXGCTVSQKMBO6TVCY72F26TLXGWRL6PHGF6RNQC:563"}}]}},{"Edit":{"inode":{"change":3,"pos":203},"path":"server/Aftok/Snaplet/Auth.hs","line":34,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1742},"to":{"change":3,"start":1742,"end":1780},"introduced_by":3}],"inode":{"change":3,"pos":203}}},"contents":[{"Del":{"text":" QDB{..} <- view qdb <$> with qm get","pos":"I2KHGVD44KT4MQJXGCTVSQKMBO6TVCY72F26TLXGWRL6PHGF6RNQC:1779"}}]}},{"Replacement":{"inode":{"change":3,"pos":203},"path":"server/Aftok/Snaplet/Auth.hs","line":35,"ins":{"up_context":[{"change":3,"pos":1458}],"down_context":[{"change":3,"pos":2024}],"flag":"BLOCK","start":11752,"end":11803,"inode":{"change":3,"pos":203}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1458},"to":{"change":3,"start":1458,"end":1524},"introduced_by":3}],"inode":{"change":3,"pos":203}},"ins_contents":[{"Add":{"text":" qdbUser <- snapEval $ findUserByName currentUser","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11802"}}],"del_contents":[{"Del":{"text":" qdbUser <- liftPG . runReaderT $ findUserByUserName currentUser","pos":"2G3GNDDUOVPF45PELJ65ZB2IXEHJJXJILFRVHZXGPXUL4BVNZJFQC:1523"}}]}},{"Replacement":{"inode":{"change":3,"pos":203},"path":"server/Aftok/Snaplet/Auth.hs","line":40,"ins":{"up_context":[{"change":3,"pos":2162}],"down_context":[{"change":3,"pos":2252}],"flag":"BLOCK","start":11804,"end":11872,"inode":{"change":3,"pos":203}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2162},"to":{"change":3,"start":4020,"end":4106},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":4106},"to":{"change":3,"start":2062,"end":2100},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2252},"to":{"change":3,"start":2062,"end":2100},"introduced_by":3}],"inode":{"change":3,"pos":203}},"ins_contents":[{"Add":{"text":"requireProjectId :: Handler App App ProjectId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11849"}},{"Add":{"text":"requireProjectId = do","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11871"}}],"del_contents":[{"Del":{"text":"requireProjectAccess :: Handler App App (UserId, ProjectId)","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:4079"}},{"Del":{"text":"requireProjectAccess = do","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:4105"}},{"Del":{"text":" QDB{..} <- view qdb <$> with qm get","pos":"PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC:2099"}}]}},{"Replacement":{"inode":{"change":3,"pos":203},"path":"server/Aftok/Snaplet/Auth.hs","line":44,"ins":{"up_context":[{"change":3,"pos":2346}],"down_context":[{"change":3,"pos":2558}],"flag":"BLOCK","start":11873,"end":11997,"inode":{"change":3,"pos":203}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2346},"to":{"change":3,"start":2346,"end":2445},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2445},"to":{"change":3,"start":2101,"end":2120},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2120},"to":{"change":3,"start":4107,"end":4134},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":4134},"to":{"change":3,"start":2120,"end":2181},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2120},"to":{"change":3,"start":2120,"end":2181},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2181},"to":{"change":3,"start":8101,"end":8146},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":8146},"to":{"change":3,"start":4135,"end":4164},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2233},"to":{"change":3,"start":4135,"end":4164},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":4164},"to":{"change":3,"start":2255,"end":2361},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2255},"to":{"change":3,"start":2255,"end":2361},"introduced_by":3}],"inode":{"change":3,"pos":203}},"ins_contents":[{"Add":{"text":" Nothing -> snapError 400 \"Value of parameter projectId could not be parsed to a valid value.\"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11971"}},{"Add":{"text":" Just pid -> pure pid","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:11996"}}],"del_contents":[{"Del":{"text":" Nothing -> snapError 403 \"Value of parameter projectId could not be parsed to a valid value.\"","pos":"I2KHGVD44KT4MQJXGCTVSQKMBO6TVCY72F26TLXGWRL6PHGF6RNQC:2444"}},{"Del":{"text":" Just pid -> do","pos":"PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC:2119"}},{"Del":{"text":" uid <- requireUserId","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:4133"}},{"Del":{"text":" projects <- liftPG . runReaderT $ findUserProjects uid","pos":"PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC:2180"}},{"Del":{"text":" if any (\\p -> p ^. _1 == pid) projects","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:8145"}},{"Del":{"text":" then pure (uid, pid)","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:4163"}},{"Del":{"text":" else snapError 403 $ \"User \" ++ (tshow uid) ++ \" does not have access to project \" ++ (tshow pid)","pos":"PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC:2360"}}]}},{"Edit":{"inode":{"change":3,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":7,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2486},"to":{"change":3,"start":2486,"end":2533},"introduced_by":3}],"inode":{"change":3,"pos":2363}}},"contents":[{"Del":{"text":"import Control.Lens","pos":"PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC:2505"}},{"Del":{"text":"import Control.Monad.State","pos":"PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC:2532"}}]}},{"Edit":{"inode":{"change":3,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":15,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2688},"to":{"change":3,"start":2688,"end":2725},"introduced_by":3}],"inode":{"change":3,"pos":2363}}},"contents":[{"Del":{"text":"import Snap.Snaplet.PostgresqlSimple","pos":"PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC:2724"}}]}},{"Replacement":{"inode":{"change":3,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":16,"ins":{"up_context":[{"change":3,"pos":2726}],"down_context":[{"change":3,"pos":2791}],"flag":"BLOCK","start":11999,"end":12066,"inode":{"change":3,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2726},"to":{"change":3,"start":2726,"end":2791},"introduced_by":3}],"inode":{"change":3,"pos":2363}},"ins_contents":[{"Add":{"text":"data CProject = CP { cpn :: Text, cpdepf :: DepreciationFunction }","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12065"}}],"del_contents":[{"Del":{"text":"data CreateProject = CreateProject { createProjectName :: Text }","pos":"PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC:2790"}}]}},{"Replacement":{"inode":{"change":3,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":18,"ins":{"up_context":[{"change":3,"pos":2792}],"down_context":[{"change":3,"pos":2892}],"flag":"BLOCK","start":12067,"end":12167,"inode":{"change":3,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2792},"to":{"change":3,"start":2792,"end":2892},"introduced_by":3}],"inode":{"change":3,"pos":2363}},"ins_contents":[{"Add":{"text":"instance FromJSON CProject where","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12099"}},{"Add":{"text":" parseJSON (Object v) = CP <$> v .: \"projectName\" <*> v .: \"depf\"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12166"}}],"del_contents":[{"Del":{"text":"instance FromJSON CreateProject where","pos":"PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC:2829"}},{"Del":{"text":" parseJSON (Object v) = CreateProject <$> v .: \"projectName\"","pos":"PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC:2891"}}]}},{"Edit":{"inode":{"change":3,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":24,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3132},"to":{"change":3,"start":3132,"end":3170},"introduced_by":3}],"inode":{"change":3,"pos":2363}}},"contents":[{"Del":{"text":" QDB{..} <- view qdb <$> with qm get","pos":"PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC:3169"}}]}},{"Replacement":{"inode":{"change":3,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":28,"ins":{"up_context":[{"change":3,"pos":3357}],"down_context":[{"change":3,"pos":3442}],"flag":"BLOCK","start":12168,"end":12240,"inode":{"change":3,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3357},"to":{"change":3,"start":3357,"end":3442},"introduced_by":3}],"inode":{"change":3,"pos":2363}},"ins_contents":[{"Add":{"text":" snapEval . createProject $ Project (cpn cp) timestamp uid (cpdepf cp)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12239"}}],"del_contents":[{"Del":{"text":" liftPG . runReaderT . createProject $ Project (createProjectName cp) timestamp uid","pos":"PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC:3441"}}]}},{"Replacement":{"inode":{"change":3,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":30,"ins":{"up_context":[{"change":3,"pos":3443}],"down_context":[{"change":3,"pos":1433}],"flag":"BLOCK","start":12241,"end":12294,"inode":{"change":3,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3443},"to":{"change":3,"start":1382,"end":1433},"introduced_by":3}],"inode":{"change":3,"pos":2363}},"ins_contents":[{"Add":{"text":"projectListHandler :: Handler App App [KeyedProject]","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12293"}}],"del_contents":[{"Del":{"text":"projectListHandler :: Handler App App [QDBProject]","pos":"XTBSG4C7SCZUFOU2BTNFR6B6TCGYI35BWUV4PVTS3N7KNH5VEARQC:1432"}}]}},{"Edit":{"inode":{"change":3,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":32,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1457},"to":{"change":3,"start":1457,"end":1495},"introduced_by":3}],"inode":{"change":3,"pos":2363}}},"contents":[{"Del":{"text":" QDB{..} <- view qdb <$> with qm get","pos":"XTBSG4C7SCZUFOU2BTNFR6B6TCGYI35BWUV4PVTS3N7KNH5VEARQC:1494"}}]}},{"Replacement":{"inode":{"change":3,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":33,"ins":{"up_context":[{"change":3,"pos":1518}],"down_context":[{"change":3,"pos":1563}],"flag":"BLOCK","start":12295,"end":12329,"inode":{"change":3,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1518},"to":{"change":3,"start":1518,"end":1563},"introduced_by":3}],"inode":{"change":3,"pos":2363}},"ins_contents":[{"Add":{"text":" snapEval $ findUserProjects uid","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12328"}}],"del_contents":[{"Del":{"text":" liftPG . runReaderT $ findUserProjects uid","pos":"XTBSG4C7SCZUFOU2BTNFR6B6TCGYI35BWUV4PVTS3N7KNH5VEARQC:1562"}}]}},{"Replacement":{"inode":{"change":3,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":37,"ins":{"up_context":[{"change":3,"pos":3469}],"down_context":[{"change":3,"pos":3610}],"flag":"BLOCK","start":12330,"end":12418,"inode":{"change":3,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3469},"to":{"change":3,"start":3469,"end":3507},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3507},"to":{"change":3,"start":4166,"end":4205},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":4205},"to":{"change":3,"start":3564,"end":3610},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3564},"to":{"change":3,"start":3564,"end":3610},"introduced_by":3}],"inode":{"change":3,"pos":2363}},"ins_contents":[{"Add":{"text":" uid <- requireUserId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12352"}},{"Add":{"text":" pid <- requireProjectId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12378"}},{"Add":{"text":" mp <- snapEval $ findProject pid uid","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12417"}}],"del_contents":[{"Del":{"text":" QDB{..} <- view qdb <$> with qm get","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:3506"}},{"Del":{"text":" pid <- fmap snd requireProjectAccess","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:4204"}},{"Del":{"text":" mp <- liftPG . runReaderT $ findProject pid","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:3609"}}]}},{"Edit":{"inode":{"change":3,"pos":3234},"path":"server/Aftok/Snaplet/Users.hs","line":10,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":115},"to":{"change":3,"start":115,"end":142},"introduced_by":3}],"inode":{"change":3,"pos":3234}}},"contents":[{"Del":{"text":"import Control.Monad.State","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:141"}}]}},{"Edit":{"inode":{"change":3,"pos":3234},"path":"server/Aftok/Snaplet/Users.hs","line":19,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3729},"to":{"change":3,"start":230,"end":267},"introduced_by":3}],"inode":{"change":3,"pos":3234}}},"contents":[{"Del":{"text":"import Snap.Snaplet.PostgresqlSimple","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:266"}}]}},{"Replacement":{"inode":{"change":3,"pos":3234},"path":"server/Aftok/Snaplet/Users.hs","line":20,"ins":{"up_context":[{"change":3,"pos":269}],"down_context":[{"change":3,"pos":298}],"flag":"BLOCK","start":12420,"end":12436,"inode":{"change":3,"pos":3234}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":269},"to":{"change":3,"start":269,"end":298},"introduced_by":3}],"inode":{"change":3,"pos":3234}},"ins_contents":[{"Add":{"text":"data CUser = CU","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12435"}}],"del_contents":[{"Del":{"text":"data CreateUser = CreateUser","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:297"}}]}},{"Replacement":{"inode":{"change":3,"pos":3234},"path":"server/Aftok/Snaplet/Users.hs","line":24,"ins":{"up_context":[{"change":3,"pos":349}],"down_context":[{"change":3,"pos":4305}],"flag":"BLOCK","start":12437,"end":12456,"inode":{"change":3,"pos":3234}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":349},"to":{"change":3,"start":349,"end":373},"introduced_by":3}],"inode":{"change":3,"pos":3234}},"ins_contents":[{"Add":{"text":"makeLenses ''CUser","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12455"}}],"del_contents":[{"Del":{"text":"makeLenses ''CreateUser","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:372"}}]}},{"Replacement":{"inode":{"change":3,"pos":3234},"path":"server/Aftok/Snaplet/Users.hs","line":26,"ins":{"up_context":[{"change":3,"pos":4306}],"down_context":[{"change":3,"pos":409}],"flag":"BLOCK","start":12457,"end":12487,"inode":{"change":3,"pos":3234}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4306},"to":{"change":3,"start":374,"end":409},"introduced_by":3}],"inode":{"change":3,"pos":3234}},"ins_contents":[{"Add":{"text":"instance FromJSON CUser where","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12486"}}],"del_contents":[{"Del":{"text":"instance FromJSON CreateUser where","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:408"}}]}},{"Replacement":{"inode":{"change":3,"pos":3234},"path":"server/Aftok/Snaplet/Users.hs","line":31,"ins":{"up_context":[{"change":3,"pos":572}],"down_context":[{"change":3,"pos":634}],"flag":"BLOCK","start":12488,"end":12542,"inode":{"change":3,"pos":3234}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":572},"to":{"change":3,"start":572,"end":634},"introduced_by":3}],"inode":{"change":3,"pos":3234}},"ins_contents":[{"Add":{"text":" in CU <$> u <*> (fromString <$> v .: \"password\")","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12541"}}],"del_contents":[{"Del":{"text":" in CreateUser <$> u <*> (fromString <$> v .: \"password\")","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:633"}}]}},{"Edit":{"inode":{"change":3,"pos":3234},"path":"server/Aftok/Snaplet/Users.hs","line":36,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":678},"to":{"change":3,"start":678,"end":716},"introduced_by":3}],"inode":{"change":3,"pos":3234}}},"contents":[{"Del":{"text":" QDB{..} <- view qdb <$> with qm get","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:715"}}]}},{"Replacement":{"inode":{"change":3,"pos":3234},"path":"server/Aftok/Snaplet/Users.hs","line":39,"ins":{"up_context":[{"change":3,"pos":3691}],"down_context":[{"change":3,"pos":3764}],"flag":"BLOCK","start":12543,"end":12605,"inode":{"change":3,"pos":3234}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3691},"to":{"change":3,"start":3691,"end":3764},"introduced_by":3}],"inode":{"change":3,"pos":3234}},"ins_contents":[{"Add":{"text":" createQUser = snapEval (createUser $ userData ^. cuser)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12604"}}],"del_contents":[{"Del":{"text":" createQUser = liftPG $ runReaderT (createUser $ userData ^. cuser)","pos":"PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC:3763"}}]}},{"Edit":{"inode":{"change":3,"pos":5424},"path":"server/Aftok/Snaplet/WorkLog.hs","line":6,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5565},"to":{"change":3,"start":5565,"end":5592},"introduced_by":3}],"inode":{"change":3,"pos":5424}}},"contents":[{"Del":{"text":"import Control.Monad.State","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:5591"}}]}},{"Edit":{"inode":{"change":3,"pos":5424},"path":"server/Aftok/Snaplet/WorkLog.hs","line":23,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5793},"to":{"change":3,"start":5793,"end":5830},"introduced_by":3}],"inode":{"change":3,"pos":5424}}},"contents":[{"Del":{"text":"import Snap.Snaplet.PostgresqlSimple","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:5829"}}]}},{"Edit":{"inode":{"change":3,"pos":5424},"path":"server/Aftok/Snaplet/WorkLog.hs","line":24,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5831},"to":{"change":3,"start":8217,"end":8282},"introduced_by":3}],"inode":{"change":3,"pos":5424}}},"contents":[{"Del":{"text":"-- TODO: ignore \"duplicate\" events within some small time limit?","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:8281"}}]}},{"Replacement":{"inode":{"change":3,"pos":5424},"path":"server/Aftok/Snaplet/WorkLog.hs","line":26,"ins":{"up_context":[{"change":3,"pos":3246}],"down_context":[{"change":3,"pos":5971}],"flag":"BLOCK","start":12607,"end":12656,"inode":{"change":3,"pos":5424}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":3246},"to":{"change":3,"start":5933,"end":5971},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3369},"to":{"change":3,"start":5933,"end":5971},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5933},"to":{"change":3,"start":5933,"end":5971},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5971},"to":{"change":3,"start":4709,"end":4746},"introduced_by":3}],"inode":{"change":3,"pos":5424}},"ins_contents":[{"Add":{"text":" uid <- requireUserId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12629"}},{"Add":{"text":" pid <- requireProjectId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12655"}}],"del_contents":[{"Del":{"text":" QDB{..} <- view qdb <$> with qm get","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:5970"}},{"Del":{"text":" (uid, pid) <- requireProjectAccess","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:4745"}}]}},{"Replacement":{"inode":{"change":3,"pos":5424},"path":"server/Aftok/Snaplet/WorkLog.hs","line":32,"ins":{"up_context":[{"change":3,"pos":6216}],"down_context":[{"change":3,"pos":8283}],"flag":"BLOCK","start":12657,"end":12756,"inode":{"change":3,"pos":5424}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6216},"to":{"change":3,"start":6216,"end":6308},"introduced_by":3}],"inode":{"change":3,"pos":5424}},"ins_contents":[{"Add":{"text":" Nothing -> ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12672"}},{"Add":{"text":" snapError 400 $ \"Unable to parse bitcoin address from \" <> (tshow addrBytes)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12755"}}],"del_contents":[{"Del":{"text":" Nothing -> snapError 400 $ \"Unable to parse bitcoin address from \" <> (tshow addrBytes)","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:6307"}}]}},{"Replacement":{"inode":{"change":3,"pos":5424},"path":"server/Aftok/Snaplet/WorkLog.hs","line":35,"ins":{"up_context":[{"change":3,"pos":8301}],"down_context":[{"change":3,"pos":6347}],"flag":"BLOCK","start":12757,"end":12851,"inode":{"change":3,"pos":5424}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":8301},"to":{"change":3,"start":8301,"end":8477},"introduced_by":3}],"inode":{"change":3,"pos":5424}},"ins_contents":[{"Add":{"text":" snapEval $ createEvent pid uid (LogEntry addr (evCtr timestamp) (A.decode requestBody))","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12850"}}],"del_contents":[{"Del":{"text":" let logEntry a = LogEntry a (evCtr timestamp) (A.decode requestBody)","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:8375"}},{"Del":{"text":" storeEv a = runReaderT . createEvent pid uid $ logEntry a","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:8444"}},{"Del":{"text":" in liftPG $ storeEv addr","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:8476"}}]}},{"Replacement":{"inode":{"change":3,"pos":5424},"path":"server/Aftok/Snaplet/WorkLog.hs","line":39,"ins":{"up_context":[{"change":3,"pos":3456}],"down_context":[{"change":3,"pos":6631}],"flag":"BLOCK","start":12852,"end":12936,"inode":{"change":3,"pos":5424}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":3456},"to":{"change":3,"start":6436,"end":6474},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6436},"to":{"change":3,"start":6436,"end":6474},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6474},"to":{"change":3,"start":4819,"end":4858},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":4858},"to":{"change":3,"start":1619,"end":1661},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3515},"to":{"change":3,"start":1619,"end":1661},"introduced_by":3}],"inode":{"change":3,"pos":5424}},"ins_contents":[{"Add":{"text":" uid <- requireUserId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12874"}},{"Add":{"text":" pid <- requireProjectId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12900"}},{"Add":{"text":" snapEval $ readWorkIndex pid uid","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12935"}}],"del_contents":[{"Del":{"text":" QDB{..} <- view qdb <$> with qm get","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:6473"}},{"Del":{"text":" pid <- fmap snd requireProjectAccess","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:4857"}},{"Del":{"text":" liftPG . runReaderT $ readWorkIndex pid","pos":"XTBSG4C7SCZUFOU2BTNFR6B6TCGYI35BWUV4PVTS3N7KNH5VEARQC:1660"}}]}},{"Replacement":{"inode":{"change":3,"pos":5424},"path":"server/Aftok/Snaplet/WorkLog.hs","line":45,"ins":{"up_context":[{"change":3,"pos":4930}],"down_context":[{"change":3,"pos":5005}],"flag":"BLOCK","start":12937,"end":12986,"inode":{"change":3,"pos":5424}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4930},"to":{"change":3,"start":4930,"end":5005},"introduced_by":3}],"inode":{"change":3,"pos":5424}},"ins_contents":[{"Add":{"text":" uid <- requireUserId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12959"}},{"Add":{"text":" pid <- requireProjectId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12985"}}],"del_contents":[{"Del":{"text":" QDB{..} <- view qdb <$> with qm get","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:4967"}},{"Del":{"text":" (uid, pid) <- requireProjectAccess","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:5004"}}]}},{"Replacement":{"inode":{"change":3,"pos":5424},"path":"server/Aftok/Snaplet/WorkLog.hs","line":53,"ins":{"up_context":[{"change":3,"pos":8589}],"down_context":[{"change":3,"pos":5385}],"flag":"BLOCK","start":12987,"end":13024,"inode":{"change":3,"pos":5424}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":8589},"to":{"change":3,"start":5337,"end":5385},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5337},"to":{"change":3,"start":5337,"end":5385},"introduced_by":3}],"inode":{"change":3,"pos":5424}},"ins_contents":[{"Add":{"text":" snapEval $ findEvents pid uid ival","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:13023"}}],"del_contents":[{"Del":{"text":" liftPG . runReaderT $ findEvents pid uid ival","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:5384"}}]}},{"Replacement":{"inode":{"change":3,"pos":5424},"path":"server/Aftok/Snaplet/WorkLog.hs","line":57,"ins":{"up_context":[{"change":3,"pos":3671}],"down_context":[{"change":3,"pos":3065}],"flag":"BLOCK","start":13025,"end":13259,"inode":{"change":3,"pos":5424}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":3671},"to":{"change":3,"start":6705,"end":6744},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6705},"to":{"change":3,"start":6705,"end":6744},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6744},"to":{"change":3,"start":8590,"end":8682},"introduced_by":3}],"inode":{"change":3,"pos":5424}},"ins_contents":[{"Add":{"text":" uid <- requireUserId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:13047"}},{"Add":{"text":" pid <- requireProjectId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:13073"}},{"Add":{"text":" projectMay <- snapEval $ findProject pid uid ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:13121"}},{"Add":{"text":" project <- maybe (snapError 400 $ \"Project not found for id \" <> tshow pid) pure projectMay","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:13215"}},{"Add":{"text":" widx <- snapEval $ readWorkIndex pid uid","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:13258"}}],"del_contents":[{"Del":{"text":" (QModules QDB{..} df) <- with qm get","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:6743"}},{"Del":{"text":" pid <- fmap snd requireProjectAccess","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:8630"}},{"Del":{"text":" widx <- liftPG . runReaderT $ readWorkIndex pid","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:8681"}}]}},{"Replacement":{"inode":{"change":3,"pos":5424},"path":"server/Aftok/Snaplet/WorkLog.hs","line":63,"ins":{"up_context":[{"change":3,"pos":3102}],"down_context":[{"change":3,"pos":3781}],"flag":"BLOCK","start":13260,"end":13315,"inode":{"change":3,"pos":5424}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":3102},"to":{"change":3,"start":1705,"end":1736},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6779},"to":{"change":3,"start":1705,"end":1736},"introduced_by":3}],"inode":{"change":3,"pos":5424}},"ins_contents":[{"Add":{"text":" pure $ payouts (toDepF $ project ^. depf) ptime widx","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:13314"}}],"del_contents":[{"Del":{"text":" pure $ payouts df ptime widx","pos":"XTBSG4C7SCZUFOU2BTNFR6B6TCGYI35BWUV4PVTS3N7KNH5VEARQC:1735"}}]}},{"Replacement":{"inode":{"change":3,"pos":5424},"path":"server/Aftok/Snaplet/WorkLog.hs","line":67,"ins":{"up_context":[{"change":3,"pos":8755}],"down_context":[{"change":3,"pos":8828}],"flag":"BLOCK","start":13316,"end":13339,"inode":{"change":3,"pos":5424}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":8755},"to":{"change":3,"start":8755,"end":8828},"introduced_by":3}],"inode":{"change":3,"pos":5424}},"ins_contents":[{"Add":{"text":" uid <- requireUserId","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:13338"}}],"del_contents":[{"Del":{"text":" QDB{..} <- view qdb <$> with qm get","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:8792"}},{"Del":{"text":" (uid, _) <- requireProjectAccess","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:8827"}}]}},{"Edit":{"inode":{"change":3,"pos":5424},"path":"server/Aftok/Snaplet/WorkLog.hs","line":73,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":9000},"to":{"change":3,"start":5479,"end":5480},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5479},"to":{"change":3,"start":5479,"end":5480},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5480},"to":{"change":3,"start":9001,"end":9146},"introduced_by":3}],"inode":{"change":3,"pos":5424}}},"contents":[{"Del":{"text":"","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:5479"}},{"Del":{"text":" ev <- liftPG . runReaderT $ findEvent eventId","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:9048"}},{"Del":{"text":" (_, _, uid', _) <- maybe (snapError 404 (\"Event not found for id \" <> tshow eventId)) pure ev","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:9144"}},{"Del":{"text":"","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:9145"}}]}},{"Replacement":{"inode":{"change":3,"pos":5424},"path":"server/Aftok/Snaplet/WorkLog.hs","line":75,"ins":{"up_context":[{"change":3,"pos":9233}],"down_context":[],"flag":"BLOCK","start":13340,"end":13477,"inode":{"change":3,"pos":5424}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":9233},"to":{"change":3,"start":9233,"end":9487},"introduced_by":3}],"inode":{"change":3,"pos":5424}},"ins_contents":[{"Add":{"text":" either ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:13349"}},{"Add":{"text":" (snapError 400 . pack)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:13376"}},{"Add":{"text":" (snapEval . amendEvent uid eventId)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:13416"}},{"Add":{"text":" (parseEither (parseEventAmendment modTime) requestJSON)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:13476"}}],"del_contents":[{"Del":{"text":" if uid' == uid","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:9249"}},{"Del":{"text":" then either ","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:9266"}},{"Del":{"text":" (snapError 400 . pack)","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:9295"}},{"Del":{"text":" (liftPG . runReaderT . amendEvent eventId)","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:9344"}},{"Del":{"text":" (parseEither (parseEventAmendment modTime) requestJSON)","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:9406"}},{"Del":{"text":" else","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:9415"}},{"Del":{"text":" (snapError 403 \"You do not have permission to view this event.\")","pos":"GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC:9486"}}]}},{"Edit":{"inode":{"change":3,"pos":1088},"path":"server/Aftok/Snaplet.hs","line":11,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":9522},"to":{"change":3,"start":1290,"end":1324},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1290},"to":{"change":3,"start":1290,"end":1324},"introduced_by":3}],"inode":{"change":3,"pos":1088}}},"contents":[{"Del":{"text":"import Database.PostgreSQL.Simple","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:1323"}}]}},{"Replacement":{"inode":{"change":3,"pos":1088},"path":"server/Aftok/Snaplet.hs","line":14,"ins":{"up_context":[{"change":2,"pos":3072}],"down_context":[{"change":3,"pos":1432}],"flag":"BLOCK","start":13479,"end":13497,"inode":{"change":3,"pos":1088}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":3072},"to":{"change":2,"start":3072,"end":3093},"introduced_by":2}],"inode":{"change":3,"pos":1088}},"ins_contents":[{"Add":{"text":"import Aftok.Util","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:13496"}}],"del_contents":[{"Del":{"text":"import Aftok.TimeLog","pos":"4U7F3CPIDTK6JSEDMNMHVKSR7HOQDLZQD2PPVMDLHO5SFSIMUXZAC:3092"}}]}},{"Edit":{"inode":{"change":3,"pos":1088},"path":"server/Aftok/Snaplet.hs","line":21,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1576},"to":{"change":3,"start":1576,"end":1688},"introduced_by":3}],"inode":{"change":3,"pos":1088}}},"contents":[{"Del":{"text":"","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:1576"}},{"Del":{"text":"data QModules = QModules ","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:1602"}},{"Del":{"text":" { _qdb :: QDB (ReaderT Connection IO) ","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:1643"}},{"Del":{"text":" , _depf :: DepF","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:1661"}},{"Del":{"text":" }","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:1665"}},{"Del":{"text":"makeLenses ''QModules","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:1687"}}]}},{"Replacement":{"inode":{"change":3,"pos":1088},"path":"server/Aftok/Snaplet.hs","line":23,"ins":{"up_context":[{"change":3,"pos":1705}],"down_context":[{"change":3,"pos":1770}],"flag":"BLOCK","start":13498,"end":13534,"inode":{"change":3,"pos":1088}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1705},"to":{"change":3,"start":1705,"end":1770},"introduced_by":3}],"inode":{"change":3,"pos":1088}},"ins_contents":[{"Add":{"text":" { _sess :: Snaplet SessionManager","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:13533"}}],"del_contents":[{"Del":{"text":" { _qm :: Snaplet QModules","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:1733"}},{"Del":{"text":" , _sess :: Snaplet SessionManager","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:1769"}}]}},{"Replacement":{"inode":{"change":3,"pos":1088},"path":"server/Aftok/Snaplet.hs","line":33,"ins":{"up_context":[{"change":3,"pos":2007}],"down_context":[{"change":3,"pos":4063}],"flag":"BLOCK","start":13535,"end":13642,"inode":{"change":3,"pos":1088}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2007},"to":{"change":3,"start":2007,"end":2227},"introduced_by":3}],"inode":{"change":3,"pos":1088}},"ins_contents":[{"Add":{"text":"snapEval :: DBProg a -> Handler App App a ","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:13577"}},{"Add":{"text":"snapEval p = liftPG . runReaderT . runQDBM $ interpret dbEval p","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:13641"}}],"del_contents":[{"Del":{"text":"-- | FIXME, make configurable","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:2036"}},{"Del":{"text":"qdbpgSnapletInit :: SnapletInit a QModules","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:2079"}},{"Del":{"text":"qdbpgSnapletInit = makeSnaplet \"qdbpg\" \"QDB on Postgresql\" Nothing $ do","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:2151"}},{"Del":{"text":" pure $ QModules postgresQDB $ linearDepreciation (Months 6) (Months 60) ","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:2226"}}]}},{"Edit":{"inode":{"change":50,"pos":5188},"path":"server/Main.hs","line":33,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":2,"pos":3379},"to":{"change":3,"start":2219,"end":2273},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":8476},"to":{"change":3,"start":2219,"end":2273},"introduced_by":3}],"inode":{"change":50,"pos":5188}}},"contents":[{"Del":{"text":" qms <- nestSnaplet \"qmodules\" qm qdbpgSnapletInit","pos":"O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC:2272"}}]}},{"Replacement":{"inode":{"change":50,"pos":5188},"path":"server/Main.hs","line":64,"ins":{"up_context":[{"change":3,"pos":9014}],"down_context":[{"change":3,"pos":1077}],"flag":"BLOCK","start":13644,"end":13675,"inode":{"change":50,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":9014},"to":{"change":3,"start":217,"end":252},"introduced_by":3}],"inode":{"change":50,"pos":5188}},"ins_contents":[{"Add":{"text":" return $ App sesss pgs auths","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:13674"}}],"del_contents":[{"Del":{"text":" return $ App qms sesss pgs auths","pos":"VJPT6HDRMJAJD5PT3VOYJYW43ISKLICEHLSDWSROX2XZWO2OFZPQC:251"}}]}}],"owner":"nuttycom","repo":"aftok","token":"bYhS3M3qnijJN5heE2wITV8Rvj3ZOOli1ib8jY5V3P4=","login":null}

…

Dependencies

Change contents

Review