{"header":{"message":"The route-based logStart/logStop is nicer.","description":null,"timestamp":"2016-10-20T03:57:04Z","authors":[{"email":"kris.nuttycombe@gmail.com","name":"Kris Nuttycombe"}]},"hash":"UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC","authors":[],"deps":{"hashes":[["UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC","The route-based logStart/logStop is nicer."],["AA",null],["BWN72T44GRRZ6K2OPN56FTLNEB7J7AGC7T2U5HSMLEKUPGJP2NUAC","Don't accept work timestamp from an external source."],["MGOF7IUFGXYQKZOKMM2GGULFFVAULEHLZDSHMUW6B5DBKVXXR74AC","Update TASKS list to reflect completed projects."],["POX3UAMTGCNS3SU5I6IKDNCCSHEAUSFBZ3WCMQ3EXKPNXETOI6BAC","Enabling logging of time to contributor/project accounts"],["RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC","Change to use UUIDs instead of ints for primary keys."],["RN7EI6INGUUHGMNY5RU3NH56WPLRZY5ZMYDNFMNE3TGV4ESFLQIAC","Update database layer to use CreditTo"],["2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC","Add invitation logic and clean up DBProg error handling."],["O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC","Add route to allow crediting of events to users/projects."],["BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC","Beginning of modularization of server."],["O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC","Undo JSON silliness, enable a couple more routes."],["NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC","Reformat via stylish-haskell"],["W35DDBFYF6Z4ZPCFEO5RPAONZLYCSNTXUSTS6FIUUVZHCI6Q7GHAC","Factor common JSON conversions up into client lib module."],["QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC","Refactor QDB to use a free monad algebra instead."],["ADMKQQGCGVSHHIMVQ4XFRDCG544SBJCYALSKZV45CQQBZ4ACUH2AC","Initial empty Snap project."]],"deps":["BWN72T44GRRZ6K2OPN56FTLNEB7J7AGC7T2U5HSMLEKUPGJP2NUAC"],"known":["BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC","O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC","RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC","2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC","MGOF7IUFGXYQKZOKMM2GGULFFVAULEHLZDSHMUW6B5DBKVXXR74AC","NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC","POX3UAMTGCNS3SU5I6IKDNCCSHEAUSFBZ3WCMQ3EXKPNXETOI6BAC","RN7EI6INGUUHGMNY5RU3NH56WPLRZY5ZMYDNFMNE3TGV4ESFLQIAC","O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC"]},"hunks":[{"Replacement":{"inode":{"change":13,"pos":19},"path":"lib/Aftok/Json.hs","line":250,"ins":{"up_context":[{"change":3,"pos":4290}],"down_context":[{"change":2,"pos":164}],"flag":"BLOCK","start":3,"end":137,"inode":{"change":13,"pos":19}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4290},"to":{"change":2,"start":59,"end":164},"introduced_by":2}],"inode":{"change":13,"pos":19}},"ins_contents":[{"Add":{"text":"parseLogEntry :: (C.UTCTime -> LogEvent) -> Value -> Parser (C.UTCTime -> LogEntry)","pos":"UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC:86"}},{"Add":{"text":"parseLogEntry f = unversion parseLogEntry' where ","pos":"UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC:136"}}],"del_contents":[{"Del":{"text":"parseLogEntry :: Value -> Parser (C.UTCTime -> LogEntry)","pos":"BWN72T44GRRZ6K2OPN56FTLNEB7J7AGC7T2U5HSMLEKUPGJP2NUAC:115"}},{"Del":{"text":"parseLogEntry = unversion parseLogEntry' where ","pos":"BWN72T44GRRZ6K2OPN56FTLNEB7J7AGC7T2U5HSMLEKUPGJP2NUAC:163"}}]}},{"Edit":{"inode":{"change":13,"pos":19},"path":"lib/Aftok/Json.hs","line":254,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":263},"to":{"change":2,"start":263,"end":312},"introduced_by":2}],"inode":{"change":13,"pos":19}}},"contents":[{"Del":{"text":" eventCtr <- x .: \"eventType\" >>= nameEvent","pos":"BWN72T44GRRZ6K2OPN56FTLNEB7J7AGC7T2U5HSMLEKUPGJP2NUAC:311"}}]}},{"Replacement":{"inode":{"change":13,"pos":19},"path":"lib/Aftok/Json.hs","line":255,"ins":{"up_context":[{"change":2,"pos":347}],"down_context":[{"change":3,"pos":664}],"flag":"BLOCK","start":138,"end":191,"inode":{"change":13,"pos":19}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":347},"to":{"change":2,"start":347,"end":407},"introduced_by":2}],"inode":{"change":13,"pos":19}},"ins_contents":[{"Add":{"text":" pure $ \\t -> LogEntry creditTo' (f t) eventMeta'","pos":"UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC:190"}}],"del_contents":[{"Del":{"text":" pure $ \\t -> LogEntry creditTo' (eventCtr t) eventMeta'","pos":"BWN72T44GRRZ6K2OPN56FTLNEB7J7AGC7T2U5HSMLEKUPGJP2NUAC:406"}}]}},{"Edit":{"inode":{"change":3,"pos":5424},"path":"server/Aftok/Snaplet/WorkLog.hs","line":27,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":10148}],"down_context":[{"change":14,"pos":12607}],"flag":"BLOCK","start":196,"end":672,"inode":{"change":3,"pos":5424}}},"contents":[{"Add":{"text":" uid <- requireUserId","pos":"UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC:218"}},{"Add":{"text":" pid <- requireProjectId","pos":"UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC:244"}},{"Add":{"text":" requestBody <- readRequestBody 4096","pos":"UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC:282"}},{"Add":{"text":" timestamp <- liftIO C.getCurrentTime","pos":"UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC:321"}},{"Add":{"text":" case A.eitherDecode requestBody >>= parseEither (parseLogEntry evCtr) of","pos":"UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC:396"}},{"Add":{"text":" Left err -> snapError 400 $ \"Unable to parse log entry \" <> (tshow requestBody) <> \": \" <> tshow err","pos":"UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC:501"}},{"Add":{"text":" Right entry -> snapEval $ createEvent pid uid (entry timestamp)","pos":"UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC:569"}},{"Add":{"text":"","pos":"UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC:570"}},{"Add":{"text":"logWorkBTCHandler :: (C.UTCTime -> LogEvent) -> Handler App App EventId","pos":"UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC:642"}},{"Add":{"text":"logWorkBTCHandler evCtr = do","pos":"UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC:671"}}]}},{"Edit":{"inode":{"change":3,"pos":5424},"path":"server/Aftok/Snaplet/WorkLog.hs","line":48,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1223},"to":{"change":3,"start":1223,"end":1598},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1598},"to":{"change":2,"start":412,"end":480},"introduced_by":2}],"inode":{"change":3,"pos":5424}}},"contents":[{"Del":{"text":"","pos":"O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC:1223"}},{"Del":{"text":"recordLogEntryHandler :: Handler App App EventId","pos":"O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC:1272"}},{"Del":{"text":"recordLogEntryHandler = do","pos":"O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC:1299"}},{"Del":{"text":" uid <- requireUserId","pos":"O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC:1322"}},{"Del":{"text":" pid <- requireProjectId","pos":"O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC:1348"}},{"Del":{"text":" requestBody <- readRequestBody 4096","pos":"O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC:1386"}},{"Del":{"text":" timestamp <- liftIO C.getCurrentTime","pos":"O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC:1425"}},{"Del":{"text":" case A.eitherDecode requestBody >>= parseEither parseLogEntry of","pos":"O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC:1492"}},{"Del":{"text":" Left err -> snapError 400 $ \"Unable to parse log entry \" <> (tshow requestBody) <> \": \" <> tshow err","pos":"O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC:1597"}},{"Del":{"text":" Right entry -> snapEval $ createEvent pid uid (entry timestamp)","pos":"BWN72T44GRRZ6K2OPN56FTLNEB7J7AGC7T2U5HSMLEKUPGJP2NUAC:479"}}]}},{"Replacement":{"inode":{"change":15,"pos":5188},"path":"server/Main.hs","line":48,"ins":{"up_context":[{"change":3,"pos":2229}],"down_context":[{"change":3,"pos":2315}],"flag":"BLOCK","start":674,"end":760,"inode":{"change":15,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2229},"to":{"change":3,"start":2229,"end":2315},"introduced_by":3}],"inode":{"change":15,"pos":5188}},"ins_contents":[{"Add":{"text":" logWorkBTCRoute f = serveJSON eventIdJSON $ method POST (logWorkBTCHandler f)","pos":"UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC:759"}}],"del_contents":[{"Del":{"text":" recordLogEntryRoute = serveJSON eventIdJSON $ method POST recordLogEntryHandler","pos":"O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC:2314"}}]}},{"Replacement":{"inode":{"change":15,"pos":5188},"path":"server/Main.hs","line":68,"ins":{"up_context":[{"change":3,"pos":13135}],"down_context":[{"change":3,"pos":3631}],"flag":"BLOCK","start":761,"end":1085,"inode":{"change":15,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":13135},"to":{"change":3,"start":2980,"end":3216},"introduced_by":3}],"inode":{"change":15,"pos":5188}},"ins_contents":[{"Add":{"text":" , (\"projects/:projectId/logStart\", logWorkRoute StartWork)","pos":"UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC:840"}},{"Add":{"text":" , (\"projects/:projectId/logEnd\", logWorkRoute StopWork)","pos":"UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC:919"}},{"Add":{"text":" , (\"projects/:projectId/logStart/:btcAddr\", logWorkBTCRoute StartWork)","pos":"UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC:1002"}},{"Add":{"text":" , (\"projects/:projectId/logEnd/:btcAddr\", logWorkBTCRoute StopWork)","pos":"UILI6PILCRDPZ3XYA54LGIGPSU7ERWNHCE7R3CE64ZEC7ONOEMOQC:1084"}}],"del_contents":[{"Del":{"text":" , (\"projects/:projectId/logStart/:btcAddr\", logWorkRoute StartWork)","pos":"O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC:3059"}},{"Del":{"text":" , (\"projects/:projectId/logEnd/:btcAddr\", logWorkRoute StopWork)","pos":"O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC:3138"}},{"Del":{"text":" , (\"projects/:projectId/logWorkEvent\", recordLogEntryRoute)","pos":"O722AOKEWXWJPRHGJREU6QPW7HEFPPRETZIAADZ2RMAXHARCNEKAC:3215"}}]}}],"owner":"nuttycom","repo":"aftok","token":"/ZskNiScYwEJK2pDq2oepgIP1BokOtB4cDGF+jcEBTc=","login":null}

…

Dependencies

Change contents

Review