{"header":{"message":"Avoid divisions by zero & display depreciated time shares.","description":null,"timestamp":"2021-02-20T03:32:31Z","authors":[{"email":"kris@nutty.land","name":"Kris Nuttycombe"}]},"hash":"4WBBSPHBORAQYMQYVKVO4SLPUD5R2TI2WWIMRYMARNTWP5CQU22AC","authors":[],"deps":{"hashes":[["4WBBSPHBORAQYMQYVKVO4SLPUD5R2TI2WWIMRYMARNTWP5CQU22AC","Avoid divisions by zero & display depreciated time shares."],["AA",null],["W3S6D7LUBHQ633AHXRWYHK6Y7OFSYLHAJAYOQGYM7QSIADHVSMCAC","Fix sample paths in DEVELOPMENT.md"],["ZHV75AEN7ZYS4LMQK3THSU7O25UIVURBR6XNKUFRN7NVPGHULWDAC","basic cleanup"],["ZEAH247RECTEYICYRFRX574BZWZYVGFWETVVKDCAPTKIGRYQT4IQC","Show all project contributors, not just those with a revenue share."],["NAFJ6RB3KYDBSTSNB3WQSVUQEPUGG2RZCBWRF4XNT2UKSOXDNMDQC","Minor module reorg."],["U7YAT2ZK6GMS7KVFFEQTDRFX6GIN7HVHNWGKIFDGJGE2G2IXSF6QC","Add error reporting to signup form."],["4QX5E5ACVN57KJLCWOM4JEI6JSV4XZNCWVYPOTKSOMUW3SOMCNJAC","Initial compilation of payouts function succeeds."],["CI4OPKQMU4CIX3QPGA5GWSEOPJ2FAREDBVU6X33E7X3EEQXAICRQC","Add payouts spec."],["PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC","Postgres & auth are beginning to function."],["7KZP4RHZ3QSYTPPQ257A65Z5UPX44TF2LAI2U5EMULQCLDCEUK2AC","Switch from Data.Time to Data.Thyme"],["7HPY3QPFPN35PSPUBVNW2GTFB3CBQZBST4J2BAVJ7QMXLIUN52JAC","Fix linting errors. (yay hlint!)"],["3GLHIR4FVKUCN5EIXCJROC3RDN3Y7DHBU3KN3QBRDHST7VPIOOUAC","Add migrate script for prod system."],["APOATM4XGEQZHANT5IY57SKA2QEQ34BZHGNTRAV5KRVPEHUCDYKAC","Add getProjectDetail call to project API"],["HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC","Implement core of payments/billing infrastructure."],["7TQPQW3NPNUK6CMTOT5ZE4MDENJ5SUOJ2VF2M4JGKHLZHXVX4F3QC","Begin adding parsing for project detail."],["NJNMO72S7VIUV22JXB4IFPZMHWTJAOTP6EC6Z4QSKYIROSXT52MQC","Add zcash.com submodule and update client to modern halogen."],["W3PIWHDK4DQHBD54FN4PIF3PELIT2V74L62AMMXM2M5BHYAACALAC","Fix logged hours display error."],["GMYPBCWEB6NKURRILAHR3TJUKDOGR2ZMK5I6MS6P5G2LAGH36P3QC","Make docker-compose work."],["X3ES7NUA42D2BF7CQDDKXM5CLMVCYA3H5YU5KXLPTGDBFPE2LNVAC","Fine. I'll use ormolu. At least it doesn't break the code."],["PPW6ROC5U7FZCJCH2RX7UJ3PJYNPUMNEZ6KKO3375VFRUM4VT3VQC","Render project data"],["Z5KNL332YCRMHKU3NG7YWNLUCNHKSLXBZ3O22FSS47MNVXU2FDLAC","Add skeleton of project overview HTML."],["DZ7G36NC3LJLRBZDFIYINFKNABIK2WIBINKLW7FCSKT5G4YSBYUQC","Allow first-revenue cutoff for depreciation."],["46PUXHTYRNWQEELXOM7M7NTAFABN5JYQSB5HPN5VF4HWBDQWJU7QC","Implement project invitations."],["NSRSSSTRMJPPUYQANYDWGI5D3NVM6RQEVZCDUUNQAOL3OWQTD27AC","Update nginx.conf, make aftok host configurable for cli scripts."],["UWMGUJOW5X5HQTS76T2FD7MNAJF7SESPQVU5FDIZO52V75TT2X6AC","Autoformat sources."],["XXJFUZOVELM3KIPRU6C2NHB3YQ3B3A3GGF2YYBTYJGPU3PR2OV4AC","Add first revenue date to project payout computation."],["M4PWY5RUV72AEDCNC4O7UKBPHBIACR4354YTSC3SUZGWFV5UBJBQC","Preliminary work to add support for Zcash payments."],["EMVTF2IWNQGRL44FC4JNG5FYYQTZSFPNM6SOM7IAEH6T7PPK2NVAC","WIP moving back to snap."],["IR75ZMX32SFFMDNV2I2L22X5JTWCOC4UUBCSPU7S6VHR6HFV6ADQC","Return actual events for interval ends, not just timestamps."],["QAC2QJ32ZLAK25KJ7SWT27WOZKD2MMDE7OZPHIRRFP2W2QZW7PBAC","Add project overview page to client."],["E2KOBKIJ2QMMC77UYNURGCTDGAIIRMBJNG7BMVLSFFPK5RAZ7KFAC","Add setup script detailing the setup of the docker host."],["NVOCQVASZWTKQJG7GPH7KHKZZR7NUG4WLV5YY4KAIRPCJRWCZPIAC","Initial failing tests."]],"deps":["W3S6D7LUBHQ633AHXRWYHK6Y7OFSYLHAJAYOQGYM7QSIADHVSMCAC","ZHV75AEN7ZYS4LMQK3THSU7O25UIVURBR6XNKUFRN7NVPGHULWDAC","ZEAH247RECTEYICYRFRX574BZWZYVGFWETVVKDCAPTKIGRYQT4IQC"],"known":["4QX5E5ACVN57KJLCWOM4JEI6JSV4XZNCWVYPOTKSOMUW3SOMCNJAC","EMVTF2IWNQGRL44FC4JNG5FYYQTZSFPNM6SOM7IAEH6T7PPK2NVAC","PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC","7KZP4RHZ3QSYTPPQ257A65Z5UPX44TF2LAI2U5EMULQCLDCEUK2AC","7HPY3QPFPN35PSPUBVNW2GTFB3CBQZBST4J2BAVJ7QMXLIUN52JAC","HMDM3B557TO5RYP2IGFFC2C2VN6HYZTDQ47CJY2O37BW55DSMFZAC","GMYPBCWEB6NKURRILAHR3TJUKDOGR2ZMK5I6MS6P5G2LAGH36P3QC","NSRSSSTRMJPPUYQANYDWGI5D3NVM6RQEVZCDUUNQAOL3OWQTD27AC","NJNMO72S7VIUV22JXB4IFPZMHWTJAOTP6EC6Z4QSKYIROSXT52MQC","UWMGUJOW5X5HQTS76T2FD7MNAJF7SESPQVU5FDIZO52V75TT2X6AC","X3ES7NUA42D2BF7CQDDKXM5CLMVCYA3H5YU5KXLPTGDBFPE2LNVAC","M4PWY5RUV72AEDCNC4O7UKBPHBIACR4354YTSC3SUZGWFV5UBJBQC","IR75ZMX32SFFMDNV2I2L22X5JTWCOC4UUBCSPU7S6VHR6HFV6ADQC","3GLHIR4FVKUCN5EIXCJROC3RDN3Y7DHBU3KN3QBRDHST7VPIOOUAC","NAFJ6RB3KYDBSTSNB3WQSVUQEPUGG2RZCBWRF4XNT2UKSOXDNMDQC","Z5KNL332YCRMHKU3NG7YWNLUCNHKSLXBZ3O22FSS47MNVXU2FDLAC","PPW6ROC5U7FZCJCH2RX7UJ3PJYNPUMNEZ6KKO3375VFRUM4VT3VQC","7TQPQW3NPNUK6CMTOT5ZE4MDENJ5SUOJ2VF2M4JGKHLZHXVX4F3QC","APOATM4XGEQZHANT5IY57SKA2QEQ34BZHGNTRAV5KRVPEHUCDYKAC","U7YAT2ZK6GMS7KVFFEQTDRFX6GIN7HVHNWGKIFDGJGE2G2IXSF6QC","CI4OPKQMU4CIX3QPGA5GWSEOPJ2FAREDBVU6X33E7X3EEQXAICRQC","DZ7G36NC3LJLRBZDFIYINFKNABIK2WIBINKLW7FCSKT5G4YSBYUQC","W3PIWHDK4DQHBD54FN4PIF3PELIT2V74L62AMMXM2M5BHYAACALAC","XXJFUZOVELM3KIPRU6C2NHB3YQ3B3A3GGF2YYBTYJGPU3PR2OV4AC","46PUXHTYRNWQEELXOM7M7NTAFABN5JYQSB5HPN5VF4HWBDQWJU7QC"]},"hunks":[{"Replacement":{"inode":{"change":5,"pos":132},"path":"DEVELOPMENT.md","line":115,"ins":{"up_context":[{"change":2,"pos":123}],"down_context":[{"change":5,"pos":1260}],"flag":"BLOCK","start":1,"end":130,"inode":{"change":5,"pos":132}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":2,"pos":123},"to":{"change":5,"start":1143,"end":1260},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1143},"to":{"change":5,"start":1143,"end":1260},"introduced_by":5}],"inode":{"change":5,"pos":132}},"ins_contents":[{"Add":"`deploy/dbinit.sh` script to initialize the database. The postgres user's password "},{"Add":"can be specified in the docker-compose file."}],"del_contents":[{"Del":"following commands to initialize the database. The postgres user's password is\nspecified in the docker-compose file.\n"}]}},{"Replacement":{"inode":{"change":5,"pos":132},"path":"DEVELOPMENT.md","line":119,"ins":{"up_context":[{"change":5,"pos":1269}],"down_context":[{"change":5,"pos":1434}],"flag":"BLOCK","start":131,"end":185,"inode":{"change":5,"pos":132}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1269},"to":{"change":5,"start":1269,"end":1370},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1370},"to":{"change":2,"start":124,"end":197},"introduced_by":2}],"inode":{"change":5,"pos":132}},"ins_contents":[{"Add":"./deploy/dbinit.sh local/postgres/db-dumps/aftok.dump"}],"del_contents":[{"Del":"createuser -h localhost -U postgres -W -P aftok\ncreatedb -h localhost -U postgres -W -O aftok aftok \n"},{"Del":"psql -h localhost -U aftok -W aftok < local/postgres/db-dumps/aftok.dump\n"}]}},{"Replacement":{"inode":{"change":5,"pos":2899},"path":"client/src/Aftok/Api/Project.purs","line":104,"ins":{"up_context":[{"change":5,"pos":311}],"down_context":[{"change":5,"pos":1635}],"flag":"BLOCK","start":191,"end":246,"inode":{"change":5,"pos":2899}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":311},"to":{"change":5,"start":2771,"end":2796},"introduced_by":5}],"inode":{"change":5,"pos":2899}},"ins_contents":[{"Add":" , loggedHours :: Hours"},{"Add":" , depreciatedHours :: Hours"}],"del_contents":[{"Del":" , timeDevoted :: Hours\n"}]}},{"Replacement":{"inode":{"change":5,"pos":2899},"path":"client/src/Aftok/Api/Project.purs","line":128,"ins":{"up_context":[{"change":5,"pos":3033}],"down_context":[{"change":5,"pos":1761}],"flag":"BLOCK","start":247,"end":353,"inode":{"change":5,"pos":2899}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":3033},"to":{"change":5,"start":3033,"end":3081},"introduced_by":5}],"inode":{"change":5,"pos":2899}},"ins_contents":[{"Add":" loggedHours <- Hours <$> x .: \"loggedHours\""},{"Add":" depreciatedHours <- Hours <$> x .: \"depreciatedHours\""}],"del_contents":[{"Del":" timeDevoted <- Hours <$> x .: \"timeDevoted\"\n"}]}},{"Replacement":{"inode":{"change":5,"pos":2899},"path":"client/src/Aftok/Api/Project.purs","line":135,"ins":{"up_context":[{"change":5,"pos":1837}],"down_context":[{"change":5,"pos":381}],"flag":"BLOCK","start":354,"end":448,"inode":{"change":5,"pos":2899}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":5,"pos":1837},"to":{"change":5,"start":3227,"end":3303},"introduced_by":5},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":3227},"to":{"change":5,"start":3227,"end":3303},"introduced_by":5}],"inode":{"change":5,"pos":2899}},"ins_contents":[{"Add":" pure $ Contributor' { userId, handle, joinedOn, loggedHours, depreciatedHours, revShare }"}],"del_contents":[{"Del":" pure $ Contributor' { userId, handle, joinedOn, timeDevoted, revShare }\n"}]}},{"Replacement":{"inode":{"change":31,"pos":91},"path":"client/src/Aftok/Overview.purs","line":177,"ins":{"up_context":[{"change":5,"pos":5678}],"down_context":[{"change":5,"pos":5786}],"flag":"BLOCK","start":450,"end":597,"inode":{"change":31,"pos":91}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":5678},"to":{"change":3,"start":165,"end":273},"introduced_by":3}],"inode":{"change":31,"pos":91}},"ins_contents":[{"Add":" , colmd2 (Just \"Contributed\")"},{"Add":" , colmd3 (Just \"After Depreciation\")"},{"Add":" , colmd3 (Just \"Revenue Share\")"}],"del_contents":[{"Del":" , colmd3 (Just \"Contributed Hours\")\n , colmd3 (Just \"Current Revenue Share\")\n"}]}},{"Replacement":{"inode":{"change":31,"pos":91},"path":"client/src/Aftok/Overview.purs","line":230,"ins":{"up_context":[{"change":5,"pos":6331}],"down_context":[{"change":3,"pos":447}],"flag":"BLOCK","start":598,"end":739,"inode":{"change":31,"pos":91}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":6331},"to":{"change":3,"start":391,"end":447},"introduced_by":3}],"inode":{"change":31,"pos":91}},"ins_contents":[{"Add":" , colmd2 (Just $ show (unwrap pud.loggedHours) <> \" hours\")"},{"Add":" , colmd3 (Just $ show (unwrap pud.depreciatedHours) <> \" hours\")"}],"del_contents":[{"Del":" , colmd3 (Just $ show (unwrap pud.timeDevoted))\n"}]}},{"Replacement":{"inode":{"change":31,"pos":91},"path":"client/src/Aftok/Overview.purs","line":298,"ins":{"up_context":[{"change":5,"pos":12101}],"down_context":[{"change":5,"pos":12152}],"flag":"BLOCK","start":740,"end":846,"inode":{"change":31,"pos":91}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":12101},"to":{"change":5,"start":12101,"end":12152},"introduced_by":5}],"inode":{"change":31,"pos":91}},"ins_contents":[{"Add":" , loggedHours: Hours 100.0"},{"Add":" , depreciatedHours: Hours 75.0"}],"del_contents":[{"Del":" , timeDevoted: Hours 100.0\n"}]}},{"FileAdd":{"meta":{"basename":"dbinit.sh","metadata":64},"context":[{"change":32,"pos":1}],"contents":[{"Add":"#!/bin/bash"},{"Add":""},{"Add":"createuser -h localhost -U postgres -W -P aftok"},{"Add":"createdb -h localhost -U postgres -W -O aftok aftok "},{"Add":"psql -h localhost -U postgres -W aftok \\"},{"Add":" -c 'CREATE EXTENSION IF NOT EXISTS \"uuid-ossp\" WITH SCHEMA public;'"},{"Add":"if [ -n \"$1\" ]; then "},{"Add":" psql -h localhost -U aftok -W aftok < $1"},{"Add":"fi"},{"Add":""}]}},{"Replacement":{"inode":{"change":5,"pos":23741},"path":"docker-compose.yml","line":81,"ins":{"up_context":[{"change":5,"pos":24621}],"down_context":[{"change":5,"pos":24648}],"flag":"BLOCK","start":1180,"end":1209,"inode":{"change":5,"pos":23741}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":24621},"to":{"change":5,"start":24621,"end":24648},"introduced_by":5}],"inode":{"change":5,"pos":23741}},"ins_contents":[{"Add":" source: v_aftok-data"}],"del_contents":[{"Del":" source: aftok-data\n"}]}},{"Replacement":{"inode":{"change":5,"pos":23741},"path":"docker-compose.yml","line":109,"ins":{"up_context":[{"change":5,"pos":24731}],"down_context":[{"change":5,"pos":10495}],"flag":"BLOCK","start":1210,"end":1226,"inode":{"change":5,"pos":23741}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":24731},"to":{"change":5,"start":24731,"end":24745},"introduced_by":5}],"inode":{"change":5,"pos":23741}},"ins_contents":[{"Add":" v_aftok-data:"}],"del_contents":[{"Del":" aftok-data:\n"}]}},{"Edit":{"inode":{"change":33,"pos":846},"path":"lib/Aftok/TimeLog.hs","line":114,"atom":{"NewVertex":{"up_context":[{"change":5,"pos":22764}],"down_context":[{"change":5,"pos":52471}],"flag":"BLOCK","start":1230,"end":1252,"inode":{"change":33,"pos":846}}},"contents":[{"Add":" deriving (Show, Eq)"}]}},{"Edit":{"inode":{"change":33,"pos":846},"path":"lib/Aftok/TimeLog.hs","line":123,"atom":{"NewVertex":{"up_context":[{"change":5,"pos":22918}],"down_context":[{"change":5,"pos":22918}],"flag":"BLOCK","start":1253,"end":1275,"inode":{"change":33,"pos":846}}},"contents":[{"Add":" deriving (Show, Eq)"}]}},{"Replacement":{"inode":{"change":33,"pos":846},"path":"lib/Aftok/TimeLog.hs","line":171,"ins":{"up_context":[{"change":5,"pos":1194}],"down_context":[{"change":5,"pos":1032}],"flag":"BLOCK","start":1276,"end":1441,"inode":{"change":33,"pos":846}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1194},"to":{"change":5,"start":1194,"end":1289},"introduced_by":5}],"inode":{"change":33,"pos":846}},"ins_contents":[{"Add":" else"},{"Add":" if depLength == 0"},{"Add":" then 0"},{"Add":" else max 0 (1 - (C.toSeconds (intervalAge ^-^ undepLength) / C.toSeconds depLength))"}],"del_contents":[{"Del":" else max 0 (1 - (C.toSeconds (intervalAge ^-^ undepLength) / C.toSeconds depLength))\n"}]}},{"Replacement":{"inode":{"change":33,"pos":846},"path":"lib/Aftok/TimeLog.hs","line":202,"ins":{"up_context":[{"change":5,"pos":1402}],"down_context":[{"change":5,"pos":23689}],"flag":"BLOCK","start":1442,"end":1628,"inode":{"change":33,"pos":846}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1402},"to":{"change":5,"start":23587,"end":23689},"introduced_by":5}],"inode":{"change":33,"pos":846}},"ins_contents":[{"Add":" withShareFraction t ="},{"Add":" t & wsShare .~ ("},{"Add":" if totalTime == 0"},{"Add":" then 0"},{"Add":" else (C.toSeconds (t ^. wsDepreciated) / C.toSeconds totalTime)"},{"Add":" )"}],"del_contents":[{"Del":" withShareFraction t = t & wsShare .~ (C.toSeconds (t ^. wsDepreciated) / C.toSeconds totalTime)\n"}]}},{"Edit":{"inode":{"change":5,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":39,"atom":{"NewVertex":{"up_context":[{"change":5,"pos":24770}],"down_context":[{"change":5,"pos":24770}],"flag":"BLOCK","start":1633,"end":1652,"inode":{"change":5,"pos":2363}}},"contents":[{"Add":" wsDepreciated,"}]}},{"Replacement":{"inode":{"change":5,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":72,"ins":{"up_context":[{"change":5,"pos":25060}],"down_context":[{"change":5,"pos":25091}],"flag":"BLOCK","start":1653,"end":1720,"inode":{"change":5,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":25060},"to":{"change":5,"start":25060,"end":25091},"introduced_by":5}],"inode":{"change":5,"pos":2363}},"ins_contents":[{"Add":" _loggedHours :: Hours,"},{"Add":" _depreciatedHours :: Hours,"}],"del_contents":[{"Del":" _timeDevoted :: Hours,\n"}]}},{"Edit":{"inode":{"change":5,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":120,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":1756},"to":{"change":4,"start":66,"end":67},"introduced_by":4}],"inode":{"change":5,"pos":2363}}},"contents":[{"Del":"\n"}]}},{"Replacement":{"inode":{"change":5,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":127,"ins":{"up_context":[{"change":4,"pos":312}],"down_context":[{"change":4,"pos":403}],"flag":"BLOCK","start":1721,"end":1913,"inode":{"change":5,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":312},"to":{"change":4,"start":312,"end":403},"introduced_by":4}],"inode":{"change":5,"pos":2363}},"ins_contents":[{"Add":" _loggedHours = Hours . (`div` 3600) . round . C.toSeconds' $ ws ^. wsLogged,"},{"Add":" _depreciatedHours = Hours . (`div` 3600) . round . C.toSeconds' $ ws ^. wsDepreciated,"}],"del_contents":[{"Del":" _timeDevoted = Hours . (`div` 3600) . round . C.toSeconds' $ ws ^. wsLogged,\n"}]}},{"Edit":{"inode":{"change":5,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":131,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":461},"to":{"change":4,"start":461,"end":462},"introduced_by":4}],"inode":{"change":5,"pos":2363}}},"contents":[{"Del":"\n"}]}},{"Replacement":{"inode":{"change":5,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":133,"ins":{"up_context":[{"change":4,"pos":585}],"down_context":[{"change":4,"pos":644}],"flag":"BLOCK","start":1914,"end":1983,"inode":{"change":5,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":4,"pos":585},"to":{"change":4,"start":585,"end":644},"introduced_by":4}],"inode":{"change":5,"pos":2363}},"ins_contents":[{"Add":" zeroContrib = Contributor uid' h t (Hours 0) (Hours 0) 0"}],"del_contents":[{"Del":" zeroContrib = Contributor uid' h t (Hours 0) 0\n"}]}},{"Replacement":{"inode":{"change":5,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":303,"ins":{"up_context":[{"change":5,"pos":27701}],"down_context":[{"change":5,"pos":27760}],"flag":"BLOCK","start":1984,"end":2112,"inode":{"change":5,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":27701},"to":{"change":5,"start":27701,"end":27760},"introduced_by":5}],"inode":{"change":5,"pos":2363}},"ins_contents":[{"Add":" \"loggedHours\" .= (c ^. loggedHours . (to fromEnum)),"},{"Add":" \"depreciatedHours\" .= (c ^. depreciatedHours . (to fromEnum)),"}],"del_contents":[{"Del":" \"timeDevoted\" .= (c ^. timeDevoted . (to fromEnum)),\n"}]}},{"Replacement":{"inode":{"change":33,"pos":3665},"path":"test/Aftok/TimeLogSpec.hs","line":15,"ins":{"up_context":[{"change":5,"pos":82762}],"down_context":[{"change":5,"pos":1068}],"flag":"BLOCK","start":2116,"end":2200,"inode":{"change":33,"pos":3665}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":82762},"to":{"change":5,"start":1008,"end":1068},"introduced_by":5}],"inode":{"change":33,"pos":3665}},"ins_contents":[{"Add":"import Aftok.Types (DepreciationFunction (..), DepreciationRules (..), UserId (..))"}],"del_contents":[{"Del":"import Aftok.Types (DepreciationFunction (..), UserId (..))\n"}]}},{"Edit":{"inode":{"change":33,"pos":3665},"path":"test/Aftok/TimeLogSpec.hs","line":25,"atom":{"NewVertex":{"up_context":[{"change":5,"pos":2043}],"down_context":[{"change":5,"pos":82920}],"flag":"BLOCK","start":2201,"end":2233,"inode":{"change":33,"pos":3665}}},"contents":[{"Add":"import qualified Data.UUID as U"}]}},{"Replacement":{"inode":{"change":33,"pos":3665},"path":"test/Aftok/TimeLogSpec.hs","line":129,"ins":{"up_context":[{"change":5,"pos":2877}],"down_context":[{"change":5,"pos":2931}],"flag":"BLOCK","start":2234,"end":2316,"inode":{"change":33,"pos":3665}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":2877},"to":{"change":5,"start":2877,"end":2931},"introduced_by":5}],"inode":{"change":33,"pos":3665}},"ins_contents":[{"Add":" depf = toDepF $ DepreciationRules (LinearDepreciation 180 1800) Nothing"}],"del_contents":[{"Del":" depf = toDepF $ LinearDepreciation 180 1800\n"}]}},{"Edit":{"inode":{"change":33,"pos":3665},"path":"test/Aftok/TimeLogSpec.hs","line":136,"atom":{"NewVertex":{"up_context":[{"change":5,"pos":3406}],"down_context":[{"change":5,"pos":2853}],"flag":"BLOCK","start":2317,"end":3549,"inode":{"change":33,"pos":3665}}},"contents":[{"Add":" it \"correctly handles fully depreciated work intervals\" $ do"},{"Add":" now <- C.getCurrentTime"},{"Add":" let depf = toDepF $ DepreciationRules (LinearDepreciation 6 2) Nothing"},{"Add":" raw = ["},{"Add":" (\"b3ff64b7-6699-45f2-acee-38751325bf46\", StartWork, \"2021-02-09T15:52:13.434308+00\"),"},{"Add":" (\"b3ff64b7-6699-45f2-acee-38751325bf46\", StopWork, \"2021-02-09T16:12:32.936579+00\"),"},{"Add":" (\"d56ae5bd-8892-44c6-9a02-f6a8aca8636e\", StartWork, \"2021-02-09T16:23:10.637749+00\"),"},{"Add":" (\"d56ae5bd-8892-44c6-9a02-f6a8aca8636e\", StopWork, \"2021-02-09T16:27:00.082747+00\"),"},{"Add":" (\"d56ae5bd-8892-44c6-9a02-f6a8aca8636e\", StartWork, \"2021-02-09T16:29:10.119337+00\"),"},{"Add":" (\"d56ae5bd-8892-44c6-9a02-f6a8aca8636e\", StopWork, \"2021-02-09T18:54:26.778107+00\")]"},{"Add":" toEvent :: (String, C.UTCTime -> LogEvent, String) -> Maybe LogEntry"},{"Add":" toEvent (uuid, f, t) ="},{"Add":" LogEntry <$> (CreditToUser . UserId <$> U.fromString uuid)"},{"Add":" <*> (f . C.toThyme <$> parseISO8601 t)"},{"Add":" <*> pure Nothing"},{"Add":" events = catMaybes $ fmap toEvent raw"},{"Add":" widx = workIndex (view event) events"},{"Add":" p = payouts depf now widx"},{"Add":" p `shouldBe` WorkShares 0 M.empty"},{"Add":""},{"Add":""}]}},{"Replacement":{"inode":{"change":33,"pos":3665},"path":"test/Aftok/TimeLogSpec.hs","line":159,"ins":{"up_context":[{"change":5,"pos":2937}],"down_context":[{"change":5,"pos":2980}],"flag":"BLOCK","start":3550,"end":3599,"inode":{"change":33,"pos":3665}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":5,"pos":2937},"to":{"change":5,"start":2937,"end":2980},"introduced_by":5}],"inode":{"change":33,"pos":3665}},"ins_contents":[{"Add":" let depf fr = linearDepreciation fr 10 100"}],"del_contents":[{"Del":" let depf = linearDepreciation 10 100\n"}]}}],"owner":"nuttycom","repo":"aftok","token":"ekMJba7vy9+rXSj+4BROJSBiMwzS5T/L8M+rhfTW/b0=","login":null}

…

Dependencies

Change contents