{"header":{"message":"More database stuff.","description":null,"timestamp":"2015-01-27T05:34:32Z","authors":[{"email":"kris.nuttycombe@gmail.com","name":"Kris Nuttycombe"}]},"hash":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC","authors":[],"deps":{"hashes":[["LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC","More database stuff."],["AA",null],["Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC","Very WIP. Wow."],["TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC","Switch to Postgres + snaplet arch compiles."],["BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC","Beginning of modularization of server."],["IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","Work in progress replacing sqlite with postgres."],["64C6AWH66FDKU6UE6Z6JPX2J2GBM2JOPTH2GL6LHKAIUBGNGDZ5AC","Rename Ananke -> Quixotic, project reboot."]],"deps":["Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC"],"known":["IZEVQF627FA7VV25KJAWYWGGC35LZUUBBQRPN5ZAINTQLPEDRTEAC","TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC","BROSTG5KP3NUNLSYPVQID254TE47E5RKQAKLPIY7PGWETE6JNMTAC"]},"hunks":[{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Quixotic/Database/PostgreSQL.hs","line":28,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":1290}],"down_context":[{"change":3,"pos":1290}],"flag":"BLOCK","start":4,"end":84,"inode":{"change":3,"pos":456}}},"contents":[{"Add":{"text":"pidParser :: FieldParser ProjectId","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:38"}},{"Add":{"text":"pidParser f v = ProjectId <$> fromField f v","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:82"}},{"Add":{"text":"","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:83"}}]}},{"Replacement":{"inode":{"change":3,"pos":456},"path":"lib/Quixotic/Database/PostgreSQL.hs","line":65,"ins":{"up_context":[{"change":3,"pos":90}],"down_context":[{"change":3,"pos":159}],"flag":"BLOCK","start":85,"end":472,"inode":{"change":3,"pos":456}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":3,"pos":90},"to":{"change":3,"start":90,"end":159},"introduced_by":3}],"inode":{"change":3,"pos":456}},"ins_contents":[{"Add":{"text":"qdbUserRowParser = QDBUser <$> fieldWith uidParser ","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:136"}},{"Add":{"text":" <*> userRowParser","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:181"}},{"Add":{"text":"","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:182"}},{"Add":{"text":"projectRowParser :: RowParser Project","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:220"}},{"Add":{"text":"projectRowParser = Project <$> field ","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:258"}},{"Add":{"text":" <*> field ","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:296"}},{"Add":{"text":" <*> fieldWith uidParser","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:347"}},{"Add":{"text":"","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:348"}},{"Add":{"text":"qdbProjectRowParser :: RowParser QDBProject","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:392"}},{"Add":{"text":"qdbProjectRowParser = QDBProject <$> fieldWith pidParser <*> projectRowParser","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:470"}},{"Add":{"text":"","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:471"}}],"del_contents":[{"Del":{"text":"qdbUserRowParser = QDBUser <$> fieldWith uidParser <*> userRowParser","pos":"TNR3TEHKVADAEZSTOD2XLSUTSW5AWST2YUW4CWK5KE7DSC6XHZNAC:158"}}]}},{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Quixotic/Database/PostgreSQL.hs","line":109,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":314}],"down_context":[{"change":2,"pos":273}],"flag":"BLOCK","start":473,"end":621,"inode":{"change":3,"pos":456}}},"contents":[{"Add":{"text":"newtype PQDBProject = PQDBProject { pQDBProject :: QDBProject }","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:536"}},{"Add":{"text":"instance FromRow PQDBProject where","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:571"}},{"Add":{"text":" fromRow = PQDBProject <$> qdbProjectRowParser","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:619"}},{"Add":{"text":"","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:620"}}]}},{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Quixotic/Database/PostgreSQL.hs","line":192,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":5525}],"down_context":[{"change":3,"pos":704}],"flag":"BLOCK","start":622,"end":963,"inode":{"change":3,"pos":456}}},"contents":[{"Add":{"text":"createProject' :: Project -> ReaderT Connection IO ProjectId","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:682"}},{"Add":{"text":"createProject' p = do","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:704"}},{"Add":{"text":" conn <- ask","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:718"}},{"Add":{"text":" pids <- lift $ query conn","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:746"}},{"Add":{"text":" \"INSERT INTO projects (project_name, inception_date, initiator_id) VALUES (?, ?, ?) RETURNING id\"","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:848"}},{"Add":{"text":" (p ^. projectName, p ^. inceptionDate, p ^. (initiator._UserId))","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:917"}},{"Add":{"text":" pure . ProjectId . fromOnly $ DL.head pids","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:962"}}]}},{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Quixotic/Database/PostgreSQL.hs","line":200,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":705}],"down_context":[{"change":3,"pos":5525}],"flag":"BLOCK","start":964,"end":1370,"inode":{"change":3,"pos":456}}},"contents":[{"Add":{"text":"findUserProjects' :: UserId -> ReaderT Connection IO [QDBProject]","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:1029"}},{"Add":{"text":"findUserProjects' (UserId uid) = do","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:1065"}},{"Add":{"text":" conn <- ask","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:1079"}},{"Add":{"text":" results <- lift $ query conn","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:1110"}},{"Add":{"text":" \"SELECT p.id, p.project_name, p.inception_date, p.initiator_id \\","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:1179"}},{"Add":{"text":" \\FROM projects p LEFT OUTER JOIN project_companions pc ON pc.project_id = p.id \\","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:1264"}},{"Add":{"text":" \\WHERE p.initiator_id = ? OR pc.companion_id = ?\"","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:1318"}},{"Add":{"text":" (uid, uid)","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:1333"}},{"Add":{"text":" pure $ fmap pQDBProject results","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:1367"}},{"Add":{"text":"","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:1368"}},{"Add":{"text":"","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:1369"}}]}},{"Edit":{"inode":{"change":3,"pos":456},"path":"lib/Quixotic/Database/PostgreSQL.hs","line":222,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":751}],"down_context":[{"change":3,"pos":5861}],"flag":"BLOCK","start":1371,"end":1447,"inode":{"change":3,"pos":456}}},"contents":[{"Add":{"text":" , createProject = createProject'","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:1405"}},{"Add":{"text":" , findUserProjects = findUserProjects'","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:1446"}}]}},{"Edit":{"inode":{"change":7,"pos":4936},"path":"lib/Quixotic/Database.hs","line":34,"atom":{"NewVertex":{"up_context":[{"change":3,"pos":855}],"down_context":[{"change":2,"pos":1641}],"flag":"BLOCK","start":1449,"end":1493,"inode":{"change":7,"pos":4936}}},"contents":[{"Add":{"text":" , createProject :: Project -> m ProjectId","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:1492"}}]}},{"Replacement":{"inode":{"change":3,"pos":1088},"path":"server/Quixotic/Api/Types.hs","line":62,"ins":{"up_context":[{"change":2,"pos":4041}],"down_context":[{"change":2,"pos":4063}],"flag":"BLOCK","start":1498,"end":1529,"inode":{"change":3,"pos":1088}},"del":{"edges":[{"previous":"BLOCK","flag":"BLOCK | DELETED","from":{"change":2,"pos":4041},"to":{"change":2,"start":4041,"end":4063},"introduced_by":2}],"inode":{"change":3,"pos":1088}},"ins_contents":[{"Add":{"text":"checkProjectAccess = undefined","pos":"LD4GLVSF6YTA7OZWIGJ45H6TUXGM4WKUIYXKWQFNUP36WDMYSMXAC:1528"}}],"del_contents":[{"Del":{"text":"checkProjectAccess = ","pos":"Z7KS5XHHC6PAMTVBHXY7KUSS3BWAOU6FSYIITUCFOOJZU4OUJHBAC:4062"}}]}}],"owner":"nuttycom","repo":"aftok","token":"Nlmyx04jhOANHoGTtUAlUJavnxPOOKg5V8DHyyj7dY0=","login":null}

…

Dependencies

Change contents

Review