{"header":{"message":"Added initial auction create route.","description":null,"timestamp":"2016-03-06T20:14:49Z","authors":[{"email":"kris.nuttycombe@gmail.com","name":"Kris Nuttycombe"}]},"hash":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC","authors":[],"deps":{"hashes":[["HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC","Added initial auction create route."],["AA",null],["EKI57EJR65DA5FPILAHGHHAIU5ITVGHA6V3775OX7GV5XD67OWRQC","Add alternative implementation of auction winner determination."],["O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC","Undo JSON silliness, enable a couple more routes."],["64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","Rename Ananke -> Quixotic, project reboot."],["NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC","Reformat via stylish-haskell"],["Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC","Very WIP. Wow."],["NLZ3JXLOOIL37O3RRQWXHNPNSNEOOLPD6MCB754BEBECQB3KGR2AC","Fix formatting with stylish-haskell."],["2G3GNDDUOVPF45PELJ65ZB2IXEHJJXJILFRVHZXGPXUL4BVNZJFQC","Event logging is now functioning in postgres."],["2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC","Add invitation logic and clean up DBProg error handling."],["PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC","Postgres & auth are beginning to function."],["EKY7U7SKPF45OOUAHJBEQKXSUXWOHFBQFFVJWPBN5ARFJUFM2BPAC","Finish conversion to stack."],["GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC","Create amends endpoint, switch to UUID primary keys"],["7HPY3QPFPN35PSPUBVNW2GTFB3CBQZBST4J2BAVJ7QMXLIUN52JAC","Fix linting errors. (yay hlint!)"],["LAROLAYUGJ4Q5AEFV5EJMIA2ZKBNCBWHHHPCJ3CKCNIUIYUKRFVQC","WIP"],["NVOCQVASZWTKQJG7GPH7KHKZZR7NUG4WLV5YY4KAIRPCJRWCZPIAC","Initial failing tests."],["A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC","Attempting to improve JSON handling."],["ZP62WC472OTQETO2HTHIQIPO57XZIWVKPA4KL62GYU4OZDMB6NSAC","Begin conversion to build with stack."],["IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","Work in progress replacing sqlite with postgres."],["LHJ2HFXVUQ4VG25I7DADWU73G5K5WNZBDQ3SVNKFYLZ5BEYM4XCQC","Add property test for auction algorithm."],["Y35QCWYW2OTZ27ZVTH2BA3XJTUCJ2WMLKU32ZCOCDY3AW7TIZXRAC","Minor improvement in WorkIndex type to eliminate duplicated information."],["KEP5WUFJXTMKRRNZLYTGYYWA4VLFCMHTKTJYF5EA5IWBYFMU6WYQC","Convert project to stack-based build."],["4U7F3CPIDTK6JSEDMNMHVKSR7HOQDLZQD2PPVMDLHO5SFSIMUXZAC","THE GREAT RENAMING OF THINGS!"],["M4KM76DGO77VC4O6N5FFA5MTZH5GI5AJ3OUJU7INLAOY2M3LRLLAC","Merge branch 'stackify'"],["RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC","Change to use UUIDs instead of ints for primary keys."],["6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC","Use generic SMTP rather than Sendmail-specific mail client."],["QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC","Refactor QDB to use a free monad algebra instead."],["GKGVYBZGPJXO7N7GLHLRNYQPXFHBQSNQN53OKRFCXLQEYDTC5I4QC","Added JSON serialization to TimeLog"],["W35DDBFYF6Z4ZPCFEO5RPAONZLYCSNTXUSTS6FIUUVZHCI6Q7GHAC","Factor common JSON conversions up into client lib module."],["I2KHGVD44KT4MQJXGCTVSQKMBO6TVCY72F26TLXGWRL6PHGF6RNQC","Require project permissions for access to most data."],["BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC","Beginning of modularization of server."],["ADMKQQGCGVSHHIMVQ4XFRDCG544SBJCYALSKZV45CQQBZ4ACUH2AC","Initial empty Snap project."],["MGOF7IUFGXYQKZOKMM2GGULFFVAULEHLZDSHMUW6B5DBKVXXR74AC","Update TASKS list to reflect completed projects."]],"deps":["EKI57EJR65DA5FPILAHGHHAIU5ITVGHA6V3775OX7GV5XD67OWRQC"],"known":["NVOCQVASZWTKQJG7GPH7KHKZZR7NUG4WLV5YY4KAIRPCJRWCZPIAC","Y35QCWYW2OTZ27ZVTH2BA3XJTUCJ2WMLKU32ZCOCDY3AW7TIZXRAC","GKGVYBZGPJXO7N7GLHLRNYQPXFHBQSNQN53OKRFCXLQEYDTC5I4QC","64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","LAROLAYUGJ4Q5AEFV5EJMIA2ZKBNCBWHHHPCJ3CKCNIUIYUKRFVQC","IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC","PBD7LZYQHXAA3KLH2ZUX5GW4UFML6BQ32KXZF4KZ6OYFASUYFJ5QC","2G3GNDDUOVPF45PELJ65ZB2IXEHJJXJILFRVHZXGPXUL4BVNZJFQC","A6HKMINBNGQLLX4QJMYWKQ4JAEHVJ4HIRVDKPPDI3FJUO2AAB7OQC","O5FVTOM6YFBLEPF3S576K6IMT6ZZ5VQCSB3YVXNS4CKBITKCRZ7AC","RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC","GCVQD44VRPQVKPZEPIC4AOIXLJIG2ZMV3QI2Y7KALUT6NVUBSGSAC","4U7F3CPIDTK6JSEDMNMHVKSR7HOQDLZQD2PPVMDLHO5SFSIMUXZAC","QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC","2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC","6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC","7HPY3QPFPN35PSPUBVNW2GTFB3CBQZBST4J2BAVJ7QMXLIUN52JAC","KEP5WUFJXTMKRRNZLYTGYYWA4VLFCMHTKTJYF5EA5IWBYFMU6WYQC","ZP62WC472OTQETO2HTHIQIPO57XZIWVKPA4KL62GYU4OZDMB6NSAC","EKY7U7SKPF45OOUAHJBEQKXSUXWOHFBQFFVJWPBN5ARFJUFM2BPAC","M4KM76DGO77VC4O6N5FFA5MTZH5GI5AJ3OUJU7INLAOY2M3LRLLAC","NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC","NLZ3JXLOOIL37O3RRQWXHNPNSNEOOLPD6MCB754BEBECQB3KGR2AC","LHJ2HFXVUQ4VG25I7DADWU73G5K5WNZBDQ3SVNKFYLZ5BEYM4XCQC"]},"hunks":[{"Edit":{"inode":{"change":3,"pos":1},"path":"aftok.cabal","line":29,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":393}],"down_context":[{"change":3,"pos":393}],"flag":"BLOCK","start":1,"end":37,"inode":{"change":3,"pos":1}}},"contents":[{"Add":{"text":" Aftok.Project","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:36"}}]}},{"Edit":{"inode":{"change":3,"pos":1},"path":"aftok.cabal","line":54,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":206},"to":{"change":3,"start":77,"end":77},"introduced_by":3}],"inode":{"change":3,"pos":1}}},"contents":[{"Del":{"text":"","pos":"M4KM76DGO77VC4O6N5FFA5MTZH5GI5AJ3OUJU7INLAOY2M3LRLLAC:77"}}]}},{"Replacement":{"inode":{"change":3,"pos":5084},"path":"lib/Aftok/Auction.hs","line":20,"ins":{"up_context":[{"change":3,"pos":239}],"down_context":[{"change":2,"pos":158}],"flag":"BLOCK","start":41,"end":164,"inode":{"change":3,"pos":5084}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":239},"to":{"change":2,"start":129,"end":158},"introduced_by":2}],"inode":{"change":3,"pos":5084}},"ins_contents":[{"Add":{"text":" { _initiator :: UserId","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:68"}},{"Add":{"text":" --, _createdAt :: C.UTCTime","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:101"}},{"Add":{"text":" , _raiseAmount :: Satoshi","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:130"}},{"Add":{"text":" --, _auctionStart :: C.UTCTime","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:163"}}],"del_contents":[{"Del":{"text":" { _raiseAmount :: Satoshi","pos":"EKI57EJR65DA5FPILAHGHHAIU5ITVGHA6V3775OX7GV5XD67OWRQC:157"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":21,"ins":{"up_context":[{"change":3,"pos":1583}],"down_context":[{"change":3,"pos":1614}],"flag":"BLOCK","start":167,"end":203,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1583},"to":{"change":3,"start":1583,"end":1614},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":"import Aftok.Auction as A","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:202"}}],"del_contents":[{"Del":{"text":"import Aftok.Auction","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:1613"}}]}},{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":24,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":1678}],"down_context":[{"change":3,"pos":1678}],"flag":"BLOCK","start":204,"end":240,"inode":{"change":3,"pos":456}}},"contents":[{"Add":{"text":"import Aftok.Project as P","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:239"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":94,"ins":{"up_context":[{"change":3,"pos":2039}],"down_context":[{"change":3,"pos":2144}],"flag":"BLOCK","start":241,"end":309,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":2039},"to":{"change":3,"start":628,"end":662},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":669},"to":{"change":3,"start":628,"end":662},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" Auction <$> fieldWith uidParser","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:274"}},{"Add":{"text":" <*> fieldWith btcParser","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:308"}}],"del_contents":[{"Del":{"text":" Auction <$> fieldWith btcParser","pos":"KEP5WUFJXTMKRRNZLYTGYYWA4VLFCMHTKTJYF5EA5IWBYFMU6WYQC:661"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":215,"ins":{"up_context":[{"change":3,"pos":3057}],"down_context":[{"change":3,"pos":5182}],"flag":"BLOCK","start":310,"end":585,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3057},"to":{"change":3,"start":3057,"end":3162},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3162},"to":{"change":3,"start":157,"end":254},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" \"INSERT INTO auctions (project_id, user_id, raise_amount, end_time) \\","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:385"}},{"Add":{"text":" \\VALUES (?, ?, ?, ?) RETURNING id\"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:426"}},{"Add":{"text":" ( pid ^. _ProjectId","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:452"}},{"Add":{"text":" , auc ^. (A.initiator . _UserId)","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:491"}},{"Add":{"text":" , auc ^. (raiseAmount.to fromSatoshi)","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:535"}},{"Add":{"text":" , auc ^. (auctionEnd.to fromThyme)","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:576"}},{"Add":{"text":" )","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:584"}}],"del_contents":[{"Del":{"text":" \"INSERT INTO auctions (project_id, raise_amount, end_time) \\","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3123"}},{"Del":{"text":" \\VALUES (?, ?, ?) RETURNING id\"","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:3161"}},{"Del":{"text":" (pid ^. _ProjectId, auc ^. (raiseAmount.to fromSatoshi), auc ^. (auctionEnd.to fromThyme))","pos":"EKY7U7SKPF45OOUAHJBEQKXSUXWOHFBQFFVJWPBN5ARFJUFM2BPAC:253"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Aftok/Database/PostgreSQL.hs","line":288,"ins":{"up_context":[{"change":3,"pos":4751}],"down_context":[{"change":3,"pos":946}],"flag":"BLOCK","start":586,"end":696,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4751},"to":{"change":3,"start":4292,"end":4398},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":" (p ^. projectName, p ^. (inceptionDate.to fromThyme), p ^. (P.initiator . _UserId), toJSON $ p ^. depf)","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:695"}}],"del_contents":[{"Del":{"text":" (p ^. projectName, p ^. (inceptionDate.to fromThyme), p ^. (initiator._UserId), toJSON $ p ^. depf)","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:4397"}}]}},{"Replacement":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":13,"ins":{"up_context":[{"change":3,"pos":270}],"down_context":[{"change":3,"pos":301}],"flag":"BLOCK","start":698,"end":770,"inode":{"change":3,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":270},"to":{"change":2,"start":1119,"end":1183},"introduced_by":2}],"inode":{"change":3,"pos":4936}},"ins_contents":[{"Add":{"text":"import Aftok.Project as P","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:733"}},{"Add":{"text":"import Aftok.Auction as A","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:769"}}],"del_contents":[{"Del":{"text":"import Aftok.Auction (Auction, AuctionId, Bid, BidId)","pos":"EKI57EJR65DA5FPILAHGHHAIU5ITVGHA6V3775OX7GV5XD67OWRQC:1182"}}]}},{"Replacement":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":90,"ins":{"up_context":[{"change":3,"pos":7739}],"down_context":[{"change":3,"pos":7796}],"flag":"BLOCK","start":771,"end":832,"inode":{"change":3,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":7739},"to":{"change":3,"start":7739,"end":7796},"introduced_by":3}],"inode":{"change":3,"pos":4936}},"ins_contents":[{"Add":{"text":" addUserToProject pid (p ^. P.initiator) (p ^. P.initiator)","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:831"}}],"del_contents":[{"Del":{"text":" addUserToProject pid (p ^. initiator) (p ^. initiator)","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:7795"}}]}},{"Edit":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":155,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":9333}],"down_context":[{"change":3,"pos":1305}],"flag":"BLOCK","start":833,"end":849,"inode":{"change":3,"pos":4936}}},"contents":[{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:833"}},{"Add":{"text":"-- Auction ops","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:848"}}]}},{"Edit":{"inode":{"change":3,"pos":4936},"path":"lib/Aftok/Database.hs","line":158,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":1306}],"down_context":[],"flag":"BLOCK","start":850,"end":996,"inode":{"change":3,"pos":4936}}},"contents":[{"Add":{"text":"createAuction :: ProjectId -> Auction -> DBProg AuctionId","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:907"}},{"Add":{"text":"createAuction pid a = do","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:932"}},{"Add":{"text":" withProjectAuth pid (a ^. A.initiator) $ CreateAuction pid a","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:995"}}]}},{"Edit":{"inode":{"change":29,"pos":19},"path":"lib/Aftok/Json.hs","line":20,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":1358}],"down_context":[{"change":3,"pos":1358}],"flag":"BLOCK","start":998,"end":1029,"inode":{"change":29,"pos":19}}},"contents":[{"Add":{"text":"import Aftok.Project","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1028"}}]}},{"FileAdd":{"meta":{"basename":"Project.hs","metadata":0},"context":[{"change":3,"pos":679}],"contents":[{"Add":{"text":"{-# LANGUAGE TemplateHaskell #-}","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1067"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1068"}},{"Add":{"text":"module Aftok.Project where","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1095"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1096"}},{"Add":{"text":"import ClassyPrelude","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1127"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1128"}},{"Add":{"text":"import Control.Lens (makeLenses, makePrisms)","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1197"}},{"Add":{"text":"import Data.ByteString.Base64.URL as B64","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1248"}},{"Add":{"text":"import Data.Thyme.Clock as C","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1297"}},{"Add":{"text":"import Data.UUID","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1324"}},{"Add":{"text":"import OpenSSL.Random","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1356"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1357"}},{"Add":{"text":"import Aftok","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1380"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1381"}},{"Add":{"text":"newtype ProjectId = ProjectId UUID deriving (Show, Eq)","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1436"}},{"Add":{"text":"makePrisms ''ProjectId","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1459"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1460"}},{"Add":{"text":"type ProjectName = Text","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1484"}},{"Add":{"text":"data Project = Project","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1507"}},{"Add":{"text":" { _projectName :: ProjectName","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1541"}},{"Add":{"text":" , _inceptionDate :: C.UTCTime","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1573"}},{"Add":{"text":" , _initiator :: UserId","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1602"}},{"Add":{"text":" , _depf :: DepreciationFunction","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1645"}},{"Add":{"text":" }","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1649"}},{"Add":{"text":"makeLenses ''Project","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1670"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1671"}},{"Add":{"text":"newtype InvitationCode = InvitationCode ByteString deriving (Eq)","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1736"}},{"Add":{"text":"makePrisms ''InvitationCode","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1764"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1765"}},{"Add":{"text":"randomInvCode :: IO InvitationCode","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1800"}},{"Add":{"text":"randomInvCode = InvitationCode <$> randBytes 32","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1848"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1849"}},{"Add":{"text":"parseInvCode :: Text -> Either String InvitationCode","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1902"}},{"Add":{"text":"parseInvCode t = do","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1922"}},{"Add":{"text":" code <- B64.decode . encodeUtf8 $ t","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1960"}},{"Add":{"text":" if length code == 32","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:1983"}},{"Add":{"text":" then Right $ InvitationCode code","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2020"}},{"Add":{"text":" else Left \"Invitation code appears to be invalid.\"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2075"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2076"}},{"Add":{"text":"renderInvCode :: InvitationCode -> Text","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2116"}},{"Add":{"text":"renderInvCode (InvitationCode bs) = decodeUtf8 $ B64.encode bs","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2179"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2180"}},{"Add":{"text":"data Invitation = Invitation","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2209"}},{"Add":{"text":" { _projectId :: ProjectId","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2242"}},{"Add":{"text":" , _invitingUser :: UserId","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2272"}},{"Add":{"text":" , _invitedEmail :: Email","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2301"}},{"Add":{"text":" , _invitationTime :: C.UTCTime","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2334"}},{"Add":{"text":" , _acceptanceTime :: Maybe C.UTCTime","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2373"}},{"Add":{"text":" }","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2377"}},{"Add":{"text":"makeLenses ''Invitation","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2401"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2402"}}]}},{"Edit":{"inode":{"change":3,"pos":2457},"path":"lib/Aftok.hs","line":12,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5968},"to":{"change":3,"start":5968,"end":6019},"introduced_by":3}],"inode":{"change":3,"pos":2457}}},"contents":[{"Del":{"text":"import Data.ByteString.Base64.URL as B64","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:6018"}}]}},{"Edit":{"inode":{"change":3,"pos":2457},"path":"lib/Aftok.hs","line":13,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6046},"to":{"change":3,"start":6046,"end":6095},"introduced_by":3}],"inode":{"change":3,"pos":2457}}},"contents":[{"Del":{"text":"import Data.Thyme.Clock as C","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:6094"}}]}},{"Edit":{"inode":{"change":3,"pos":2457},"path":"lib/Aftok.hs","line":14,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6122},"to":{"change":3,"start":6122,"end":6154},"introduced_by":3}],"inode":{"change":3,"pos":2457}}},"contents":[{"Del":{"text":"import OpenSSL.Random","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:6153"}}]}},{"Edit":{"inode":{"change":3,"pos":2457},"path":"lib/Aftok.hs","line":42,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":2984},"to":{"change":3,"start":1910,"end":1911},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1910},"to":{"change":3,"start":1910,"end":1911},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1911},"to":{"change":3,"start":2271,"end":2326},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":2326},"to":{"change":3,"start":3041,"end":3065},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3041},"to":{"change":3,"start":3041,"end":3065},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3065},"to":{"change":3,"start":6911,"end":6935},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":6935},"to":{"change":3,"start":3065,"end":3088},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3065},"to":{"change":3,"start":3065,"end":3088},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3088},"to":{"change":3,"start":6245,"end":6279},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":6279},"to":{"change":3,"start":6968,"end":7000},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6968},"to":{"change":3,"start":6968,"end":7000},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":7000},"to":{"change":3,"start":6280,"end":6352},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":6352},"to":{"change":3,"start":3168,"end":3194},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":10913},"to":{"change":3,"start":3168,"end":3194},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3168},"to":{"change":3,"start":3168,"end":3194},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3194},"to":{"change":3,"start":7001,"end":7130},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":7130},"to":{"change":3,"start":189,"end":237},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":237},"to":{"change":3,"start":3399,"end":3400},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":7179},"to":{"change":3,"start":3399,"end":3400},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3399},"to":{"change":3,"start":3399,"end":3400},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3400},"to":{"change":3,"start":7180,"end":7291},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":7291},"to":{"change":3,"start":238,"end":261},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":261},"to":{"change":3,"start":7315,"end":7407},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":7315},"to":{"change":3,"start":7315,"end":7407},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":7025},"to":{"change":3,"start":3442,"end":3443},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":7407},"to":{"change":3,"start":3442,"end":3443},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3442},"to":{"change":3,"start":3442,"end":3443},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3443},"to":{"change":3,"start":7408,"end":7512},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":7512},"to":{"change":3,"start":6353,"end":6474},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":6474},"to":{"change":3,"start":7625,"end":7697},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":7625},"to":{"change":3,"start":7625,"end":7697},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":7697},"to":{"change":3,"start":3567,"end":3571},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3567},"to":{"change":3,"start":3567,"end":3571},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3571},"to":{"change":3,"start":7698,"end":7722},"introduced_by":3}],"inode":{"change":3,"pos":2457}}},"contents":[{"Del":{"text":"","pos":"GKGVYBZGPJXO7N7GLHLRNYQPXFHBQSNQN53OKRFCXLQEYDTC5I4QC:1910"}},{"Del":{"text":"newtype ProjectId = ProjectId UUID deriving (Show, Eq)","pos":"RPAJLHMTUJU4AYNBOHVGHGGB4NY2NLY3BVPYN5FMWB3ZIMAUQHCQC:2325"}},{"Del":{"text":"makePrisms ''ProjectId","pos":"Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC:3063"}},{"Del":{"text":"","pos":"Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC:3064"}},{"Del":{"text":"type ProjectName = Text","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:6934"}},{"Del":{"text":"data Project = Project","pos":"Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC:3087"}},{"Del":{"text":" { _projectName :: ProjectName","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:6278"}},{"Del":{"text":" , _inceptionDate :: C.UTCTime","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:6999"}},{"Del":{"text":" , _initiator :: UserId","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:6308"}},{"Del":{"text":" , _depf :: DepreciationFunction","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:6351"}},{"Del":{"text":" }","pos":"Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC:3171"}},{"Del":{"text":"makeLenses ''Project","pos":"Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC:3192"}},{"Del":{"text":"","pos":"Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC:3193"}},{"Del":{"text":"newtype InvitationCode = InvitationCode ByteString deriving (Eq)","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:7065"}},{"Del":{"text":"makePrisms ''InvitationCode","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:7093"}},{"Del":{"text":"","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:7094"}},{"Del":{"text":"randomInvCode :: IO InvitationCode","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:7129"}},{"Del":{"text":"randomInvCode = InvitationCode <$> randBytes 32","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:236"}},{"Del":{"text":"","pos":"Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC:3399"}},{"Del":{"text":"parseInvCode :: Text -> Either String InvitationCode","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:7232"}},{"Del":{"text":"parseInvCode t = do","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:7252"}},{"Del":{"text":" code <- B64.decode . encodeUtf8 $ t","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:7290"}},{"Del":{"text":" if length code == 32","pos":"6L5BK5EHPAOQX3JCKUJ273UDNAC23LPQL4HIJGM4AV3P3QK5OKIQC:260"}},{"Del":{"text":" then Right $ InvitationCode code","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:7351"}},{"Del":{"text":" else Left \"Invitation code appears to be invalid.\"","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:7406"}},{"Del":{"text":"","pos":"Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC:3442"}},{"Del":{"text":"renderInvCode :: InvitationCode -> Text","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:7447"}},{"Del":{"text":"renderInvCode (InvitationCode bs) = decodeUtf8 $ B64.encode bs","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:7510"}},{"Del":{"text":"","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:7511"}},{"Del":{"text":"data Invitation = Invitation","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:6381"}},{"Del":{"text":" { _projectId :: ProjectId","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:6414"}},{"Del":{"text":" , _invitingUser :: UserId","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:6444"}},{"Del":{"text":" , _invitedEmail :: Email","pos":"NEDDHXUK3GNFMOFO3KLU7NRIHCTYNWBT3D6HTKZAOXFDE6HMDZ6AC:6473"}},{"Del":{"text":" , _invitationTime :: C.UTCTime","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:7657"}},{"Del":{"text":" , _acceptanceTime :: Maybe C.UTCTime","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:7696"}},{"Del":{"text":" }","pos":"Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC:3570"}},{"Del":{"text":"makeLenses ''Invitation","pos":"2XQD6KKKD6QVHFHAEMVE3XXY7X2T7BLTLL7XIILZAXNJJH2YONUQC:7721"}}]}},{"FileAdd":{"meta":{"basename":"Auctions.hs","metadata":0},"context":[{"change":3,"pos":2082}],"contents":[{"Add":{"text":"{-# LANGUAGE TemplateHaskell #-}","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2474"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2475"}},{"Add":{"text":"module Aftok.Snaplet.Auctions","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2505"}},{"Add":{"text":" ( auctionCreateHandler","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2530"}},{"Add":{"text":" ) where","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2540"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2541"}},{"Add":{"text":"import ClassyPrelude","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2572"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2573"}},{"Add":{"text":"import Data.Aeson","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2601"}},{"Add":{"text":"import Data.Aeson.Types","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2635"}},{"Add":{"text":"import Data.Thyme.Clock as C","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2676"}},{"Add":{"text":"--import Data.Thyme.Format.Aeson ()","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2722"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2723"}},{"Add":{"text":"import Aftok.Database (createAuction)","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2775"}},{"Add":{"text":"import Aftok.Auction (AuctionId, Auction(..))","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2836"}},{"Add":{"text":"import Aftok.Json","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2864"}},{"Add":{"text":"import Aftok.Types","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2893"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2894"}},{"Add":{"text":"import Aftok.Snaplet","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2925"}},{"Add":{"text":"import Aftok.Snaplet.Auth","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2961"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2962"}},{"Add":{"text":"import Snap.Snaplet","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2992"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:2993"}},{"Add":{"text":"data AuctionCreateRequest = CA { raiseAmount :: Word64, auctionEnd :: C.UTCTime }","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3075"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3076"}},{"Add":{"text":"auctionCreateParser :: Value -> Parser AuctionCreateRequest","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3136"}},{"Add":{"text":"auctionCreateParser = unv1 \"auctions\" $ \\v ->","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3182"}},{"Add":{"text":" case v of","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3194"}},{"Add":{"text":" (Object o) -> CA <$> o .: \"raiseAmount\"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3238"}},{"Add":{"text":" <*> o .: \"auctionEnd\"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3281"}},{"Add":{"text":" _ -> mzero","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3305"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3306"}},{"Add":{"text":"auctionCreateHandler :: Handler App App AuctionId","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3356"}},{"Add":{"text":"auctionCreateHandler = do","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3382"}},{"Add":{"text":" uid <- requireUserId","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3405"}},{"Add":{"text":" pid <- requireProjectId","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3431"}},{"Add":{"text":" requestBody <- readRequestJSON 4096","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3469"}},{"Add":{"text":" req <- either (snapError 400 . tshow) pure $ parseEither auctionCreateParser requestBody","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3560"}},{"Add":{"text":" --t <- liftIO C.getCurrentTime","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3593"}},{"Add":{"text":" snapEval . createAuction pid $ Auction uid (Satoshi . raiseAmount $ req) (auctionEnd req)","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3685"}}]}},{"Edit":{"inode":{"change":30,"pos":203},"path":"server/Aftok/Snaplet/Auth.hs","line":13,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":7887}],"down_context":[{"change":3,"pos":7887}],"flag":"BLOCK","start":3727,"end":3758,"inode":{"change":30,"pos":203}}},"contents":[{"Add":{"text":"import Aftok.Project","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3757"}}]}},{"Replacement":{"inode":{"change":3,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":4,"ins":{"up_context":[{"change":3,"pos":2398}],"down_context":[{"change":3,"pos":2462}],"flag":"BLOCK","start":3760,"end":3896,"inode":{"change":3,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2398},"to":{"change":3,"start":2378,"end":2414},"introduced_by":3}],"inode":{"change":3,"pos":2363}},"ins_contents":[{"Add":{"text":"module Aftok.Snaplet.Projects ","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3790"}},{"Add":{"text":" ( projectCreateHandler","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3815"}},{"Add":{"text":" , projectListHandler","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3838"}},{"Add":{"text":" , projectGetHandler","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3860"}},{"Add":{"text":" , projectInviteHandler","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3885"}},{"Add":{"text":" ) where","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3895"}}],"del_contents":[{"Del":{"text":"module Aftok.Snaplet.Projects where","pos":"4U7F3CPIDTK6JSEDMNMHVKSR7HOQDLZQD2PPVMDLHO5SFSIMUXZAC:2413"}}]}},{"Edit":{"inode":{"change":3,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":24,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":2498}],"down_context":[{"change":3,"pos":2498}],"flag":"BLOCK","start":3897,"end":3928,"inode":{"change":3,"pos":2363}}},"contents":[{"Add":{"text":"import Aftok.Project","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:3927"}}]}},{"Replacement":{"inode":{"change":3,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":32,"ins":{"up_context":[{"change":3,"pos":2726}],"down_context":[{"change":3,"pos":2791}],"flag":"BLOCK","start":3929,"end":4008,"inode":{"change":3,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2726},"to":{"change":3,"start":11999,"end":12066},"introduced_by":3}],"inode":{"change":3,"pos":2363}},"ins_contents":[{"Add":{"text":"data ProjectCreateRequest = CP { cpn :: Text, cpdepf :: DepreciationFunction }","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:4007"}}],"del_contents":[{"Del":{"text":"data CProject = CP { cpn :: Text, cpdepf :: DepreciationFunction }","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12065"}}]}},{"Replacement":{"inode":{"change":3,"pos":2363},"path":"server/Aftok/Snaplet/Projects.hs","line":34,"ins":{"up_context":[{"change":3,"pos":2792}],"down_context":[{"change":3,"pos":12100}],"flag":"BLOCK","start":4009,"end":4054,"inode":{"change":3,"pos":2363}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2792},"to":{"change":3,"start":12067,"end":12100},"introduced_by":3}],"inode":{"change":3,"pos":2363}},"ins_contents":[{"Add":{"text":"instance FromJSON ProjectCreateRequest where","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:4053"}}],"del_contents":[{"Del":{"text":"instance FromJSON CProject where","pos":"QMRKFEPGFBCEWAIXPEIG5ILKAJ2JH5L3TOITHR4HNJXK5FN3KXBQC:12099"}}]}},{"Edit":{"inode":{"change":31,"pos":3234},"path":"server/Aftok/Snaplet/Users.hs","line":17,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":8846}],"down_context":[{"change":3,"pos":8846}],"flag":"BLOCK","start":4056,"end":4087,"inode":{"change":31,"pos":3234}}},"contents":[{"Add":{"text":"import Aftok.Project","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:4086"}}]}},{"Edit":{"inode":{"change":31,"pos":5424},"path":"server/Aftok/Snaplet/WorkLog.hs","line":15,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":9928}],"down_context":[{"change":3,"pos":9928}],"flag":"BLOCK","start":4089,"end":4120,"inode":{"change":31,"pos":5424}}},"contents":[{"Add":{"text":"import Aftok.Project","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:4119"}}]}},{"Edit":{"inode":{"change":32,"pos":5188},"path":"server/Main.hs","line":14,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":11489}],"down_context":[{"change":3,"pos":11489}],"flag":"BLOCK","start":4122,"end":4162,"inode":{"change":32,"pos":5188}}},"contents":[{"Add":{"text":"import Aftok.Snaplet.Auctions","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:4161"}}]}},{"Edit":{"inode":{"change":32,"pos":5188},"path":"server/Main.hs","line":53,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":12971}],"down_context":[{"change":3,"pos":7876}],"flag":"BLOCK","start":4163,"end":4231,"inode":{"change":32,"pos":5188}}},"contents":[{"Add":{"text":" auctionCreateRoute = void $ method POST auctionCreateHandler","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:4229"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:4230"}}]}},{"Edit":{"inode":{"change":32,"pos":5188},"path":"server/Main.hs","line":72,"atom":{"NewVertex":{"up_context":[{"change":33,"pos":322}],"down_context":[{"change":3,"pos":13275}],"flag":"BLOCK","start":4232,"end":4300,"inode":{"change":32,"pos":5188}}},"contents":[{"Add":{"text":" , (\"projects/:projectId/auctions\", auctionCreateRoute)","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:4298"}},{"Add":{"text":"","pos":"HALRDT2F22DAQ54M334YSKD2XJCAXDXEZPDKGMOWKH7XELBAS6MAC:4299"}}]}}],"owner":"nuttycom","repo":"aftok","token":"LpzZhB07cuOZfeqSNwwUr16YvPZS9EUJeLLo+LLW/M0=","login":null}

…

Dependencies

Change contents

Review