{"header":{"message":"Switch to Postgres + snaplet arch compiles.","description":null,"timestamp":"2015-01-20T17:56:49Z","authors":[{"email":"kris.nuttycombe@gmail.com","name":"Kris Nuttycombe"}]},"hash":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC","authors":[],"deps":{"hashes":[["TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC","Switch to Postgres + snaplet arch compiles."],["AA",null],["IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","Work in progress replacing sqlite with postgres."],["64VI73NPSFNWTL6UXM6YHRFLNJZ3NUJ2R3CL53MO2HSZWFGBIRTQC","Server now compiles using abstracted SQLite"],["64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","Rename Ananke -> Quixotic, project reboot."],["2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC","Switch to more modern cabal2nix-based workflow."],["TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC","Lenses, sqlite-simple"],["W35DDBFYF6Z4ZPCFEO5RPAONZLYCSNTXUSTS6FIUUVZHCI6Q7GHAC","Factor common JSON conversions up into client lib module."],["7XN3I3QJHYMKU2DCUXX34WQMSJ4ZJOWW7FME34EANO3E5W4Q632AC","Add 'loggedIntervals' endpoint."],["LAROLAYUGJ4Q5AEFV5EJMIA2ZKBNCBWHHHPCJ3CKCNIUIYUKRFVQC","WIP"],["Z3M53KTLZMPOISMHE25SZJSWX5TA37IV33IRE7KNRAD3PKEAEJXQC","Adrift."],["EMVTF2IWNQGRL44FC4JNG5FYYQTZSFPNM6SOM7IAEH6T7PPK2NVAC","WIP moving back to snap."],["EQXRXRZDYCM7BDAVBOXQYPG6C7IJT3OFGNIXCDAHJJBRKAXNGL7AC","Changed to use tasty instead of test-framework"],["RSEB2NFGUBTFESE5BJKDUVQL5Y5ZVGY5O4CJX2LNP63MS3NRHHZQC","Replacing Snap with Scotty."],["TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC","Completed conversion to snap."],["ADMKQQGCGVSHHIMVQ4XFRDCG544SBJCYALSKZV45CQQBZ4ACUH2AC","Initial empty Snap project."],["WO2MINIF4TXOHWSE7JWXRZYN64XRVLYIRFMF4SMPSOXKA2V77KMQC","Auctions now compile!"]],"deps":["IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC"],"known":["ADMKQQGCGVSHHIMVQ4XFRDCG544SBJCYALSKZV45CQQBZ4ACUH2AC","EQXRXRZDYCM7BDAVBOXQYPG6C7IJT3OFGNIXCDAHJJBRKAXNGL7AC","RSEB2NFGUBTFESE5BJKDUVQL5Y5ZVGY5O4CJX2LNP63MS3NRHHZQC","64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","64VI73NPSFNWTL6UXM6YHRFLNJZ3NUJ2R3CL53MO2HSZWFGBIRTQC","Z3M53KTLZMPOISMHE25SZJSWX5TA37IV33IRE7KNRAD3PKEAEJXQC","EMVTF2IWNQGRL44FC4JNG5FYYQTZSFPNM6SOM7IAEH6T7PPK2NVAC","LAROLAYUGJ4Q5AEFV5EJMIA2ZKBNCBWHHHPCJ3CKCNIUIYUKRFVQC","TLQ72DSJD7GGPWN6HGBHAVPBRQFKEQ6KSK43U7JWWID4ZWAF47JAC","TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC","W35DDBFYF6Z4ZPCFEO5RPAONZLYCSNTXUSTS6FIUUVZHCI6Q7GHAC","2Y2QZFVFSKXEFEGYJB5A7GI735ONWPCF7DVTIY5T73AUEVTZTBBQC","7XN3I3QJHYMKU2DCUXX34WQMSJ4ZJOWW7FME34EANO3E5W4Q632AC"]},"hunks":[{"Edit":{"inode":{"change":2,"pos":456},"path":"lib/Quixotic/Database/PostgreSQL.hs","line":15,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":906},"to":{"change":2,"start":906,"end":946},"introduced_by":2}],"inode":{"change":2,"pos":456}}},"contents":[{"Del":{"text":"import Database.PostgreSQL.Simple.ToRow","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:945"}}]}},{"Replacement":{"inode":{"change":2,"pos":456},"path":"lib/Quixotic/Database/PostgreSQL.hs","line":40,"ins":{"up_context":[{"change":2,"pos":1575}],"down_context":[{"change":2,"pos":1605}],"flag":"BLOCK","start":4,"end":51,"inode":{"change":2,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":1575},"to":{"change":2,"start":1575,"end":1605},"introduced_by":2}],"inode":{"change":2,"pos":456}},"ins_contents":[{"Add":{"text":"btcParser f v = fromRational <$> fromField f v","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:50"}}],"del_contents":[{"Del":{"text":"btcParser f v = fromField f v","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:1604"}}]}},{"Edit":{"inode":{"change":2,"pos":456},"path":"lib/Quixotic/Database/PostgreSQL.hs","line":63,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":2289}],"down_context":[{"change":2,"pos":2289}],"flag":"BLOCK","start":52,"end":160,"inode":{"change":2,"pos":456}}},"contents":[{"Add":{"text":"qdbUserRowParser :: RowParser QDBUser","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:89"}},{"Add":{"text":"qdbUserRowParser = QDBUser <$> fieldWith uidParser <*> userRowParser","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:158"}},{"Add":{"text":"","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:159"}}]}},{"Replacement":{"inode":{"change":2,"pos":456},"path":"lib/Quixotic/Database/PostgreSQL.hs","line":67,"ins":{"up_context":[{"change":2,"pos":2338}],"down_context":[{"change":2,"pos":2374}],"flag":"BLOCK","start":161,"end":186,"inode":{"change":2,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":2338},"to":{"change":2,"start":2338,"end":2374},"introduced_by":2}],"inode":{"change":2,"pos":456}},"ins_contents":[{"Add":{"text":"newtype PBTC = PBTC BTC ","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:185"}}],"del_contents":[{"Del":{"text":"newtype PBTC = PBTC { pBTC :: BTC }","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:2373"}}]}},{"Edit":{"inode":{"change":2,"pos":456},"path":"lib/Quixotic/Database/PostgreSQL.hs","line":90,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":3062}],"down_context":[{"change":2,"pos":3062}],"flag":"BLOCK","start":187,"end":314,"inode":{"change":2,"pos":456}}},"contents":[{"Add":{"text":"newtype PQDBUser = PQDBUser { pQDBUser :: QDBUser }","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:238"}},{"Add":{"text":"instance FromRow PQDBUser where","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:270"}},{"Add":{"text":" fromRow = PQDBUser <$> qdbUserRowParser","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:312"}},{"Add":{"text":"","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:313"}}]}},{"Replacement":{"inode":{"change":2,"pos":456},"path":"lib/Quixotic/Database/PostgreSQL.hs","line":149,"ins":{"up_context":[{"change":2,"pos":4914}],"down_context":[{"change":2,"pos":4936}],"flag":"BLOCK","start":315,"end":338,"inode":{"change":2,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":4914},"to":{"change":2,"start":4914,"end":4936},"introduced_by":2}],"inode":{"change":2,"pos":456}},"ins_contents":[{"Add":{"text":"createUser' user' = do","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:337"}}],"del_contents":[{"Del":{"text":"createUser' user = do","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:4935"}}]}},{"Replacement":{"inode":{"change":2,"pos":456},"path":"lib/Quixotic/Database/PostgreSQL.hs","line":153,"ins":{"up_context":[{"change":2,"pos":5055}],"down_context":[{"change":2,"pos":5140}],"flag":"BLOCK","start":339,"end":427,"inode":{"change":2,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":5055},"to":{"change":2,"start":5055,"end":5140},"introduced_by":2}],"inode":{"change":2,"pos":456}},"ins_contents":[{"Add":{"text":" (user' ^. (username._UserName), user' ^. (userAddress.address), user' ^. userEmail)","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:426"}}],"del_contents":[{"Del":{"text":" (user ^. (username._UserName), user ^. (userAddress.address), user ^. userEmail)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5139"}}]}},{"Replacement":{"inode":{"change":2,"pos":456},"path":"lib/Quixotic/Database/PostgreSQL.hs","line":164,"ins":{"up_context":[{"change":2,"pos":5425}],"down_context":[{"change":2,"pos":5524}],"flag":"BLOCK","start":428,"end":703,"inode":{"change":2,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":5425},"to":{"change":2,"start":5425,"end":5524},"introduced_by":2}],"inode":{"change":2,"pos":456}},"ins_contents":[{"Add":{"text":"findUserByUserName' :: UserName -> ReaderT Connection IO (Maybe QDBUser)","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:500"}},{"Add":{"text":"findUserByUserName' (UserName h) = do","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:538"}},{"Add":{"text":" conn <- ask","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:552"}},{"Add":{"text":" users <- lift $ query conn","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:581"}},{"Add":{"text":" \"SELECT id, handle, btc_addr, email FROM users WHERE handle = ?\"","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:650"}},{"Add":{"text":" (Only h)","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:663"}},{"Add":{"text":" pure . fmap pQDBUser $ headMay users","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:702"}}],"del_contents":[{"Del":{"text":"findUserByHandle' :: Handle -> ReaderT Connection IO (Maybe QDBUser)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5493"}},{"Del":{"text":"findUserByHandle' = undefined","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5523"}}]}},{"Edit":{"inode":{"change":2,"pos":456},"path":"lib/Quixotic/Database/PostgreSQL.hs","line":172,"atom":{"NewVertex":{"up_context":[{"change":2,"pos":5525}],"down_context":[{"change":2,"pos":5525}],"flag":"BLOCK","start":704,"end":705,"inode":{"change":2,"pos":456}}},"contents":[{"Add":{"text":"","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:704"}}]}},{"Replacement":{"inode":{"change":2,"pos":456},"path":"lib/Quixotic/Database/PostgreSQL.hs","line":183,"ins":{"up_context":[{"change":2,"pos":5820}],"down_context":[{"change":2,"pos":5861}],"flag":"BLOCK","start":706,"end":751,"inode":{"change":2,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":5820},"to":{"change":2,"start":5820,"end":5861},"introduced_by":2}],"inode":{"change":2,"pos":456}},"ins_contents":[{"Add":{"text":" , findUserByUserName = findUserByUserName'","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:750"}}],"del_contents":[{"Del":{"text":" , findUserByHandle = findUserByHandle'","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:5860"}}]}},{"Replacement":{"inode":{"change":3,"pos":3612},"path":"lib/Quixotic/Database/SQLite.hs","line":132,"ins":{"up_context":[{"change":2,"pos":6459}],"down_context":[{"change":3,"pos":3270}],"flag":"BLOCK","start":753,"end":797,"inode":{"change":3,"pos":3612}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":6459},"to":{"change":2,"start":6459,"end":6501},"introduced_by":2}],"inode":{"change":3,"pos":3612}},"ins_contents":[{"Add":{"text":" , findUserByUserName = \\_ -> pure Nothing","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:796"}}],"del_contents":[{"Del":{"text":" , findUserByHandle = \\_ -> pure Nothing","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:6500"}}]}},{"Replacement":{"inode":{"change":3,"pos":4936},"path":"lib/Quixotic/Database.hs","line":27,"ins":{"up_context":[{"change":2,"pos":7012}],"down_context":[{"change":3,"pos":5159}],"flag":"BLOCK","start":799,"end":855,"inode":{"change":3,"pos":4936}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":7012},"to":{"change":2,"start":7012,"end":7064},"introduced_by":2}],"inode":{"change":3,"pos":4936}},"ins_contents":[{"Add":{"text":" , findUserByUserName :: UserName -> m (Maybe QDBUser)","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:854"}}],"del_contents":[{"Del":{"text":" , findUserByHandle :: Handle -> m (Maybe QDBUser)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7063"}}]}},{"Edit":{"inode":{"change":3,"pos":1},"path":"quixotic.cabal","line":27,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":751}],"down_context":[{"change":17,"pos":1584}],"flag":"BLOCK","start":857,"end":894,"inode":{"change":3,"pos":1}}},"contents":[{"Add":{"text":" Quixotic.Users","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:893"}}]}},{"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":897,"end":1109,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5188},"to":{"change":3,"start":1384,"end":1459},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1459},"to":{"change":2,"start":7498,"end":7548},"introduced_by":2}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":{"text":"{-# LANGUAGE ScopedTypeVariables #-} ","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:934"}},{"Add":{"text":"{-# LANGUAGE OverloadedStrings #-} ","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:970"}},{"Add":{"text":"{-# LANGUAGE NoImplicitPrelude #-}","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1005"}},{"Add":{"text":"{-# LANGUAGE RecordWildCards #-} ","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1039"}},{"Add":{"text":"{-# LANGUAGE FlexibleInstances #-} ","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1075"}},{"Add":{"text":"{-# LANGUAGE TemplateHaskell #-}","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1108"}}],"del_contents":[{"Del":{"text":"{-# LANGUAGE ScopedTypeVariables, OverloadedStrings, NoImplicitPrelude #-}","pos":"EMVTF2IWNQGRL44FC4JNG5FYYQTZSFPNM6SOM7IAEH6T7PPK2NVAC:1458"}},{"Del":{"text":"{-# LANGUAGE RecordWildCards, TemplateHaskell #-}","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7547"}}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":13,"ins":{"up_context":[{"change":3,"pos":643}],"down_context":[{"change":3,"pos":112}],"flag":"BLOCK","start":1110,"end":1165,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":643},"to":{"change":2,"start":7549,"end":7572},"introduced_by":2},{"previous":"","flag":"DELETED","from":{"change":3,"pos":643},"to":{"change":3,"start":191,"end":225},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":2,"pos":7572},"to":{"change":3,"start":191,"end":225},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":191},"to":{"change":3,"start":191,"end":225},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":225},"to":{"change":3,"start":2406,"end":2439},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2406},"to":{"change":3,"start":2406,"end":2439},"introduced_by":3}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":{"text":"import Control.Monad.Reader","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1137"}},{"Add":{"text":"import Control.Monad.State","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1164"}}],"del_contents":[{"Del":{"text":"import Control.Lens.TH","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7571"}},{"Del":{"text":"import Control.Monad.Trans.Reader","pos":"TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC:224"}},{"Del":{"text":"import qualified Data.Aeson as A","pos":"64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC:2438"}}]}},{"Edit":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":17,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":170},"to":{"change":3,"start":644,"end":660},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":660},"to":{"change":2,"start":7573,"end":7590},"introduced_by":2}],"inode":{"change":3,"pos":5188}}},"contents":[{"Del":{"text":"import Data.Map","pos":"7XN3I3QJHYMKU2DCUXX34WQMSJ4ZJOWW7FME34EANO3E5W4Q632AC:659"}},{"Del":{"text":"import Data.Pool","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7589"}}]}},{"Edit":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":22,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":2,"pos":7661},"to":{"change":3,"start":920,"end":941},"introduced_by":2},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":217},"to":{"change":3,"start":920,"end":941},"introduced_by":3}],"inode":{"change":3,"pos":5188}}},"contents":[{"Del":{"text":"import Quixotic.Json","pos":"W35DDBFYF6Z4ZPCFEO5RPAONZLYCSNTXUSTS6FIUUVZHCI6Q7GHAC:940"}}]}},{"Edit":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":23,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":2567}],"down_context":[{"change":3,"pos":942}],"flag":"BLOCK","start":1166,"end":1188,"inode":{"change":3,"pos":5188}}},"contents":[{"Add":{"text":"import Quixotic.Users","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1187"}}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":29,"ins":{"up_context":[{"change":2,"pos":7682}],"down_context":[{"change":2,"pos":7707}],"flag":"BLOCK","start":1189,"end":1267,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":7682},"to":{"change":2,"start":7682,"end":7707},"introduced_by":2}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":{"text":"import Snap.Snaplet.PostgresqlSimple","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1225"}},{"Add":{"text":"import qualified Snap.Snaplet.Auth as AU","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1266"}}],"del_contents":[{"Del":{"text":"import Snap.Snaplet.Auth","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7706"}}]}},{"Edit":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":32,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":7758},"to":{"change":2,"start":7758,"end":7795},"introduced_by":2}],"inode":{"change":3,"pos":5188}}},"contents":[{"Del":{"text":"import Snap.Snaplet.PostgresqlSimple","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:7794"}}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":51,"ins":{"up_context":[{"change":2,"pos":8110}],"down_context":[{"change":2,"pos":8149}],"flag":"BLOCK","start":1268,"end":1310,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":8110},"to":{"change":2,"start":8110,"end":8149},"introduced_by":2}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":{"text":" , _auth :: Snaplet (AU.AuthManager App)","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1309"}}],"del_contents":[{"Del":{"text":" , _auth :: Snaplet (AuthManager App)","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:8148"}}]}},{"Edit":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":55,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":315}],"down_context":[{"change":2,"pos":8171}],"flag":"BLOCK","start":1311,"end":1454,"inode":{"change":3,"pos":5188}}},"contents":[{"Add":{"text":"instance HasPostgres (Handler b App) where","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1353"}},{"Add":{"text":" getPostgresState = with db get","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1388"}},{"Add":{"text":" setLocalPostgresState s = local (set (db . snapletValue) s)","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1452"}},{"Add":{"text":"","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1453"}}]}},{"Edit":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":110,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":6063}],"down_context":[{"change":2,"pos":9374}],"flag":"BLOCK","start":1455,"end":2121,"inode":{"change":3,"pos":5188}}},"contents":[{"Add":{"text":"requireLogin :: Handler App App a -> Handler App App a","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1509"}},{"Add":{"text":"requireLogin = AU.requireUser auth (redirect \"/login\")","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1564"}},{"Add":{"text":"","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1565"}},{"Add":{"text":"requireUserId :: (UserId -> Handler App App a) -> Handler App App a ","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1634"}},{"Add":{"text":"requireUserId hf = AU.requireUser auth (redirect \"/login\") $ do","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1698"}},{"Add":{"text":" QDB{..} <- with qdb get","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1724"}},{"Add":{"text":" authedUser <- with auth AU.currentUser","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1765"}},{"Add":{"text":" qdbUser <- case UserName . AU.unUid <$> (AU.userId =<< authedUser) of ","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1838"}},{"Add":{"text":" Nothing -> snapError 403 \"User is authenticated, but session lacks user identifier\"","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1926"}},{"Add":{"text":" Just n -> liftPG . runReaderT $ findUserByUserName n","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:1984"}},{"Add":{"text":" case qdbUser of","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:2002"}},{"Add":{"text":" Nothing -> snapError 403 \"Unable to retrieve user record for authenticated user\" ","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:2088"}},{"Add":{"text":" Just u -> hf (u ^. userId)","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:2119"}},{"Add":{"text":"","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:2120"}}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":125,"ins":{"up_context":[{"change":2,"pos":9424}],"down_context":[{"change":2,"pos":9563}],"flag":"BLOCK","start":2122,"end":2200,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":9424},"to":{"change":2,"start":9424,"end":9563},"introduced_by":2}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":{"text":"logWorkHandler evType = requireUserId $ \\uid -> do ","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:2173"}},{"Add":{"text":" QDB{..} <- with qdb get","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:2199"}}],"del_contents":[{"Del":{"text":"logWorkHandler evType = do ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9451"}},{"Del":{"text":" QDB{..} <- with qdb mempty","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9480"}},{"Del":{"text":" pg <- with db getPostgresState","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9513"}},{"Del":{"text":" authedUser <- with auth currentUser","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9551"}},{"Del":{"text":" qUid <- ","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9562"}}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":130,"ins":{"up_context":[{"change":2,"pos":9679}],"down_context":[{"change":3,"pos":981}],"flag":"BLOCK","start":2201,"end":2461,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":9679},"to":{"change":2,"start":9679,"end":9872},"introduced_by":2}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":{"text":" storeEv addr = runReaderT . recordEvent uid $ LogEntry addr workEvent","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:2276"}},{"Add":{"text":" case fmap decodeUtf8 addrBytes >>= parseBtcAddr of","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:2329"}},{"Add":{"text":" Nothing -> snapError 400 $ \"Unable to parse bitcoin address from \" <> (tshow addrBytes)","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:2421"}},{"Add":{"text":" Just addr -> liftPG $ storeEv addr","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:2460"}}],"del_contents":[{"Del":{"text":" btcAddr = fmap decodeUtf8 addrBytes >>= parseBtcAddr","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9737"}},{"Del":{"text":" storeEv uid addr = runReaderT . recordEvent uid $ LogEntry addr workEvent","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9817"}},{"Del":{"text":" maybe (snapError 400 \"\") (liftPG . storeEv) btcAddr","pos":"IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC:9871"}}]}},{"Replacement":{"inode":{"change":3,"pos":5188},"path":"server/Main.hs","line":151,"ins":{"up_context":[{"change":3,"pos":1017}],"down_context":[{"change":3,"pos":1181}],"flag":"BLOCK","start":2462,"end":2509,"inode":{"change":3,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1017},"to":{"change":3,"start":1145,"end":1181},"introduced_by":3}],"inode":{"change":3,"pos":5188}},"ins_contents":[{"Add":{"text":"snapError :: MonadSnap m => Int -> Text -> m a","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:2508"}}],"del_contents":[{"Del":{"text":"snapError :: Int -> Text -> Snap ()","pos":"TCOAKCGGHOIRJCTZYEZQ3K6KCGL2LGAYGYFRGSPCHBTJJY2V6AXAC:1180"}}]}}],"owner":"nuttycom","repo":"aftok","token":"yxWMJXUMKx+6CyPmWL431ApPGQzKbNIEoy1zqV3SQqY=","login":null}

…

Dependencies

Change contents

Review