{"header":{"message":"Added primitive user registration handler.","description":null,"timestamp":"2015-01-24T02:17:27Z","authors":[{"email":"kris@simpleenergy.com","name":"Kris Nuttycombe"}]},"hash":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC","authors":[],"deps":{"hashes":[["BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC","Added primitive user registration handler."],["AA",null],["BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC","Beginning of modularization of server."],["JKMHA2QGDSVHD4DKDYQUYNJJ3LUQCOPOWEC3543BDWDXLYIBBZXQC","SQLite support is now relatively sane."],["TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC","Switch to Postgres + snaplet arch compiles."],["TZQJVHBAMDNWDBYCDE3SDVGBG2T5FOE3J5JAD6NENRW36XBHUUFQC","Add auction functions to ADB."],["EMVTF2IWNQGRL44FC4JNG5FYYQTZSFPNM6SOM7IAEH6T7PPK2NVAC","WIP moving back to snap."],["5W5M56VJFJEBXMGBVKGCKPHOEMVTKUOQMLPJP7VNDQLTYNJXXLHQC","Move library code to 'lib'"],["64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","Rename Ananke -> Quixotic, project reboot."],["LAROLAYUGJ4Q5AEFV5EJMIA2ZKBNCBWHHHPCJ3CKCNIUIYUKRFVQC","WIP"],["IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","Work in progress replacing sqlite with postgres."]],"deps":["BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC"],"known":["64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","5W5M56VJFJEBXMGBVKGCKPHOEMVTKUOQMLPJP7VNDQLTYNJXXLHQC","EMVTF2IWNQGRL44FC4JNG5FYYQTZSFPNM6SOM7IAEH6T7PPK2NVAC","LAROLAYUGJ4Q5AEFV5EJMIA2ZKBNCBWHHHPCJ3CKCNIUIYUKRFVQC","TZQJVHBAMDNWDBYCDE3SDVGBG2T5FOE3J5JAD6NENRW36XBHUUFQC","JKMHA2QGDSVHD4DKDYQUYNJJ3LUQCOPOWEC3543BDWDXLYIBBZXQC","IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC"]},"hunks":[{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Quixotic/Database/PostgreSQL.hs","line":1,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":456},"to":{"change":3,"start":457,"end":532},"introduced_by":3}],"inode":{"change":3,"pos":456}}},"contents":[{"Del":{"text":"{-# LANGUAGE ScopedTypeVariables, OverloadedStrings, NoImplicitPrelude #-}","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:531"}}]}},{"Replacement":{"inode":{"change":3,"pos":4936},"path":"lib/Quixotic/Database.hs","line":1,"ins":{"up_context":[{"change":3,"pos":4936}],"down_context":[{"change":3,"pos":426}],"flag":"BLOCK","start":5,"end":38,"inode":{"change":3,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4936},"to":{"change":3,"start":6503,"end":6555},"introduced_by":3}],"inode":{"change":3,"pos":4936}},"ins_contents":[{"Add":{"text":"{-# LANGUAGE TemplateHaskell #-}","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:37"}}],"del_contents":[{"Del":{"text":"{-# LANGUAGE NoImplicitPrelude, TemplateHaskell #-}","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6554"}}]}},{"Edit":{"inode":{"change":3,"pos":5932},"path":"lib/Quixotic/Users.hs","line":1,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5932},"to":{"change":3,"start":5933,"end":6008},"introduced_by":3}],"inode":{"change":3,"pos":5932}}},"contents":[{"Del":{"text":"{-# LANGUAGE ScopedTypeVariables, OverloadedStrings, NoImplicitPrelude #-}","pos":"LAROLAYUGJ4Q5AEFV5EJMIA2ZKBNCBWHHHPCJ3CKCNIUIYUKRFVQC:6007"}}]}},{"Replacement":{"inode":{"change":2,"pos":3234},"path":"server/Quixotic/Api/Users.hs","line":1,"ins":{"up_context":[{"change":2,"pos":3234}],"down_context":[{"change":2,"pos":3411}],"flag":"BLOCK","start":44,"end":94,"inode":{"change":2,"pos":3234}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":3234},"to":{"change":2,"start":3235,"end":3411},"introduced_by":2}],"inode":{"change":2,"pos":3234}},"ins_contents":[{"Add":{"text":"{-# LANGUAGE TemplateHaskell, RecordWildCards #-}","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:93"}}],"del_contents":[{"Del":{"text":"{-# LANGUAGE ScopedTypeVariables #-} ","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:3272"}},{"Del":{"text":"{-# LANGUAGE OverloadedStrings #-} ","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:3308"}},{"Del":{"text":"{-# LANGUAGE NoImplicitPrelude #-}","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:3343"}},{"Del":{"text":"{-# LANGUAGE RecordWildCards #-} ","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:3377"}},{"Del":{"text":"{-# LANGUAGE TemplateHaskell #-}","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:3410"}}]}},{"Edit":{"inode":{"change":2,"pos":3234},"path":"server/Quixotic/Api/Users.hs","line":10,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":3510}],"down_context":[{"change":2,"pos":3510}],"flag":"BLOCK","start":95,"end":165,"inode":{"change":2,"pos":3234}}},"contents":[{"Add":{"text":"import Control.Lens","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:114"}},{"Add":{"text":"import Control.Monad.State","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:141"}},{"Add":{"text":"import Data.Aeson as A","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:164"}}]}},{"Edit":{"inode":{"change":2,"pos":3234},"path":"server/Quixotic/Api/Users.hs","line":17,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":3624}],"down_context":[{"change":2,"pos":3624}],"flag":"BLOCK","start":166,"end":229,"inode":{"change":2,"pos":3234}}},"contents":[{"Add":{"text":"import Quixotic","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:181"}},{"Add":{"text":"import Quixotic.Database","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:206"}},{"Add":{"text":"import Quixotic.Users","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:228"}}]}},{"Edit":{"inode":{"change":2,"pos":3234},"path":"server/Quixotic/Api/Users.hs","line":25,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":3729}],"down_context":[{"change":2,"pos":3729}],"flag":"BLOCK","start":230,"end":267,"inode":{"change":2,"pos":3234}}},"contents":[{"Add":{"text":"import Snap.Snaplet.PostgresqlSimple","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:266"}}]}},{"Edit":{"inode":{"change":2,"pos":3234},"path":"server/Quixotic/Api/Users.hs","line":40,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":4305}],"down_context":[{"change":2,"pos":4305}],"flag":"BLOCK","start":268,"end":373,"inode":{"change":2,"pos":3234}}},"contents":[{"Add":{"text":"","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:268"}},{"Add":{"text":"data CreateUser = CreateUser","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:297"}},{"Add":{"text":" { _cuser :: User","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:316"}},{"Add":{"text":" , _password :: ByteString","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:344"}},{"Add":{"text":" }","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:348"}},{"Add":{"text":"makeLenses ''CreateUser","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:372"}}]}},{"Replacement":{"inode":{"change":2,"pos":3234},"path":"server/Quixotic/Api/Users.hs","line":47,"ins":{"up_context":[{"change":2,"pos":4306}],"down_context":[{"change":2,"pos":4424}],"flag":"BLOCK","start":374,"end":656,"inode":{"change":2,"pos":3234}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":4306},"to":{"change":2,"start":4306,"end":4424},"introduced_by":2}],"inode":{"change":2,"pos":3234}},"ins_contents":[{"Add":{"text":"instance FromJSON CreateUser where","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:408"}},{"Add":{"text":" parseJSON (Object v) = ","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:434"}},{"Add":{"text":" let u = User <$> (UserName <$> v .: \"username\")","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:486"}},{"Add":{"text":" <*> (BtcAddr <$> v .: \"btcAddr\")","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:537"}},{"Add":{"text":" <*> v .: \"email\"","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:571"}},{"Add":{"text":" in CreateUser <$> u <*> (fromString <$> v .: \"password\")","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:633"}},{"Add":{"text":" parseJSON _ = mzero","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:655"}}],"del_contents":[{"Del":{"text":"-- data CreateUser = CreateUser","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:4337"}},{"Del":{"text":"-- { _user :: User","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:4358"}},{"Del":{"text":"-- , _password :: ByteString","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:4389"}},{"Del":{"text":"-- }","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:4396"}},{"Del":{"text":"-- makeLenses ''CreateUser","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:4423"}}]}},{"Replacement":{"inode":{"change":2,"pos":3234},"path":"server/Quixotic/Api/Users.hs","line":64,"ins":{"up_context":[{"change":2,"pos":4886}],"down_context":[{"change":2,"pos":4907}],"flag":"BLOCK","start":657,"end":1083,"inode":{"change":2,"pos":3234}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":4886},"to":{"change":2,"start":4886,"end":4907},"introduced_by":2}],"inode":{"change":2,"pos":3234}},"ins_contents":[{"Add":{"text":"registerHandler = do","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:677"}},{"Add":{"text":" QDB{..} <- view qdb <$> with qm get","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:715"}},{"Add":{"text":" requestBody <- readRequestBody 0","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:750"}},{"Add":{"text":" userData <- maybe (snapError 400 \"Could not parse user data\") pure $ A.decode requestBody","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:842"}},{"Add":{"text":" authUser <- with auth $ ","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:869"}},{"Add":{"text":" AU.createUser (userData ^. (cuser.username._UserName)) (userData ^. password)","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:951"}},{"Add":{"text":" let createQUser = liftPG $ runReaderT (createUser $ userData ^. cuser)","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:1024"}},{"Add":{"text":" void $ either throwDenied (\\_ -> createQUser) authUser ","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:1082"}}],"del_contents":[{"Del":{"text":"registerHandler = ok","pos":"BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC:4906"}}]}},{"Edit":{"inode":{"change":2,"pos":3234},"path":"server/Quixotic/Api/Users.hs","line":84,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":5353}],"down_context":[],"flag":"BLOCK","start":1084,"end":1085,"inode":{"change":2,"pos":3234}}},"contents":[{"Add":{"text":"","pos":"BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC:1084"}}]}}],"owner":"nuttycom","repo":"aftok","token":"5bWeBJ4yvFyOuKnbysP94vG6hhe/Va5+QkebYKVPTtY=","login":null}

…

Dependencies

Change contents

Review