OSX build fixes
authorJoey Hess <joeyh@joeyh.name>
Mon, 17 Feb 2025 18:05:19 +0000 (14:05 -0400)
committerJoey Hess <joeyh@joeyh.name>
Mon, 17 Feb 2025 18:05:19 +0000 (14:05 -0400)
Assistant/Upgrade.hs

index df91bb976d762567bf6d977903203eaa5475c7fc..59a3165ba226ccffcafc1673d1a793a53588d346 100644 (file)
@@ -168,13 +168,13 @@ upgradeToDistribution newdir cleanup distributionfile = do
                olddir <- oldVersionLocation
                withTmpDirIn (parentDir newdir) (literalOsPath "git-annex.upgrade") $ \tmpdir -> do
                        void $ boolSystem "hdiutil"
-                               [ Param "attach", File distributionfile
+                               [ Param "attach", File (fromOsPath distributionfile)
                                , Param "-mountpoint", File (fromOsPath tmpdir)
                                ]
                        void $ boolSystem "cp"
                                [ Param "-R"
                                , File $ fromOsPath $ tmpdir </> toOsPath installBase </> literalOsPath "Contents"
-                               , File $ newdir
+                               , File (fromOsPath newdir)
                                ]
                        void $ boolSystem "hdiutil"
                                [ Param "eject"