mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add windows uninstaller

Browse source
This commit is contained in:
Joey Hess 2013-05-16 20:32:59 -04:00
parent e60edc682f
commit 34b8f4f5fd
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Build/NullSoftInstaller.hs
View file

@ -76,7 +76,7 @@ makeInstaller gitannex license = nsis $ do
-- Pages to display -- Pages to display
page Directory -- Pick where to install page Directory -- Pick where to install
page $ License license page (License license)
page InstFiles -- Give a progress bar while installing page InstFiles -- Give a progress bar while installing
-- Groups of files to install -- Groups of files to install
section "programs" [] $ do section "programs" [] $ do
@ -84,9 +84,15 @@ makeInstaller gitannex license = nsis $ do
addfile gitannex addfile gitannex
addfile license addfile license
mapM_ addcygfile cygwinPrograms mapM_ addcygfile cygwinPrograms
writeUninstaller "git-annex-uninstall.exe"
section "libraries" [] $ do section "libraries" [] $ do
setOutPath "$INSTDIR" setOutPath "$INSTDIR"
mapM_ addcygfile cygwinDlls mapM_ addcygfile cygwinDlls
uninstall $
mapM_ (\f -> delete [RebootOK] $ fromString $ "$INSTDIR/" ++ f)
[ gitannex
, license
] ++ cygwinPrograms ++ cygwinDlls
where where
addfile f = file [] (str f) addfile f = file [] (str f)
addcygfile f = addfile $ "C:\\cygwin\\bin" </> f addcygfile f = addfile $ "C:\\cygwin\\bin" </> f