{"header":{"message":"Require project permissions for access to most data.","description":null,"timestamp":"2015-02-02T04:04:51Z","authors":[{"email":"kris.nuttycombe@gmail.com","name":"Kris Nuttycombe"}]},"hash":"I2KHGVD44KT4MQJXGCTVSQKMBO6TVCY72F26TLXGWRL6PHGF6RNQC","authors":[],"deps":{"hashes":[["I2KHGVD44KT4MQJXGCTVSQKMBO6TVCY72F26TLXGWRL6PHGF6RNQC","Require project permissions for access to most data."],["AA",null],["LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC","More database stuff."],["BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC","Beginning of modularization of server."],["WZUHEZSBRKHQMNWDKVG4X6DDIQEAXTGI6IGAJ5ERPRQ3W2KUMX4QC","Start of migration back toward snap."],["W35DDBFYF6Z4ZPCFEO5RPAONZLYCSNTXUSTS6FIUUVZHCI6Q7GHAC","Factor common JSON conversions up into client lib module."],["IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","Work in progress replacing sqlite with postgres."],["Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC","Very WIP. Wow."],["64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","Rename Ananke -> Quixotic, project reboot."],["5XFJNUAZUCQ3WCGW4QRIAWR764QYDOPHOIVO2TRMGSSG7UDX2M2AC","Start of addition of project infrastructure."],["VJPT6HDRMJAJD5PT3VOYJYW43ISKLICEHLSDWSROX2XZWO2OFZPQC","Fix remaining type errors after addition of login handler."],["BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC","Added primitive user registration handler."],["EMVTF2IWNQGRL44FC4JNG5FYYQTZSFPNM6SOM7IAEH6T7PPK2NVAC","WIP moving back to snap."],["TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC","Switch to Postgres + snaplet arch compiles."],["ADMKQQGCGVSHHIMVQ4XFRDCG544SBJCYALSKZV45CQQBZ4ACUH2AC","Initial empty Snap project."]],"deps":["LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC"],"known":["64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","WZUHEZSBRKHQMNWDKVG4X6DDIQEAXTGI6IGAJ5ERPRQ3W2KUMX4QC","EMVTF2IWNQGRL44FC4JNG5FYYQTZSFPNM6SOM7IAEH6T7PPK2NVAC","W35DDBFYF6Z4ZPCFEO5RPAONZLYCSNTXUSTS6FIUUVZHCI6Q7GHAC","IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC","BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC","VJPT6HDRMJAJD5PT3VOYJYW43ISKLICEHLSDWSROX2XZWO2OFZPQC","BXGLKYRXO2O4NRM3BLNWQ7AWVPQXAMFS57MFYHJNOZZEZZW5BH6AC","5XFJNUAZUCQ3WCGW4QRIAWR764QYDOPHOIVO2TRMGSSG7UDX2M2AC","Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC"]},"hunks":[{"Replacement":{"inode":{"change":15,"pos":5188},"path":"server/Main.hs","line":13,"ins":{"up_context":[{"change":3,"pos":943}],"down_context":[{"change":3,"pos":782}],"flag":"BLOCK","start":2,"end":117,"inode":{"change":15,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":943},"to":{"change":3,"start":710,"end":782},"introduced_by":3}],"inode":{"change":15,"pos":5188}},"ins_contents":[{"Add":"import Quixotic.Snaplet"},{"Add":"import Quixotic.Snaplet.Auth"},{"Add":"import Quixotic.Snaplet.Users"},{"Add":"import Quixotic.Snaplet.WorkLog"}],"del_contents":[{"Del":"import Quixotic.Api\nimport Quixotic.Api.Types\nimport Quixotic.Api.Users\n"}]}},{"Replacement":{"inode":{"change":15,"pos":5188},"path":"server/Main.hs","line":50,"ins":{"up_context":[{"change":3,"pos":8755}],"down_context":[{"change":3,"pos":823}],"flag":"BLOCK","start":118,"end":179,"inode":{"change":15,"pos":5188}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":8755},"to":{"change":3,"start":56,"end":106},"introduced_by":3}],"inode":{"change":15,"pos":5188}},"ins_contents":[{"Add":" addRoutes [ (\"login\", requireLogin >> (redirect \"/home\")) "}],"del_contents":[{"Del":" addRoutes [ (\"login\", loginHandler (const ok)) \n"}]}},{"FileDel":{"deleted_names":[{"basename":"Api","metadata":576}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":1049},"to":{"change":3,"start":1072,"end":1086},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":1086},"to":{"change":3,"start":1071,"end":1071},"introduced_by":3}],"inode":{"change":3,"pos":1071}}},"content_edges":null,"content":[]}},{"FileDel":{"deleted_names":[{"basename":"WorkLog.hs","metadata":0},{"basename":"WorkLog.hs","metadata":0}],"del":{"EdgeMap":{"edges":[{"previous":"BLOCK | FOLDER | DELETED","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":547},"to":{"change":3,"start":1453,"end":1487},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":1487},"to":{"change":3,"start":564,"end":564},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":1071},"to":{"change":3,"start":5388,"end":5422},"introduced_by":3},{"previous":"BLOCK | FOLDER","flag":"BLOCK | FOLDER | DELETED","from":{"change":3,"pos":5422},"to":{"change":3,"start":564,"end":564},"introduced_by":3}],"inode":{"change":3,"pos":564}}},"content_edges":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":564},"to":{"change":3,"start":1323,"end":1359},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1359},"to":{"change":3,"start":565,"end":602},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":564},"to":{"change":3,"start":565,"end":602},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":602},"to":{"change":3,"start":1360,"end":1382},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1382},"to":{"change":3,"start":602,"end":1438},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":602},"to":{"change":3,"start":602,"end":1438},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1439},"to":{"change":3,"start":1439,"end":1452},"introduced_by":3}],"inode":{"change":3,"pos":564}},"content":[{"Del":"{-# LANGUAGE NoImplicitPrelude #-}\n\n"},{"Del":"module Api.Worklog (resource) where\n\n"},{"Del":"import ClassyPrelude\n\n"},{"Del":"import Control.Applicative ((<$>))\nimport Control.Concurrent.STM (atomically, modifyTVar, readTVar)\nimport Control.Monad.Error (throwError)\nimport Control.Monad.Reader (ReaderT, asks)\nimport Control.Monad.Trans (liftIO)\nimport Data.Set (Set)\nimport qualified Data.Foldable as F\nimport qualified Data.Set as Set\nimport qualified Data.Text as T\n\nimport Rest (Handler, ListHandler, Range (count, offset), Resource, Void, domainReason, mkInputHandler, mkListing, mkResourceReader, named, singleRead,\n withListing, xmlJsonE, xmlJsonI, xmlJsonO)\nimport qualified Rest.Resource as R\n\nimport ApiTypes (BlogApi, ServerData (..))\nimport Type.User (User)\nimport Type.UserInfo (UserInfo (..))\nimport Type.UserSignupError (UserSignupError (..))\nimport qualified Type.User as User\nimport qualified Type.UserInfo as UserInfo\n\n"},{"Del":"resource :: \n"}]}},{"FileAdd":{"meta":{"basename":"Snaplet","metadata":576},"context":[{"change":3,"pos":1049}],"contents":[]}},{"FileAdd":{"meta":{"basename":"Auth.hs","metadata":0},"context":[{"change":0,"pos":182}],"contents":[{"Add":"module Quixotic.Snaplet.Auth where"},{"Add":""},{"Add":"import ClassyPrelude "},{"Add":""},{"Add":"import Control.Lens"},{"Add":"import Control.Monad.State"},{"Add":"import Data.ByteString (split)"},{"Add":"import Data.Attoparsec.ByteString "},{"Add":"import qualified Data.ByteString.Base64 as B64"},{"Add":""},{"Add":"import Quixotic"},{"Add":"import Quixotic.Database"},{"Add":"import Quixotic.Snaplet"},{"Add":""},{"Add":"import Snap.Core"},{"Add":"import Snap.Snaplet"},{"Add":"import Snap.Snaplet.PostgresqlSimple"},{"Add":"import qualified Snap.Snaplet.Auth as AU"},{"Add":""},{"Add":"type AuthHeader = (Text, ByteString)"},{"Add":""},{"Add":"authHeaderParser :: Parser AuthHeader"},{"Add":"authHeaderParser = do"},{"Add":" let isBase64Char w = (w >= 47 && w <= 57 ) ||"},{"Add":" (w >= 64 && w <= 90 ) ||"},{"Add":" (w >= 97 && w <= 122) ||"},{"Add":" (w == 43 || w == 61 )"},{"Add":" b64 <- string \"Basic\" *> takeWhile1 isBase64Char "},{"Add":" decoded <- either fail pure $ B64.decode b64"},{"Add":" case split 58 decoded of"},{"Add":" (uname : pwd : []) -> pure $ (decodeUtf8 uname, pwd)"},{"Add":" _ -> fail \"Could not unpack auth header into username and password components\""},{"Add":""},{"Add":"requireLogin :: Handler App App AU.AuthUser "},{"Add":"requireLogin = do"},{"Add":" req <- getRequest"},{"Add":" rawHeader <- maybe throwChallenge pure $ getHeader \"Authorization\" req"},{"Add":" (uname, pwd) <- either (throwDenied . AU.AuthError) pure $ parseOnly authHeaderParser rawHeader "},{"Add":" authResult <- with auth $ AU.loginByUsername uname (AU.ClearText pwd) False"},{"Add":" either throwDenied pure authResult"},{"Add":""},{"Add":"requireUser :: Handler App App AU.AuthUser "},{"Add":"requireUser = do "},{"Add":" currentUser <- with auth AU.currentUser"},{"Add":" maybe requireLogin pure currentUser"},{"Add":""},{"Add":"requireUserId :: Handler App App UserId"},{"Add":"requireUserId = do"},{"Add":" QDB{..} <- view qdb <$> with qm get"},{"Add":" currentUser <- requireLogin"},{"Add":" qdbUser <- case UserName . AU.unUid <$> AU.userId currentUser of "},{"Add":" Nothing -> snapError 403 \"User is authenticated, but session lacks user identifier\""},{"Add":" Just n -> liftPG . runReaderT $ findUserByUserName n"},{"Add":" case qdbUser of"},{"Add":" Nothing -> snapError 403 \"Unable to retrieve user record for authenticated user\" "},{"Add":" Just u -> pure (u ^. userId)"},{"Add":""},{"Add":"requireProjectAccess :: UserId -> Handler App App ProjectId"},{"Add":"requireProjectAccess uid = do"},{"Add":" pidMay <- getParam \"projectId\""},{"Add":" case ProjectId <$> (readMay =<< fmap decodeUtf8 pidMay) of"},{"Add":" Nothing -> snapError 403 \"Value of parameter projectId could not be parsed to a valid value.\""},{"Add":" Just pid -> error $ \"FIXME: implement project access check - got pid \" ++ \" \" ++ show uid ++ \" \" ++ show pid"},{"Add":""},{"Add":"throwChallenge :: MonadSnap m => m a"},{"Add":"throwChallenge = do"},{"Add":" modifyResponse $ (setResponseStatus 401 \"Unauthorized\") . "},{"Add":" (setHeader \"WWW-Authenticate\" \"Basic realm=quixotic\")"},{"Add":" getResponse >>= finishWith"},{"Add":""},{"Add":"throwDenied :: MonadSnap m => AU.AuthFailure -> m a"},{"Add":"throwDenied failure = do"},{"Add":" modifyResponse $ setResponseStatus 403 \"Access Denied\""},{"Add":" writeText $ \"Access Denied: \" <> tshow failure"},{"Add":" getResponse >>= finishWith"},{"Add":""}]}},{"FileMove":{"meta":{"basename":"Users.hs","metadata":0},"old":[{"basename":"Users.hs","metadata":0}],"up":[{"change":0,"pos":182}],"down":[{"change":3,"pos":3234}],"show_perms":false}},{"Replacement":{"inode":{"change":3,"pos":3234},"path":"server/Quixotic/Snaplet/Users.hs","line":1,"ins":{"up_context":[{"change":3,"pos":3234}],"down_context":[{"change":3,"pos":3411}],"flag":"BLOCK","start":3072,"end":3105,"inode":{"change":3,"pos":3234}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3234},"to":{"change":3,"start":44,"end":94},"introduced_by":3}],"inode":{"change":3,"pos":3234}},"ins_contents":[{"Add":"{-# LANGUAGE TemplateHaskell #-}"}],"del_contents":[{"Del":"{-# LANGUAGE TemplateHaskell, RecordWildCards #-}\n"}]}},{"Replacement":{"inode":{"change":3,"pos":3234},"path":"server/Quixotic/Snaplet/Users.hs","line":3,"ins":{"up_context":[{"change":3,"pos":3412}],"down_context":[{"change":3,"pos":3476}],"flag":"BLOCK","start":3106,"end":3157,"inode":{"change":3,"pos":3234}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3412},"to":{"change":3,"start":3412,"end":3476},"introduced_by":3}],"inode":{"change":3,"pos":3234}},"ins_contents":[{"Add":"module Quixotic.Snaplet.Users "},{"Add":" ( registerHandler"}],"del_contents":[{"Del":"module Quixotic.Api.Users \n ( loginHandler\n , registerHandler\n"}]}},{"Edit":{"inode":{"change":3,"pos":3234},"path":"server/Quixotic/Snaplet/Users.hs","line":12,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":165},"to":{"change":3,"start":3510,"end":3624},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3510},"to":{"change":3,"start":3510,"end":3624},"introduced_by":3}],"inode":{"change":3,"pos":3234}}},"contents":[{"Del":"import Data.ByteString (split)\nimport Data.Attoparsec.ByteString \nimport qualified Data.ByteString.Base64 as B64\n\n"}]}},{"Replacement":{"inode":{"change":3,"pos":3234},"path":"server/Quixotic/Snaplet/Users.hs","line":14,"ins":{"up_context":[{"change":3,"pos":207}],"down_context":[{"change":3,"pos":3650}],"flag":"BLOCK","start":3158,"end":3211,"inode":{"change":3,"pos":3234}},"del":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":229},"to":{"change":3,"start":3624,"end":3650},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3624},"to":{"change":3,"start":3624,"end":3650},"introduced_by":3}],"inode":{"change":3,"pos":3234}},"ins_contents":[{"Add":"import Quixotic.Snaplet"},{"Add":"import Quixotic.Snaplet.Auth"}],"del_contents":[{"Del":"import Quixotic.Api.Types\n"}]}},{"Edit":{"inode":{"change":3,"pos":3234},"path":"server/Quixotic/Snaplet/Users.hs","line":21,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":267},"to":{"change":3,"start":3729,"end":4305},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":3729},"to":{"change":3,"start":3729,"end":4305},"introduced_by":3}],"inode":{"change":3,"pos":3234}}},"contents":[{"Del":"\ndata AuthHeader = AuthHeader Text ByteString\n\nauthHeaderParser :: Parser AuthHeader\nauthHeaderParser = do\n let isBase64Char w = (w >= 47 && w <= 57 ) ||\n (w >= 64 && w <= 90 ) ||\n (w >= 97 && w <= 122) ||\n (w == 43 || w == 61 )\n b64 <- string \"Basic\" *> takeWhile1 isBase64Char \n decoded <- either fail pure $ B64.decode b64\n case split 58 decoded of\n (uname : pwd : []) -> pure $ AuthHeader (decodeUtf8 uname) pwd\n _ -> fail \"Could not unpack auth header into username and password components\"\n"}]}},{"Edit":{"inode":{"change":3,"pos":3234},"path":"server/Quixotic/Snaplet/Users.hs","line":36,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4425},"to":{"change":3,"start":4425,"end":4618},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4618},"to":{"change":3,"start":1622,"end":1763},"introduced_by":3},{"previous":"","flag":"DELETED","from":{"change":3,"pos":1763},"to":{"change":3,"start":4727,"end":4848},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4727},"to":{"change":3,"start":4727,"end":4848},"introduced_by":3}],"inode":{"change":3,"pos":3234}}},"contents":[{"Del":"loginHandler :: (AU.AuthUser -> Handler App App a) -> Handler App App a\nloginHandler onSuccess = do\n req <- getRequest\n rawHeader <- maybe throwChallenge pure $ getHeader \"Authorization\" req\n"},{"Del":" let parsedHeader = parseOnly authHeaderParser rawHeader \n (AuthHeader uname pwd) <- either (throwDenied . AU.AuthError) pure parsedHeader\n"},{"Del":" authResult <- with auth $ AU.loginByUsername uname (AU.ClearText pwd) False\n either throwDenied onSuccess authResult\n\n"}]}},{"Edit":{"inode":{"change":3,"pos":3234},"path":"server/Quixotic/Snaplet/Users.hs","line":45,"atom":{"EdgeMap":{"edges":[{"previous":"","flag":"DELETED","from":{"change":3,"pos":1083},"to":{"change":3,"start":4907,"end":5353},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4907},"to":{"change":3,"start":4907,"end":5353},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5353},"to":{"change":3,"start":1084,"end":1085},"introduced_by":3}],"inode":{"change":3,"pos":3234}}},"contents":[{"Del":"\nthrowChallenge :: MonadSnap m => m a\nthrowChallenge = do\n modifyResponse $ (setResponseStatus 401 \"Unauthorized\") . \n (setHeader \"WWW-Authenticate\" \"Basic realm=quixotic\")\n getResponse >>= finishWith\n\nthrowDenied :: MonadSnap m => AU.AuthFailure -> m a\nthrowDenied failure = do\n modifyResponse $ setResponseStatus 403 \"Access Denied\"\n writeText $ \"Access Denied: \" <> tshow failure\n getResponse >>= finishWith\n"},{"Del":"\n"}]}},{"FileMove":{"meta":{"basename":"WorkLog.hs","metadata":0},"old":[{"basename":"Api.hs","metadata":0}],"up":[{"change":0,"pos":182}],"down":[{"change":3,"pos":5424}],"show_perms":false}},{"Replacement":{"inode":{"change":3,"pos":5424},"path":"server/Quixotic/Snaplet/WorkLog.hs","line":1,"ins":{"up_context":[{"change":3,"pos":5424}],"down_context":[{"change":3,"pos":5521}],"flag":"BLOCK","start":3248,"end":3286,"inode":{"change":3,"pos":5424}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5424},"to":{"change":3,"start":5425,"end":5521},"introduced_by":3}],"inode":{"change":3,"pos":5424}},"ins_contents":[{"Add":"module Quixotic.Snaplet.WorkLog where"}],"del_contents":[{"Del":"{-# LANGUAGE FlexibleInstances #-} \n{-# LANGUAGE TemplateHaskell #-}\n\nmodule Quixotic.Api where\n"}]}},{"Edit":{"inode":{"change":3,"pos":5424},"path":"server/Quixotic/Snaplet/WorkLog.hs","line":8,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5625},"to":{"change":3,"start":5625,"end":5641},"introduced_by":3}],"inode":{"change":3,"pos":5424}}},"contents":[{"Del":"import Data.Map\n"}]}},{"Replacement":{"inode":{"change":3,"pos":5424},"path":"server/Quixotic/Snaplet/WorkLog.hs","line":14,"ins":{"up_context":[{"change":3,"pos":5729}],"down_context":[{"change":3,"pos":5755}],"flag":"BLOCK","start":3287,"end":3340,"inode":{"change":3,"pos":5424}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5729},"to":{"change":3,"start":5729,"end":5755},"introduced_by":3}],"inode":{"change":3,"pos":5424}},"ins_contents":[{"Add":"import Quixotic.Snaplet"},{"Add":"import Quixotic.Snaplet.Auth"}],"del_contents":[{"Del":"import Quixotic.Api.Types\n"}]}},{"Replacement":{"inode":{"change":3,"pos":5424},"path":"server/Quixotic/Snaplet/WorkLog.hs","line":22,"ins":{"up_context":[{"change":3,"pos":5881}],"down_context":[{"change":3,"pos":5933}],"flag":"BLOCK","start":3341,"end":3369,"inode":{"change":3,"pos":5424}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5881},"to":{"change":3,"start":5881,"end":5933},"introduced_by":3}],"inode":{"change":3,"pos":5424}},"ins_contents":[{"Add":"logWorkHandler evType = do "}],"del_contents":[{"Del":"logWorkHandler evType = requireUserId $ \\uid -> do \n"}]}},{"Replacement":{"inode":{"change":3,"pos":5424},"path":"server/Quixotic/Snaplet/WorkLog.hs","line":24,"ins":{"up_context":[{"change":3,"pos":5971}],"down_context":[{"change":3,"pos":5971}],"flag":"BLOCK","start":3370,"end":3427,"inode":{"change":3,"pos":5424}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":5971},"to":{"change":3,"start":4067,"end":4127},"introduced_by":3}],"inode":{"change":3,"pos":5424}},"ins_contents":[{"Add":" uid <- requireUserId"},{"Add":" pid <- requireProjectAccess uid"}],"del_contents":[{"Del":" pid <- getParam \"projectId\"\n checkProjectAccess pid uid\n\n"}]}},{"Replacement":{"inode":{"change":3,"pos":5424},"path":"server/Quixotic/Snaplet/WorkLog.hs","line":35,"ins":{"up_context":[{"change":3,"pos":6393}],"down_context":[{"change":3,"pos":6436}],"flag":"BLOCK","start":3428,"end":3456,"inode":{"change":3,"pos":5424}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6393},"to":{"change":3,"start":6393,"end":6436},"introduced_by":3}],"inode":{"change":3,"pos":5424}},"ins_contents":[{"Add":"loggedIntervalsHandler = do"}],"del_contents":[{"Del":"loggedIntervalsHandler = requireLogin $ do\n"}]}},{"Replacement":{"inode":{"change":3,"pos":5424},"path":"server/Quixotic/Snaplet/WorkLog.hs","line":37,"ins":{"up_context":[{"change":3,"pos":6474}],"down_context":[{"change":3,"pos":6518}],"flag":"BLOCK","start":3457,"end":3565,"inode":{"change":3,"pos":5424}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6474},"to":{"change":3,"start":6474,"end":6518},"introduced_by":3}],"inode":{"change":3,"pos":5424}},"ins_contents":[{"Add":" uid <- requireUserId "},{"Add":" pid <- requireProjectAccess uid"},{"Add":" widx <- liftPG . runReaderT $ readWorkIndex pid"}],"del_contents":[{"Del":" widx <- liftPG $ runReaderT readWorkIndex\n"}]}},{"Replacement":{"inode":{"change":3,"pos":5424},"path":"server/Quixotic/Snaplet/WorkLog.hs","line":41,"ins":{"up_context":[{"change":3,"pos":6581}],"down_context":[{"change":3,"pos":6631}],"flag":"BLOCK","start":3566,"end":3649,"inode":{"change":3,"pos":5424}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6581},"to":{"change":3,"start":6581,"end":6631},"introduced_by":3}],"inode":{"change":3,"pos":5424}},"ins_contents":[{"Add":" writeLBS . A.encode . fmap (fmap IntervalJ) $ mapKeysWith (++) (^. address) widx"}],"del_contents":[{"Del":" writeLBS . A.encode $ mapKeys (^. address) widx\n"}]}},{"Replacement":{"inode":{"change":3,"pos":5424},"path":"server/Quixotic/Snaplet/WorkLog.hs","line":44,"ins":{"up_context":[{"change":3,"pos":6669}],"down_context":[{"change":3,"pos":6705}],"flag":"BLOCK","start":3650,"end":3671,"inode":{"change":3,"pos":5424}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6669},"to":{"change":3,"start":6669,"end":6705},"introduced_by":3}],"inode":{"change":3,"pos":5424}},"ins_contents":[{"Add":"payoutsHandler = do "}],"del_contents":[{"Del":"payoutsHandler = requireLogin $ do \n"}]}},{"Edit":{"inode":{"change":3,"pos":5424},"path":"server/Quixotic/Snaplet/WorkLog.hs","line":46,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":6744}],"down_context":[{"change":3,"pos":6744}],"flag":"BLOCK","start":3672,"end":3780,"inode":{"change":3,"pos":5424}}},"contents":[{"Add":" uid <- requireUserId "},{"Add":" pid <- requireProjectAccess uid"},{"Add":" widx <- liftPG . runReaderT $ readWorkIndex pid"}]}},{"Edit":{"inode":{"change":3,"pos":5424},"path":"server/Quixotic/Snaplet/WorkLog.hs","line":50,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":6779},"to":{"change":3,"start":6779,"end":6823},"introduced_by":3}],"inode":{"change":3,"pos":5424}}},"contents":[{"Del":" widx <- liftPG $ runReaderT readWorkIndex\n"}]}},{"Edit":{"inode":{"change":3,"pos":5424},"path":"server/Quixotic/Snaplet/WorkLog.hs","line":52,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":4266}],"down_context":[],"flag":"BLOCK","start":3781,"end":3782,"inode":{"change":3,"pos":5424}}},"contents":[{"Add":""}]}},{"FileMove":{"meta":{"basename":"Snaplet.hs","metadata":0},"old":[{"basename":"Types.hs","metadata":0}],"up":[{"change":3,"pos":1049}],"down":[{"change":3,"pos":1088}],"show_perms":false}},{"Replacement":{"inode":{"change":3,"pos":1088},"path":"server/Quixotic/Snaplet.hs","line":1,"ins":{"up_context":[{"change":3,"pos":1088}],"down_context":[{"change":3,"pos":1158}],"flag":"BLOCK","start":3819,"end":3871,"inode":{"change":3,"pos":1088}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1088},"to":{"change":3,"start":1089,"end":1158},"introduced_by":3}],"inode":{"change":3,"pos":1088}},"ins_contents":[{"Add":"{-# LANGUAGE TemplateHaskell, FlexibleInstances #-}"}],"del_contents":[{"Del":"{-# LANGUAGE FlexibleInstances #-} \n{-# LANGUAGE TemplateHaskell #-}\n"}]}},{"Replacement":{"inode":{"change":3,"pos":1088},"path":"server/Quixotic/Snaplet.hs","line":3,"ins":{"up_context":[{"change":3,"pos":1159}],"down_context":[{"change":3,"pos":1191}],"flag":"BLOCK","start":3872,"end":3902,"inode":{"change":3,"pos":1088}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1159},"to":{"change":3,"start":1159,"end":1191},"introduced_by":3}],"inode":{"change":3,"pos":1088}},"ins_contents":[{"Add":"module Quixotic.Snaplet where"}],"del_contents":[{"Del":"module Quixotic.Api.Types where\n"}]}},{"Edit":{"inode":{"change":3,"pos":1088},"path":"server/Quixotic/Snaplet.hs","line":12,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":1325},"to":{"change":3,"start":3961,"end":3977},"introduced_by":3}],"inode":{"change":3,"pos":1088}}},"contents":[{"Del":"import Quixotic\n"}]}},{"Edit":{"inode":{"change":3,"pos":1088},"path":"server/Quixotic/Snaplet.hs","line":44,"atom":{"EdgeMap":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2227},"to":{"change":3,"start":2227,"end":2906},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":2906},"to":{"change":3,"start":3978,"end":4041},"introduced_by":3},{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":4041},"to":{"change":2,"start":1498,"end":1529},"introduced_by":2}],"inode":{"change":3,"pos":1088}}},"contents":[{"Del":"\nrequireLogin :: Handler App App a -> Handler App App a\nrequireLogin = AU.requireUser auth (redirect \"/login\")\n\nrequireUserId :: (UserId -> Handler App App a) -> Handler App App a \nrequireUserId hf = AU.requireUser auth (redirect \"/login\") $ do\n QDB{..} <- view qdb <$> with qm get\n authedUser <- with auth AU.currentUser\n qdbUser <- case UserName . AU.unUid <$> (AU.userId =<< authedUser) of \n Nothing -> snapError 403 \"User is authenticated, but session lacks user identifier\"\n Just n -> liftPG . runReaderT $ findUserByUserName n\n case qdbUser of\n Nothing -> snapError 403 \"Unable to retrieve user record for authenticated user\" \n Just u -> hf (u ^. userId)\n\n"},{"Del":"checkProjectAccess :: ProjectId -> UserId -> Handler App App a\n"},{"Del":"checkProjectAccess = undefined\n"}]}},{"Edit":{"inode":{"change":3,"pos":1088},"path":"server/Quixotic/Snaplet.hs","line":55,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":3199}],"down_context":[],"flag":"BLOCK","start":3903,"end":3904,"inode":{"change":3,"pos":1088}}},"contents":[{"Add":""}]}}],"owner":"nuttycom","repo":"aftok","token":"Y7EiAuDs+I+Sar3BdhFTuhTh4fp5EPvyh7yXU+5i9Lg=","login":null}

…

Dependencies

Change contents