Add remote head hash in new codebases

Author: ChrisPenner

parser-typechecker/src/Unison/Codebase/SqliteCodebase/Operations.hs

@@ -100,6 +100,7 @@ createSchema = do
   (_, emptyCausalHashId) <- emptyCausalHash
   (_, ProjectBranch {projectId, branchId}) <- insertProjectAndBranch scratchProjectName scratchBranchName emptyCausalHashId
   Q.setCurrentProjectPath projectId branchId []
+  Q.trackLatestRemoteHead
   where
     scratchProjectName = UnsafeProjectName "scratch"
     scratchBranchName = UnsafeProjectBranchName "main"