unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-08-15 13:30:27 +03:00
Code Issues Projects Releases Wiki Activity

Fix Upgrade

Browse Source
This commit is contained in:
Chris Penner 2024-07-10 11:05:13 -07:00
parent bf20459954
commit 2f4e57d41b
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
unison-cli/src/Unison/Codebase/Editor/HandleInput/Upgrade.hs
View File

@ -19,7 +19,7 @@ import Unison.Cli.ProjectUtils qualified as Cli
import Unison.Codebase qualified as Codebase
import Unison.Codebase.Branch qualified as Branch
import Unison.Codebase.Branch.Names qualified as Branch
import Unison.Codebase.Editor.HandleInput.Branch (CreateFrom (CreateFrom'ParentBranch))
import Unison.Codebase.Editor.HandleInput.Branch (CreateFrom (..))
import Unison.Codebase.Editor.HandleInput.Branch qualified as HandleInput.Branch
import Unison.Codebase.Editor.HandleInput.Update2
( addDefinitionsToUnisonFile,
@ -70,13 +70,14 @@ handleUpgrade oldName newName = do
let oldPath = Path.Absolute (Path.fromList [NameSegment.libSegment, oldName])
let newPath = Path.Absolute (Path.fromList [NameSegment.libSegment, newName])
currentNamespace <- Cli.getCurrentProjectRoot0
let currentNamespaceSansOld = Branch.deleteLibdep oldName currentNamespace
let currentDeepTermsSansOld = Branch.deepTerms currentNamespaceSansOld
let currentDeepTypesSansOld = Branch.deepTypes currentNamespaceSansOld
let currentLocalNames = Branch.toNames (Branch.deleteLibdeps currentNamespace)
currentNamespace <- Cli.getCurrentProjectRoot
let currentNamespaceSansOld = currentNamespace & Branch.step (Branch.deleteLibdep oldName)
let currentNamespaceSansOld0 = Branch.head currentNamespaceSansOld
let currentDeepTermsSansOld = Branch.deepTerms currentNamespaceSansOld0
let currentDeepTypesSansOld = Branch.deepTypes currentNamespaceSansOld0
let currentLocalNames = Branch.toNames (Branch.deleteLibdeps $ Branch.head currentNamespace)
let currentLocalConstructorNames = forwardCtorNames currentLocalNames
let currentDeepNamesSansOld = Branch.toNames currentNamespaceSansOld
let currentDeepNamesSansOld = Branch.toNames currentNamespaceSansOld0
oldNamespace <- Cli.expectBranch0AtPath' (Path.AbsolutePath' oldPath)
let oldLocalNamespace = Branch.deleteLibdeps oldNamespace
@ -158,7 +159,7 @@ handleUpgrade oldName newName = do
(_temporaryBranchId, temporaryBranchName) <-
HandleInput.Branch.createBranch
textualDescriptionOfUpgrade
(CreateFrom'ParentBranch projectBranch)
(CreateFrom'NamespaceWithParent projectBranch currentNamespaceSansOld)
project
getTemporaryBranchName
scratchFilePath <-

3
unison-src/transcripts/upgrade-sad-path.output.md
View File

@ -93,13 +93,12 @@ proj/main> view thingy
thingy : Int
thingy =
use Int +
new.foo + +10
foo + +10
proj/main> ls lib
1. builtin/ (469 terms, 74 types)
2. new/ (1 term)
3. old/ (1 term)
proj/main> branches