Merge pull request #937 from input-output-hk/remove-open-dir

[R120-20] Remove open dir if it exists during windows installation
input-output-hk · May 22, 2018 · 245b4fa · 245b4fa
2 parents 3b1ba68 + 1816ae1
commit 245b4fa
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/installers/WindowsInstaller.hs b/installers/WindowsInstaller.hs
@@ -19,7 +19,7 @@ import           Development.NSIS (Attrib (IconFile, IconIndex, RebootOK, Recurs
                                    name, nsis, onPagePre, outFile, page, readRegStr,
                                    requestExecutionLevel, rmdir, section, setOutPath, str,
                                    strLength, uninstall, unsafeInject, unsafeInjectGlobal,
-                                   writeRegDWORD, writeRegStr, (%/=))
+                                   writeRegDWORD, writeRegStr, (%/=), fileExists)
 import           Prelude ((!!))
 import           System.Directory (copyFile, doesFileExist)
 import           System.Environment (lookupEnv)
@@ -146,6 +146,8 @@ writeInstallerNSIS (Version fullVersion') clusterName = do
                 createDirectory "$APPDATA\\Daedalus\\Secrets-1.0"
                 createDirectory "$APPDATA\\Daedalus\\Logs"
                 createDirectory "$APPDATA\\Daedalus\\Logs\\pub"
+                iff_ (fileExists "$APPDATA\\Daedalus\\Wallet-1.0\\open\\*.*") $
+                    rmdir [] "$APPDATA\\Daedalus\\Wallet-1.0\\open"
                 file [] "cardano-node.exe"
                 file [] "cardano-launcher.exe"
                 file [] "log-config-prod.yaml"