@@ -256,6 +256,7 @@ module U.Codebase.Sqlite.Queries
     addCurrentProjectPathTable,
     addProjectBranchReflogTable,
     addProjectBranchCausalHashIdColumn,
+    addProjectBranchLastAccessedColumn,
 
     -- ** schema version
     currentSchemaVersion,
@@ -420,7 +421,7 @@ type TextPathSegments = [Text]
 -- * main squeeze
 
 currentSchemaVersion :: SchemaVersion
-currentSchemaVersion = 17
+currentSchemaVersion = 18
 
 runCreateSql :: Transaction ()
 runCreateSql =
@@ -486,6 +487,10 @@ addProjectBranchCausalHashIdColumn :: Transaction ()
 addProjectBranchCausalHashIdColumn =
   executeStatements $(embedProjectStringFile "sql/014-add-project-branch-causal-hash-id.sql")
 
+addProjectBranchLastAccessedColumn :: Transaction ()
+addProjectBranchLastAccessedColumn =
+  executeStatements $(embedProjectStringFile "sql/015-add-project-branch-last-accessed.sql")
+
 schemaVersion :: Transaction SchemaVersion
 schemaVersion =
   queryOneCol
@@ -4484,6 +4489,13 @@ setCurrentProjectPath projId branchId path = do
       INSERT INTO current_project_path(project_id, branch_id, path)
       VALUES (:projId, :branchId, :jsonPath)
     |]
+  execute
+    [sql|
+      UPDATE project_branch
+      SET last_accessed = strftime('%s', 'now')
+      WHERE project_id = :projId
+        AND branch_id = :branchId
+    |]
   where
     jsonPath :: Text
     jsonPath =
 
@@ -0,0 +1,3 @@
+-- Add a new column to the project_branch table to store the last time that project branch was accessed.
+-- This column is stored as a unix epoch time.
+ALTER TABLE project_branch ADD COLUMN last_accessed INTEGER NOT NULL DEFAULT (strftime('%s', 'now'));
@@ -1,6 +1,6 @@
 cabal-version: 1.12
 
--- This file has been generated from package.yaml by hpack version 0.36.0.
+-- This file has been generated from package.yaml by hpack version 0.37.0.
 --
 -- see: https://github.com/sol/hpack
 
@@ -24,6 +24,7 @@ extra-source-files:
     sql/012-add-current-project-path-table.sql
     sql/013-add-project-branch-reflog-table.sql
     sql/014-add-project-branch-causal-hash-id.sql
+    sql/015-add-project-branch-last-accessed.sql
     sql/create.sql
 
 source-repository head
 
@@ -84,7 +84,8 @@ migrations regionVar getDeclType termBuffer declBuffer rootCodebasePath =
       sqlMigration 14 Q.addSquashResultTable,
       sqlMigration 15 Q.addSquashResultTableIfNotExists,
       sqlMigration 16 Q.cdToProjectRoot,
-      (17 {- This migration takes a raw sqlite connection -}, \conn -> migrateSchema16To17 conn)
+      (17 {- This migration takes a raw sqlite connection -}, \conn -> migrateSchema16To17 conn),
+      sqlMigration 18 Q.addProjectBranchLastAccessedColumn
     ]
   where
     runT :: Sqlite.Transaction () -> Sqlite.Connection -> IO ()
 
@@ -96,6 +96,7 @@ createSchema = do
   Q.addCurrentProjectPathTable
   Q.addProjectBranchReflogTable
   Q.addProjectBranchCausalHashIdColumn
+  Q.addProjectBranchLastAccessedColumn
   (_, emptyCausalHashId) <- emptyCausalHash
   (_, ProjectBranch {projectId, branchId}) <- insertProjectAndBranch scratchProjectName scratchBranchName emptyCausalHashId
   Q.setCurrentProjectPath projectId branchId []
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+-- Add a new column to the project_branch table to store the last time that project branch was accessed.`
	`2`	`+-- This column is stored as a unix epoch time.`
	`3`	`+ALTER TABLE project_branch ADD COLUMN last_accessed INTEGER NOT NULL DEFAULT (strftime('%s', 'now'));`