{"header":{"message":"Replacing Snap with Scotty.","description":"In appreciation of simplicity.","timestamp":"2014-08-24T01:14:48Z","authors":[{"email":"kris@simpleenergy.com","name":"Kris Nuttycombe"}]},"hash":"RSEB2NFGUBTFESE5BJKDUVQL5Y5ZVGY5O4CJX2LNP63MS3NRHHZQC","authors":[],"deps":{"hashes":[["RSEB2NFGUBTFESE5BJKDUVQL5Y5ZVGY5O4CJX2LNP63MS3NRHHZQC","Replacing Snap with Scotty."],["AA",null],["2OIPAQCBDIUJBXB4K2QVP3IEBIUOCQHSWSWFVMVSVZC7GHX2VK7AC","Merge branch 'master' of github.com:nuttycom/ananke"],["2KZPOGRBY6KBMO76F55ZKIVOLSG3O63VP3RHRZVANXYT3OLZ3OWQC","Once you get Haskell to compile, the tests pass!"],["NMWWP4ZNOKHZKSJ6F5KYEREWXXR5F4UD35WOKI3EH42AZWVCTCJAC","Trying out Hspec"],["ADMKQQGCGVSHHIMVQ4XFRDCG544SBJCYALSKZV45CQQBZ4ACUH2AC","Initial empty Snap project."],["Y35QCWYW2OTZ27ZVTH2BA3XJTUCJ2WMLKU32ZCOCDY3AW7TIZXRAC","Minor improvement in WorkIndex type to eliminate duplicated information."],["N4NDAZYTLSI2W22KT3SYXL257DBMSH3UT2BXOYM7LH7FSZAY4RLAC","Initial implementation of payouts."],["T44T2PDLUBJBWMPWG3IYLXOJON6PKDIJFOTKA4ZL2UCOSZNQCUMAC","Rename trust.txt to README.md"],["7DBNV3GV773FH5ZLQWFX4RBOS4Q3CIK2RYZNNABY3ZOETYZCXRNQC","Initial, stack-based impl of time log event reduction."],["AXKKXBWN4EMUOLV43WN52JSKJPBV7TLSGLNJW5EZXHSJNKCYUWOQC","Initial attempt at writing down my ideas for a company based on trust."],["GKGVYBZGPJXO7N7GLHLRNYQPXFHBQSNQN53OKRFCXLQEYDTC5I4QC","Added JSON serialization to TimeLog"],["A2J7B4SCCJYKQV3G2LDHEFNE2GUICO3N3Y5FKF4EUZW5AG7PTDWAC","Initial impl of depreciation function."],["JUUMYIQEXSYRMPCQSHIRIG6TBHAR5LU46FE5WI3UHYX6KA4ESH7AC","Add groupBy utility function for use in TimeLog."],["NVOCQVASZWTKQJG7GPH7KHKZZR7NUG4WLV5YY4KAIRPCJRWCZPIAC","Initial failing tests."],["EQXRXRZDYCM7BDAVBOXQYPG6C7IJT3OFGNIXCDAHJJBRKAXNGL7AC","Changed to use tasty instead of test-framework"],["P6NR2CGXCWAW6GXXSIXCGOBIRAS2BM4LEM6D5ADPN4IL7TMW6UVAC","Beginning of implementation of depreciation."]],"deps":["2OIPAQCBDIUJBXB4K2QVP3IEBIUOCQHSWSWFVMVSVZC7GHX2VK7AC"],"known":["AXKKXBWN4EMUOLV43WN52JSKJPBV7TLSGLNJW5EZXHSJNKCYUWOQC","ADMKQQGCGVSHHIMVQ4XFRDCG544SBJCYALSKZV45CQQBZ4ACUH2AC","NVOCQVASZWTKQJG7GPH7KHKZZR7NUG4WLV5YY4KAIRPCJRWCZPIAC","JUUMYIQEXSYRMPCQSHIRIG6TBHAR5LU46FE5WI3UHYX6KA4ESH7AC","T44T2PDLUBJBWMPWG3IYLXOJON6PKDIJFOTKA4ZL2UCOSZNQCUMAC","EQXRXRZDYCM7BDAVBOXQYPG6C7IJT3OFGNIXCDAHJJBRKAXNGL7AC","7DBNV3GV773FH5ZLQWFX4RBOS4Q3CIK2RYZNNABY3ZOETYZCXRNQC","2KZPOGRBY6KBMO76F55ZKIVOLSG3O63VP3RHRZVANXYT3OLZ3OWQC","N4NDAZYTLSI2W22KT3SYXL257DBMSH3UT2BXOYM7LH7FSZAY4RLAC","Y35QCWYW2OTZ27ZVTH2BA3XJTUCJ2WMLKU32ZCOCDY3AW7TIZXRAC","NMWWP4ZNOKHZKSJ6F5KYEREWXXR5F4UD35WOKI3EH42AZWVCTCJAC","P6NR2CGXCWAW6GXXSIXCGOBIRAS2BM4LEM6D5ADPN4IL7TMW6UVAC","GKGVYBZGPJXO7N7GLHLRNYQPXFHBQSNQN53OKRFCXLQEYDTC5I4QC","A2J7B4SCCJYKQV3G2LDHEFNE2GUICO3N3Y5FKF4EUZW5AG7PTDWAC"]},"hunks":[{"FileDel":{"deleted_names":[{"basename":"snaplets","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":2},"to":{"change":3,"start":2427,"end":2446},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":2446},"to":{"change":3,"start":2426,"end":2426},"introduced_by":3}],"inode":{"change":3,"pos":2426}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"heist","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":2426},"to":{"change":3,"start":2449,"end":2465},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":2465},"to":{"change":3,"start":2448,"end":2448},"introduced_by":3}],"inode":{"change":3,"pos":2448}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"templates","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":2448},"to":{"change":3,"start":2468,"end":2488},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":2488},"to":{"change":3,"start":2467,"end":2467},"introduced_by":3}],"inode":{"change":3,"pos":2467}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"userform.tpl","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":2467},"to":{"change":3,"start":4248,"end":4284},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":4284},"to":{"change":3,"start":3869,"end":3869},"introduced_by":3}],"inode":{"change":3,"pos":3869}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3869},"to":{"change":3,"start":3870,"end":4247},"introduced_by":3}],"inode":{"change":3,"pos":3869}},"content":[{"Del":"\n"}]}},{"FileDel":{"deleted_names":[{"basename":"new_user.tpl","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":2467},"to":{"change":3,"start":3831,"end":3867},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":3867},"to":{"change":3,"start":3763,"end":3763},"introduced_by":3}],"inode":{"change":3,"pos":3763}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3763},"to":{"change":3,"start":3764,"end":3830},"introduced_by":3}],"inode":{"change":3,"pos":3763}},"content":[{"Del":"\n \n\n"}]}},{"FileDel":{"deleted_names":[{"basename":"login.tpl","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":2467},"to":{"change":3,"start":3728,"end":3761},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":3761},"to":{"change":3,"start":3664,"end":3664},"introduced_by":3}],"inode":{"change":3,"pos":3664}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3664},"to":{"change":3,"start":3665,"end":3727},"introduced_by":3}],"inode":{"change":3,"pos":3664}},"content":[{"Del":"\n \n\n"}]}},{"FileDel":{"deleted_names":[{"basename":"index.tpl","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":2467},"to":{"change":3,"start":3629,"end":3662},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":3662},"to":{"change":3,"start":3185,"end":3185},"introduced_by":3}],"inode":{"change":3,"pos":3185}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3185},"to":{"change":3,"start":3186,"end":3628},"introduced_by":3}],"inode":{"change":3,"pos":3185}},"content":[{"Del":"\n\n \n

\n This is a simple demo page served using\n Heist\n and the Snap web framework.\n

\n\n

Congrats! You're logged in as ''

\n\n

Logout

\n \n\n \n \n \n\n\n"}]}},{"FileDel":{"deleted_names":[{"basename":"base.tpl","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":2467},"to":{"change":3,"start":3151,"end":3183},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":3183},"to":{"change":3,"start":2938,"end":2938},"introduced_by":3}],"inode":{"change":3,"pos":2938}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2938},"to":{"change":3,"start":2939,"end":3150},"introduced_by":3}],"inode":{"change":3,"pos":2938}},"content":[{"Del":"\n \n Snap web server\n \n \n \n

\n\n \n\n

\n \n\n"}]}},{"FileDel":{"deleted_names":[{"basename":"_new_user.tpl","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":2467},"to":{"change":3,"start":2899,"end":2936},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":2936},"to":{"change":3,"start":2759,"end":2759},"introduced_by":3}],"inode":{"change":3,"pos":2759}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2759},"to":{"change":3,"start":2760,"end":2898},"introduced_by":3}],"inode":{"change":3,"pos":2759}},"content":[{"Del":"

Register a new user

\n\n/new_user\nAdd User\n\n"}]}},{"FileDel":{"deleted_names":[{"basename":"_login.tpl","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":2467},"to":{"change":3,"start":2723,"end":2757},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":2757},"to":{"change":3,"start":2490,"end":2490},"introduced_by":3}],"inode":{"change":3,"pos":2490}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2490},"to":{"change":3,"start":2491,"end":2722},"introduced_by":3}],"inode":{"change":3,"pos":2490}},"content":[{"Del":"

Snap Example App Login

\n\n

\n\n/login\nLogin\n\n\n

Don't have a login yet? Create a new user

\n"}]}},{"FileDel":{"deleted_names":[{"basename":"static","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":2},"to":{"change":3,"start":13618,"end":13635},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":13635},"to":{"change":3,"start":13617,"end":13617},"introduced_by":3}],"inode":{"change":3,"pos":13617}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"screen.css","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":13617},"to":{"change":3,"start":13983,"end":14017},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":14017},"to":{"change":3,"start":13637,"end":13637},"introduced_by":3}],"inode":{"change":3,"pos":13637}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":13637},"to":{"change":3,"start":13638,"end":13982},"introduced_by":3}],"inode":{"change":3,"pos":13637}},"content":[{"Del":"html {\n padding: 0;\n margin: 0;\n background-color: #ffffff;\n font-family: Verdana, Helvetica, sans-serif;\n}\nbody {\n padding: 0;\n margin: 0;\n}\na {\n text-decoration: underline;\n}\na :hover {\n cursor: pointer;\n text-decoration: underline;\n}\nimg {\n border: none;\n}\n#content {\n padding-left: 1em;\n}\n#info {\n font-size: 60%;\n}\n"}]}},{"Replacement":{"inode":{"change":3,"pos":213},"path":"ananke.cabal","line":11,"ins":{"up_context":[{"change":3,"pos":554}],"down_context":[{"change":3,"pos":693}],"flag":"BLOCK","start":1,"end":30,"inode":{"change":3,"pos":213}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":554},"to":{"change":3,"start":13,"end":42},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":42},"to":{"change":3,"start":581,"end":693},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":581},"to":{"change":3,"start":581,"end":693},"introduced_by":3}],"inode":{"change":3,"pos":213}},"ins_contents":[{"Add":"Cabal-version: >= 1.20"}],"del_contents":[{"Del":"Cabal-version: >= 1.10\n"},{"Del":"\nFlag development\n Description: Whether to build the server in development (interpreted) mode\n Default: False\n"}]}},{"Edit":{"inode":{"change":3,"pos":213},"path":"ananke.cabal","line":15,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":85}],"down_context":[{"change":3,"pos":85}],"flag":"BLOCK","start":31,"end":67,"inode":{"change":3,"pos":213}}},"contents":[{"Add":" ghc-options: -Wall -Werror"}]}},{"Replacement":{"inode":{"change":3,"pos":213},"path":"ananke.cabal","line":17,"ins":{"up_context":[{"change":3,"pos":111}],"down_context":[{"change":3,"pos":180}],"flag":"BLOCK","start":68,"end":650,"inode":{"change":3,"pos":213}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":111},"to":{"change":3,"start":111,"end":180},"introduced_by":3}],"inode":{"change":3,"pos":213}},"ins_contents":[{"Add":" exposed-modules: Ananke"},{"Add":" Ananke.TimeLog"},{"Add":" Ananke.Interval"},{"Add":" build-depends: base >= 4.4 && < 5"},{"Add":" , lens >= 3.7.6 && < 3.11"},{"Add":" , bifunctors"},{"Add":" , aeson >= 0.7.0.2"},{"Add":" , text >= 0.11 && < 0.12"},{"Add":" , time >= 1.1 && < 1.5"},{"Add":" , iso8601-time == 0.1.1"},{"Add":" , containers == 0.5.*"}],"del_contents":[{"Del":" exposed-modules:\n Ananke\n Ananke.TimeLog\n Ananke.Interval\n"}]}},{"Edit":{"inode":{"change":3,"pos":213},"path":"ananke.cabal","line":29,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":181},"to":{"change":3,"start":181,"end":299},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":299},"to":{"change":3,"start":1,"end":31},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":31},"to":{"change":3,"start":1,"end":43},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":31},"to":{"change":3,"start":299,"end":442},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":43},"to":{"change":3,"start":299,"end":442},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":299},"to":{"change":3,"start":299,"end":442},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":442},"to":{"change":3,"start":1,"end":40},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":40},"to":{"change":3,"start":741,"end":742},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":522},"to":{"change":3,"start":741,"end":742},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":741},"to":{"change":3,"start":741,"end":742},"introduced_by":3}],"inode":{"change":3,"pos":213}}},"contents":[{"Del":" build-depends:\n base >= 4.4 && < 5,\n lens >= 3.7.6 && < 3.11,\n"},{"Del":" bifunctors, \n"},{"Del":" aeson >= 0.7.0.2,\n"},{"Del":" text >= 0.11 && < 0.12,\n time >= 1.1 && < 1.5,\n iso8601-time == 0.1.1,\n"},{"Del":" containers == 0.5.*\n"},{"Del":"\n"}]}},{"Edit":{"inode":{"change":3,"pos":213},"path":"ananke.cabal","line":32,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":621}],"down_context":[{"change":3,"pos":621}],"flag":"BLOCK","start":651,"end":687,"inode":{"change":3,"pos":213}}},"contents":[{"Add":" ghc-options: -Wall -Werror"}]}},{"Replacement":{"inode":{"change":3,"pos":213},"path":"ananke.cabal","line":35,"ins":{"up_context":[{"change":3,"pos":48}],"down_context":[{"change":3,"pos":801}],"flag":"BLOCK","start":688,"end":964,"inode":{"change":3,"pos":213}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":48},"to":{"change":3,"start":678,"end":701},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":678},"to":{"change":3,"start":678,"end":701},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":778},"to":{"change":3,"start":778,"end":788},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":788},"to":{"change":3,"start":49,"end":69},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":69},"to":{"change":3,"start":44,"end":67},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":67},"to":{"change":3,"start":41,"end":71},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":69},"to":{"change":3,"start":41,"end":71},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":788},"to":{"change":3,"start":41,"end":71},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":808},"to":{"change":3,"start":70,"end":86},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":72},"to":{"change":3,"start":808,"end":826},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":86},"to":{"change":3,"start":808,"end":826},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":808},"to":{"change":3,"start":808,"end":826},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":826},"to":{"change":3,"start":68,"end":87},"introduced_by":3}],"inode":{"change":3,"pos":213}},"ins_contents":[{"Add":" build-depends: base"},{"Add":" , hspec >= 1.8.1"},{"Add":" , ananke"},{"Add":" , aeson"},{"Add":" , bifunctors"},{"Add":" , containers"},{"Add":" , iso8601-time"},{"Add":" , text"},{"Add":" , time"}],"del_contents":[{"Del":" build-depends: \n"},{"Del":" base,\n"},{"Del":" hspec >= 1.8.1,\n"},{"Del":" ananke,\n aeson,\n"},{"Del":" bifunctors, \n"},{"Del":" containers,\n"},{"Del":" iso8601-time,\n"},{"Del":" text,\n time\n"}]}},{"Edit":{"inode":{"change":3,"pos":213},"path":"ananke.cabal","line":47,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":897}],"down_context":[{"change":3,"pos":897}],"flag":"BLOCK","start":965,"end":1001,"inode":{"change":3,"pos":213}}},"contents":[{"Add":" ghc-options: -Wall -Werror"}]}},{"Replacement":{"inode":{"change":3,"pos":213},"path":"ananke.cabal","line":50,"ins":{"up_context":[{"change":3,"pos":956}],"down_context":[],"flag":"BLOCK","start":1002,"end":1276,"inode":{"change":3,"pos":213}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":956},"to":{"change":3,"start":956,"end":1003},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1003},"to":{"change":3,"start":819,"end":871},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":819},"to":{"change":3,"start":819,"end":871},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1023},"to":{"change":3,"start":1023,"end":1231},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1231},"to":{"change":3,"start":1004,"end":1107},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1107},"to":{"change":3,"start":421,"end":462},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":421},"to":{"change":3,"start":421,"end":462},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":462},"to":{"change":3,"start":1108,"end":1159},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1159},"to":{"change":3,"start":1650,"end":2387},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1650},"to":{"change":3,"start":1650,"end":2387},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2387},"to":{"change":3,"start":502,"end":503},"introduced_by":3}],"inode":{"change":3,"pos":213}},"ins_contents":[{"Add":" build-depends: base"},{"Add":" , text"},{"Add":" , time"},{"Add":" , mtl"},{"Add":" , bytestring >= 0.9.1 && < 0.11"},{"Add":" , scotty >=0.7 && <0.8"},{"Add":" , sqlite == 0.5.2.2"},{"Add":" , ananke"}],"del_contents":[{"Del":" build-depends:\n base,\n lens,\n text,\n"},{"Del":" bytestring >= 0.9.1 && < 0.11,\n"},{"Del":" snap >= 0.13 && < 0.14,\n snap-core >= 0.9 && < 0.11,\n snap-server >= 0.9 && < 0.11,\n snap-loader-static >= 0.9 && < 0.10,\n"},{"Del":" heist >= 0.13 && < 0.14,\n MonadCatchIO-transformers >= 0.2.1 && < 0.4,\n"},{"Del":" postgresql-simple >= 0.3.10,\n"},{"Del":" snaplet-postgresql-simple >= 0.4.1,\n ananke\n"},{"Del":"\n if flag(development)\n build-depends:\n snap-loader-dynamic == 0.10.*\n cpp-options: -DDEVELOPMENT\n -- In development mode, speed is already going to suffer, so skip\n -- the fancy optimization flags. Additionally, disable all\n -- warnings. The hint library doesn't give an option to execute\n -- compiled code when there were also warnings, so disabling\n -- warnings allows quicker workflow.\n ghc-options: -threaded -w\n else\n if impl(ghc >= 6.12.0)\n ghc-options: -threaded -Wall -fwarn-tabs -funbox-strict-fields -O2\n -fno-warn-orphans -fno-warn-unused-do-bind\n else\n ghc-options: -threaded -Wall -fwarn-tabs -funbox-strict-fields -O2\n -fno-warn-orphans\n"},{"Del":"\n"}]}},{"FileDel":{"deleted_names":[{"basename":"Application.hs","metadata":0},{"basename":"Application.hs","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":1243},"to":{"change":3,"start":1263,"end":1301},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":1301},"to":{"change":3,"start":4303,"end":4303},"introduced_by":3},{"previous":"BLOCK | FOLDER | DELETED","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":4286},"to":{"change":3,"start":5148,"end":5186},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":5186},"to":{"change":3,"start":4303,"end":4303},"introduced_by":3}],"inode":{"change":3,"pos":4303}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4303},"to":{"change":3,"start":4304,"end":4734},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2921},"to":{"change":3,"start":4734,"end":4944},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4734},"to":{"change":3,"start":4734,"end":4944},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2952},"to":{"change":3,"start":4944,"end":5147},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4944},"to":{"change":3,"start":4944,"end":5147},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4944},"to":{"change":3,"start":2922,"end":2952},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4734},"to":{"change":3,"start":2884,"end":2921},"introduced_by":3}],"inode":{"change":3,"pos":4303}},"content":[{"Del":"{-# LANGUAGE TemplateHaskell #-}\n\n------------------------------------------------------------------------------\n-- | This module defines our application's state type and an alias for its\n-- handler monad.\nmodule Application where\n\n------------------------------------------------------------------------------\nimport Control.Lens\nimport Snap.Snaplet\nimport Snap.Snaplet.Heist\nimport Snap.Snaplet.Auth\nimport Snap.Snaplet.Session\n"},{"Del":"\n------------------------------------------------------------------------------\ndata App = App\n { _heist :: Snaplet (Heist App)\n , _sess :: Snaplet SessionManager\n , _auth :: Snaplet (AuthManager App)\n"},{"Del":" }\n\nmakeLenses ''App\n\ninstance HasHeist App where\n heistLens = subSnaplet heist\n\n\n------------------------------------------------------------------------------\ntype AppHandler = Handler App App\n\n\n"},{"Del":" , _db :: Snaplet Postgres\n"},{"Del":"import Snap.Snaplet.PostgresqlSimple\n"}]}},{"FileDel":{"deleted_names":[{"basename":"Site.hs","metadata":0},{"basename":"Site.hs","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":1243},"to":{"change":3,"start":1336,"end":1367},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":1367},"to":{"change":3,"start":10219,"end":10219},"introduced_by":3},{"previous":"BLOCK | FOLDER | DELETED","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":4286},"to":{"change":3,"start":13584,"end":13615},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":13615},"to":{"change":3,"start":10219,"end":10219},"introduced_by":3}],"inode":{"change":3,"pos":10219}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":10219},"to":{"change":3,"start":10220,"end":10993},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3001},"to":{"change":3,"start":10993,"end":11201},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":10993},"to":{"change":3,"start":10993,"end":11201},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3058},"to":{"change":3,"start":11201,"end":13512},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":11201},"to":{"change":3,"start":11201,"end":13512},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3097},"to":{"change":3,"start":13512,"end":13559},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":13512},"to":{"change":3,"start":13512,"end":13559},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":13559},"to":{"change":3,"start":3098,"end":3125},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":3125},"to":{"change":3,"start":13582,"end":13583},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":13582},"to":{"change":3,"start":13582,"end":13583},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":13512},"to":{"change":3,"start":3059,"end":3097},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":10993},"to":{"change":3,"start":2954,"end":3001},"introduced_by":3}],"inode":{"change":3,"pos":10219}},"content":[{"Del":"{-# LANGUAGE OverloadedStrings #-}\n\n------------------------------------------------------------------------------\n-- | This module is where all the routes and handlers are defined for your\n-- site. The 'app' function is the initializer that combines everything\n-- together and is exported by this module.\nmodule Site\n ( app\n ) where\n\n------------------------------------------------------------------------------\nimport Control.Applicative\nimport Data.ByteString (ByteString)\nimport qualified Data.Text as T\nimport Snap.Core\nimport Snap.Snaplet\nimport Snap.Snaplet.Auth\nimport Snap.Snaplet.Auth.Backends.JsonFile\nimport Snap.Snaplet.Heist\nimport Snap.Snaplet.Session.Backends.CookieSession\n"},{"Del":"import Snap.Util.FileServe\nimport Heist\nimport qualified Heist.Interpreted as I\n------------------------------------------------------------------------------\nimport Application\n"},{"Del":"\n\n------------------------------------------------------------------------------\n-- | Render login form\nhandleLogin :: Maybe T.Text -> Handler App (AuthManager App) ()\nhandleLogin authError = heistLocal (I.bindSplices errs) $ render \"login\"\n where\n errs = maybe noSplices splice authError\n splice err = \"loginError\" ## I.textSplice err\n\n\n------------------------------------------------------------------------------\n-- | Handle login submit\nhandleLoginSubmit :: Handler App (AuthManager App) ()\nhandleLoginSubmit =\n loginUser \"login\" \"password\" Nothing\n (\\_ -> handleLogin err) (redirect \"/\")\n where\n err = Just \"Unknown user or password\"\n\n\n------------------------------------------------------------------------------\n-- | Logs out and redirects the user to the site index.\nhandleLogout :: Handler App (AuthManager App) ()\nhandleLogout = logout >> redirect \"/\"\n\n\n------------------------------------------------------------------------------\n-- | Handle new user form submit\nhandleNewUser :: Handler App (AuthManager App) ()\nhandleNewUser = method GET handleForm <|> method POST handleFormSubmit\n where\n handleForm = render \"new_user\"\n handleFormSubmit = registerUser \"login\" \"password\" >> redirect \"/\"\n\n\n------------------------------------------------------------------------------\n-- | The application's routes.\nroutes :: [(ByteString, Handler App App ())]\nroutes = [ (\"/login\", with auth handleLoginSubmit)\n , (\"/logout\", with auth handleLogout)\n , (\"/new_user\", with auth handleNewUser)\n , (\"\", serveDirectory \"static\")\n ]\n\n\n------------------------------------------------------------------------------\n-- | The application initializer.\napp :: SnapletInit App App\napp = makeSnaplet \"app\" \"An snaplet example application.\" Nothing $ do\n h <- nestSnaplet \"\" heist $ heistInit \"templates\"\n s <- nestSnaplet \"sess\" sess $\n initCookieSessionManager \"site_key.txt\" \"sess\" (Just 3600)\n\n -- NOTE: We're using initJsonFileAuthManager here because it's easy and\n -- doesn't require any kind of database server to run. In practice,\n -- you'll probably want to change this to a more robust auth backend.\n a <- nestSnaplet \"auth\" auth $\n initJsonFileAuthManager defAuthSettings sess \"users.json\"\n"},{"Del":" addRoutes routes\n addAuthSplices h auth\n"},{"Del":" return $ App h s a pg\n\n"},{"Del":"\n"},{"Del":" pg <- nestSnaplet \"pg\" db pgsInit\n"},{"Del":"import Snap.Snaplet.PostgresqlSimple\n"}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":1,"ins":{"up_context":[{"change":3,"pos":5188}],"down_context":[{"change":3,"pos":5255}],"flag":"BLOCK","start":1279,"end":1314,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5188},"to":{"change":3,"start":5189,"end":5255},"introduced_by":3}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":"{-# LANGUAGE OverloadedStrings #-}"}],"del_contents":[{"Del":"{-# LANGUAGE CPP #-}\n{-# LANGUAGE TemplateHaskell #-}\n"}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":3,"ins":{"up_context":[{"change":3,"pos":5256}],"down_context":[{"change":3,"pos":5259}],"flag":"BLOCK","start":1315,"end":1340,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5256},"to":{"change":3,"start":5256,"end":5259},"introduced_by":3}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":"module Main (main) where"}],"del_contents":[{"Del":"{-\n"}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":5,"ins":{"up_context":[{"change":3,"pos":5260}],"down_context":[{"change":3,"pos":5492}],"flag":"BLOCK","start":1341,"end":1477,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5260},"to":{"change":3,"start":5260,"end":5492},"introduced_by":3}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":"import Data.Text.Lazy"},{"Add":"import Web.Scotty"},{"Add":"import Data.Time.Clock"},{"Add":"import Database.SQLite"},{"Add":"import Control.Monad.Trans (liftIO)"},{"Add":"import Ananke"}],"del_contents":[{"Del":"NOTE: Don't modify this file unless you know what you are doing. If you are\nnew to snap, start with Site.hs and Application.hs. This file contains\nboilerplate needed for dynamic reloading and is not meant for general\nconsumption.\n"}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":12,"ins":{"up_context":[{"change":3,"pos":5493}],"down_context":[{"change":3,"pos":5695}],"flag":"BLOCK","start":1478,"end":1977,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5493},"to":{"change":3,"start":5493,"end":5695},"introduced_by":3}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":"main :: IO ()"},{"Add":"main = do"},{"Add":" db <- openConnection \"ananke.db\""},{"Add":" _ <- defineTableOpt db True eventTable"},{"Add":" scotty port $ do"},{"Add":"{--"},{"Add":"Log the start time of a work interval."},{"Add":"Log completion of the current work interval."},{"Add":"Record change of a work interval start."},{"Add":"Record change of a work interval end."},{"Add":"Given a trusted token, authorize another token."},{"Add":"--}"},{"Add":" post \"/logStart/:btcAddr\" $ do"},{"Add":" addr <- param \"btcAddr\""},{"Add":" timestamp <- liftIO getCurrentTime"},{"Add":" liftIO $ recordStart db (btcAddr addr) timestamp"}],"del_contents":[{"Del":"Occasionally if we modify the way the dynamic reloader works and you want to\nupgrade, you might have to swap out this file for a newer version. But in\nmost cases you'll never need to modify this code.\n"}]}},{"Edit":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":29,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5696},"to":{"change":3,"start":5696,"end":5717},"introduced_by":3}],"inode":{"change":3,"pos":5188}}},"contents":[{"Del":"-}\nmodule Main where\n"}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":30,"ins":{"up_context":[{"change":3,"pos":5718}],"down_context":[{"change":3,"pos":6062}],"flag":"BLOCK","start":1978,"end":2061,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5718},"to":{"change":3,"start":5718,"end":6062},"introduced_by":3}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":"recordStart :: SQLiteHandle -> BtcAddr -> UTCTime -> IO ()"},{"Add":"recordStart = undefined"}],"del_contents":[{"Del":"------------------------------------------------------------------------------\nimport Control.Exception (SomeException, try)\nimport qualified Data.Text as T\nimport Snap.Http.Server\nimport Snap.Snaplet\nimport Snap.Snaplet.Config\nimport Snap.Core\nimport System.IO\nimport Site\n"}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":33,"ins":{"up_context":[{"change":3,"pos":6063}],"down_context":[{"change":3,"pos":6168}],"flag":"BLOCK","start":2062,"end":2086,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6063},"to":{"change":3,"start":6063,"end":6168},"introduced_by":3}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":"port :: Int"},{"Add":"port = 8028"}],"del_contents":[{"Del":"#ifdef DEVELOPMENT\nimport Snap.Loader.Dynamic\n#else\nimport Snap.Loader.Static\n#endif\n"}]}},{"Edit":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":36,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":6169}],"down_context":[{"change":3,"pos":6169}],"flag":"BLOCK","start":2087,"end":2339,"inode":{"change":3,"pos":5188}}},"contents":[{"Add":"eventTable :: SQLTable"},{"Add":"eventTable = Table \"workEvents\" [ Column \"btcAddr\" (SQLVarChar 256) []"},{"Add":" , Column \"event\" (SQLVarChar 64) []"},{"Add":" , Column \"eventTime\" (SQLDateTime DATETIME) [] ] []"}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":41,"ins":{"up_context":[{"change":3,"pos":6170}],"down_context":[{"change":3,"pos":8456}],"flag":"BLOCK","start":2340,"end":2399,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6170},"to":{"change":3,"start":6170,"end":8456},"introduced_by":3}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":"newtype BtcAddrParam = BtcAddrParam { btcAddr :: BtcAddr }"}],"del_contents":[{"Del":"------------------------------------------------------------------------------\n-- | This is the entry point for this web server application. It supports\n-- easily switching between interpreting source and running statically compiled\n-- code.\n--\n-- In either mode, the generated program should be run from the root of the\n-- project tree. When it is run, it locates its templates, static content, and\n-- source files in development mode, relative to the current working directory.\n--\n-- When compiled with the development flag, only changes to the libraries, your\n-- cabal file, or this file should require a recompile to be picked up.\n-- Everything else is interpreted at runtime. There are a few consequences of\n-- this.\n--\n-- First, this is much slower. Running the interpreter takes a significant\n-- chunk of time (a couple tenths of a second on the author's machine, at this\n-- time), regardless of the simplicity of the loaded code. In order to\n-- recompile and re-load server state as infrequently as possible, the source\n-- directories are watched for updates, as are any extra directories specified\n-- below.\n--\n-- Second, the generated server binary is MUCH larger, since it links in the\n-- GHC API (via the hint library).\n--\n-- Third, and the reason you would ever want to actually compile with\n-- development mode, is that it enables a faster development cycle. You can\n-- simply edit a file, save your changes, and hit reload to see your changes\n-- reflected immediately.\n--\n-- When this is compiled without the development flag, all the actions are\n-- statically compiled in. This results in faster execution, a smaller binary\n-- size, and having to recompile the server for any code change.\n--\nmain :: IO ()\nmain = do\n -- Depending on the version of loadSnapTH in scope, this either enables\n -- dynamic reloading, or compiles it without. The last argument to\n -- loadSnapTH is a list of additional directories to watch for changes to\n -- trigger reloads in development mode. It doesn't need to include source\n -- directories, those are picked up automatically by the splice.\n (conf, site, cleanup) <- $(loadSnapTH [| getConf |]\n 'getActions\n [\"snaplets/heist/templates\"])\n"}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":43,"ins":{"up_context":[{"change":3,"pos":8457}],"down_context":[{"change":3,"pos":8536}],"flag":"BLOCK","start":2400,"end":2542,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":8457},"to":{"change":3,"start":8457,"end":8536},"introduced_by":3}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":"instance Parsable BtcAddrParam where"},{"Add":" parseParam t = maybe (Left \"Invalid BTC address\") (Right . BtcAddrParam) $ (parseBtcAddr . toStrict) t"}],"del_contents":[{"Del":" _ <- try $ httpServe conf site :: IO (Either SomeException ())\n cleanup\n"}]}},{"Edit":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":46,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":8537},"to":{"change":3,"start":8537,"end":10185},"introduced_by":3}],"inode":{"change":3,"pos":5188}}},"contents":[{"Del":"\n------------------------------------------------------------------------------\n-- | This action loads the config used by this application. The loaded config\n-- is returned as the first element of the tuple produced by the loadSnapTH\n-- Splice. The type is not solidly fixed, though it must be an IO action that\n-- produces the same type as 'getActions' takes. It also must be an instance of\n-- Typeable. If the type of this is changed, a full recompile will be needed to\n-- pick up the change, even in development mode.\n--\n-- This action is only run once, regardless of whether development or\n-- production mode is in use.\ngetConf :: IO (Config Snap AppConfig)\ngetConf = commandLineAppConfig defaultConfig\n\n\n------------------------------------------------------------------------------\n-- | This function generates the the site handler and cleanup action from the\n-- configuration. In production mode, this action is only run once. In\n-- development mode, this action is run whenever the application is reloaded.\n--\n-- Development mode also makes sure that the cleanup actions are run\n-- appropriately before shutdown. The cleanup action returned from loadSnapTH\n-- should still be used after the server has stopped handling requests, as the\n-- cleanup actions are only automatically run when a reload is triggered.\n--\n-- This sample doesn't actually use the config passed in, but more\n-- sophisticated code might.\ngetActions :: Config Snap AppConfig -> IO (Snap (), IO ())\ngetActions conf = do\n (msgs, site, cleanup) <- runSnaplet\n (appEnvironment =<< getOther conf) app\n hPutStrLn stderr $ T.unpack msgs\n return (site, cleanup)\n"}]}},{"Replacement":{"inode":{"change":3,"pos":1422},"path":"src/Ananke/Interval.hs","line":6,"ins":{"up_context":[{"change":3,"pos":1517}],"down_context":[{"change":3,"pos":1544}],"flag":"BLOCK","start":2546,"end":2575,"inode":{"change":3,"pos":1422}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1517},"to":{"change":3,"start":1517,"end":1544},"introduced_by":3}],"inode":{"change":3,"pos":1422}},"ins_contents":[{"Add":"import Data.Time.LocalTime()"}],"del_contents":[{"Del":"import Data.Time.LocalTime\n"}]}},{"Edit":{"inode":{"change":3,"pos":1422},"path":"src/Ananke/Interval.hs","line":12,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":1682}],"down_context":[{"change":3,"pos":3}],"flag":"BLOCK","start":2576,"end":2619,"inode":{"change":3,"pos":1422}}},"contents":[{"Add":"interval :: UTCTime -> UTCTime -> Interval"}]}},{"Edit":{"inode":{"change":3,"pos":846},"path":"src/Ananke/TimeLog.hs","line":18,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":52},"to":{"change":2,"start":52,"end":82},"introduced_by":2}],"inode":{"change":3,"pos":846}}},"contents":[{"Del":"import Control.Exception.Base\n"}]}},{"Replacement":{"inode":{"change":3,"pos":846},"path":"src/Ananke/TimeLog.hs","line":19,"ins":{"up_context":[{"change":3,"pos":98}],"down_context":[{"change":3,"pos":168}],"flag":"BLOCK","start":2621,"end":2644,"inode":{"change":3,"pos":846}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":98},"to":{"change":3,"start":98,"end":119},"introduced_by":3}],"inode":{"change":3,"pos":846}},"ins_contents":[{"Add":"import Data.Function()"}],"del_contents":[{"Del":"import Data.Function\n"}]}},{"Replacement":{"inode":{"change":3,"pos":846},"path":"src/Ananke/TimeLog.hs","line":23,"ins":{"up_context":[{"change":3,"pos":119}],"down_context":[{"change":3,"pos":1028}],"flag":"BLOCK","start":2645,"end":2665,"inode":{"change":3,"pos":846}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":119},"to":{"change":3,"start":3,"end":21},"introduced_by":3}],"inode":{"change":3,"pos":846}},"ins_contents":[{"Add":"import Data.Ratio()"}],"del_contents":[{"Del":"import Data.Ratio\n"}]}},{"Edit":{"inode":{"change":3,"pos":846},"path":"src/Ananke/TimeLog.hs","line":25,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1051},"to":{"change":3,"start":1051,"end":1081},"introduced_by":3}],"inode":{"change":3,"pos":846}}},"contents":[{"Del":"import Data.Typeable.Internal\n"}]}},{"Edit":{"inode":{"change":3,"pos":846},"path":"src/Ananke/TimeLog.hs","line":27,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":2,"pos":154},"to":{"change":3,"start":108,"end":200},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1081},"to":{"change":3,"start":108,"end":200},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1224},"to":{"change":3,"start":281,"end":301},"introduced_by":3}],"inode":{"change":3,"pos":846}}},"contents":[{"Del":"-- import Database.PostgreSQL.Simple.FromRow\n-- import Database.PostgreSQL.Simple.FromField\n"},{"Del":"\nimport Debug.Trace\n"}]}},{"Replacement":{"inode":{"change":3,"pos":846},"path":"src/Ananke/TimeLog.hs","line":29,"ins":{"up_context":[{"change":3,"pos":251}],"down_context":[{"change":3,"pos":1282}],"flag":"BLOCK","start":2666,"end":2736,"inode":{"change":3,"pos":846}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":251},"to":{"change":3,"start":251,"end":320},"introduced_by":3}],"inode":{"change":3,"pos":846}},"ins_contents":[{"Add":" | StopWork { logTime :: UTCTime } deriving (Show, Eq)"}],"del_contents":[{"Del":" | StopWork { logTime :: UTCTime } deriving (Show, Eq)\n"}]}},{"Edit":{"inode":{"change":3,"pos":846},"path":"src/Ananke/TimeLog.hs","line":38,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":539}],"down_context":[{"change":3,"pos":1406}],"flag":"BLOCK","start":2737,"end":2759,"inode":{"change":3,"pos":846}}},"contents":[{"Add":" parseJSON _ = mzero"}]}},{"Replacement":{"inode":{"change":3,"pos":846},"path":"src/Ananke/TimeLog.hs","line":112,"ins":{"up_context":[{"change":3,"pos":772}],"down_context":[{"change":3,"pos":1086}],"flag":"BLOCK","start":2760,"end":2916,"inode":{"change":3,"pos":846}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":772},"to":{"change":3,"start":2319,"end":2482},"introduced_by":3}],"inode":{"change":3,"pos":846}},"ins_contents":[{"Add":"reduceToIntervals ((LogEntry addr (StopWork end')) : (LogEntry _ (StartWork start')) : xs, acc) = "},{"Add":" (xs, (LogInterval addr (interval start' end')) : acc) "}],"del_contents":[{"Del":"reduceToIntervals ((LogEntry addr (StopWork end)) : (LogEntry _ (StartWork start)) : xs, intervals) = \n (xs, (LogInterval addr (interval start end)) : intervals)\n"}]}},{"Replacement":{"inode":{"change":3,"pos":846},"path":"src/Ananke/TimeLog.hs","line":130,"ins":{"up_context":[{"change":3,"pos":971}],"down_context":[{"change":2,"pos":482}],"flag":"BLOCK","start":2917,"end":3011,"inode":{"change":3,"pos":846}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":971},"to":{"change":2,"start":390,"end":482},"introduced_by":2}],"inode":{"change":3,"pos":846}},"ins_contents":[{"Add":" depf' :: NominalDiffTime -> Rational"},{"Add":" depf' dt = if dt < monthsLength undepPeriod "}],"del_contents":[{"Del":" depf :: NominalDiffTime -> Rational\n depf dt = if dt < monthsLength undepPeriod \n"}]}},{"Replacement":{"inode":{"change":3,"pos":846},"path":"src/Ananke/TimeLog.hs","line":134,"ins":{"up_context":[{"change":2,"pos":586}],"down_context":[{"change":3,"pos":1182}],"flag":"BLOCK","start":3012,"end":3036,"inode":{"change":3,"pos":846}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":2,"pos":586},"to":{"change":3,"start":1159,"end":1182},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1159},"to":{"change":3,"start":1159,"end":1182},"introduced_by":2}],"inode":{"change":3,"pos":846}},"ins_contents":[{"Add":" in Depreciation depf'"}],"del_contents":[{"Del":" in Depreciation depf\n"}]}},{"Replacement":{"inode":{"change":3,"pos":3665},"path":"test/Ananke/TimeLogSpec.hs","line":11,"ins":{"up_context":[{"change":3,"pos":291}],"down_context":[{"change":3,"pos":1915}],"flag":"BLOCK","start":3040,"end":3063,"inode":{"change":3,"pos":3665}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":291},"to":{"change":3,"start":291,"end":312},"introduced_by":3}],"inode":{"change":3,"pos":3665}},"ins_contents":[{"Add":"--import Control.Monad"}],"del_contents":[{"Del":"import Control.Monad\n"}]}},{"Replacement":{"inode":{"change":3,"pos":3665},"path":"test/Ananke/TimeLogSpec.hs","line":15,"ins":{"up_context":[{"change":3,"pos":331}],"down_context":[{"change":3,"pos":201}],"flag":"BLOCK","start":3064,"end":3085,"inode":{"change":3,"pos":3665}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":331},"to":{"change":3,"start":3744,"end":3763},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1943},"to":{"change":3,"start":3744,"end":3763},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2685},"to":{"change":3,"start":3744,"end":3763},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3744},"to":{"change":3,"start":3744,"end":3763},"introduced_by":3}],"inode":{"change":3,"pos":3665}},"ins_contents":[{"Add":"--import Data.Monoid"}],"del_contents":[{"Del":"import Data.Monoid\n"}]}},{"Edit":{"inode":{"change":3,"pos":3665},"path":"test/Ananke/TimeLogSpec.hs","line":17,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3863},"to":{"change":3,"start":3863,"end":3895},"introduced_by":3}],"inode":{"change":3,"pos":3665}}},"contents":[{"Del":"import qualified Data.Text as T\n"}]}},{"Edit":{"inode":{"change":3,"pos":3665},"path":"test/Ananke/TimeLogSpec.hs","line":19,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":2173},"to":{"change":3,"start":3895,"end":3896},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3895},"to":{"change":3,"start":3895,"end":3896},"introduced_by":3}],"inode":{"change":3,"pos":3665}}},"contents":[{"Del":"\n"}]}},{"Replacement":{"inode":{"change":3,"pos":3665},"path":"test/Ananke/TimeLogSpec.hs","line":42,"ins":{"up_context":[{"change":3,"pos":1004}],"down_context":[{"change":3,"pos":417}],"flag":"BLOCK","start":3086,"end":3212,"inode":{"change":3,"pos":3665}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1004},"to":{"change":3,"start":1004,"end":1126},"introduced_by":3}],"inode":{"change":3,"pos":3665}},"ins_contents":[{"Add":" (start', end') <- zip starts ends"},{"Add":" [ LogEntry addr (StartWork start'), LogEntry addr (StopWork end') ]"}],"del_contents":[{"Del":" (start, end) <- zip starts ends\n [ LogEntry addr (StartWork start), LogEntry addr (StopWork end) ]\n"}]}},{"Replacement":{"inode":{"change":3,"pos":3665},"path":"test/Ananke/TimeLogSpec.hs","line":48,"ins":{"up_context":[{"change":3,"pos":1227}],"down_context":[{"change":3,"pos":2824}],"flag":"BLOCK","start":3213,"end":3322,"inode":{"change":3,"pos":3665}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1227},"to":{"change":3,"start":1227,"end":1332},"introduced_by":3}],"inode":{"change":3,"pos":3665}},"ins_contents":[{"Add":" (start', end') <- zip starts ends"},{"Add":" return $ LogInterval addr (I.interval start' end')"}],"del_contents":[{"Del":" (start, end) <- zip starts ends\n return $ LogInterval addr (I.interval start end)\n"}]}}],"owner":"nuttycom","repo":"aftok","token":"UgF/ALCEmMS2yqfr3HjwBwX8xPQt2beGqB7dHmwsQbE=","login":null}

Login:
Password:

…

Dependencies

Change contents