From 3ea7a804e003d52e6fd3eb4ddc059b064a22284c Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 16 May 2013 20:41:20 -0400
Subject: fix uninstall of some files

---
 Build/NullSoftInstaller.hs | 22 ++++++++++++++++------
 1 file changed, 16 insertions(+), 6 deletions(-)

(limited to 'Build/NullSoftInstaller.hs')

diff --git a/Build/NullSoftInstaller.hs b/Build/NullSoftInstaller.hs
index 5cb108a3a..8894585b6 100644
--- a/Build/NullSoftInstaller.hs
+++ b/Build/NullSoftInstaller.hs
@@ -31,9 +31,9 @@ import Build.BundledPrograms
 
 main = do
 	withTmpDir "nsis-build" $ \tmpdir -> do
-		let gitannex = tmpdir </> "git-annex.exe"
+		let gitannex = tmpdir </> gitannexprogram
 		mustSucceed "ln" [File "dist/build/git-annex/git-annex.exe", File gitannex]
-		let license = tmpdir </> "git-annex-licenses.txt"
+		let license = tmpdir </> licensefile
 		mustSucceed "sh" [Param "-c", Param $ "zcat standalone/licences.gz > '" ++ license ++ "'"]
 		writeFile nsifile $ makeInstaller gitannex license
 		mustSucceed "C:\\Program Files\\NSIS\\makensis" [File nsifile]
@@ -46,9 +46,18 @@ main = do
 			True -> return ()
 			False -> error $ cmd ++ " failed"
 
+gitannexprogram :: FilePath
+gitannexprogram = "git-annex.exe"
+
+licensefile :: FilePath
+licensefile = "git-annex-licenses.txt"
+
 installer :: FilePath
 installer = "git-annex-installer.exe"
 
+uninstaller :: FilePath
+uninstaller = "git-annex-uninstall.exe"
+
 gitInstallDir :: Exp FilePath
 gitInstallDir = fromString "$PROGRAMFILES\\Git\\cmd"
 
@@ -84,14 +93,15 @@ makeInstaller gitannex license = nsis $ do
 		addfile gitannex
 		addfile license
 		mapM_ addcygfile cygwinPrograms
-		writeUninstaller "git-annex-uninstall.exe"
+		writeUninstaller $ str uninstaller
 	section "libraries" [] $ do
 		setOutPath "$INSTDIR"
 		mapM_ addcygfile cygwinDlls
 	uninstall $
-		mapM_ (\f -> delete [RebootOK] $ fromString $ "$INSTDIR/" ++ f)
-			[ gitannex
-			, license
+		mapM_ (\f -> delete [RebootOK] $ fromString $ "$INSTDIR/" ++ f) $
+			[ gitannexprogram
+			, licensefile
+			, uninstaller
 			] ++ cygwinPrograms ++ cygwinDlls
   where
 	addfile f = file [] (str f)
-- 
cgit v1.2.3