create appDir if absent (#79)

This commit is contained in:
Nikita Poberezkin
2021-07-23 09:41:10 +03:00
committed by GitHub
parent 44496bc003
commit 3c942f6f3e
+2 -1
View File
@@ -11,7 +11,7 @@ import Data.Char (toLower)
import Data.List (isInfixOf)
import Data.Text (Text)
import qualified Data.Text as T
import System.Directory (doesFileExist, getAppUserDataDirectory)
import System.Directory (createDirectoryIfMissing, doesFileExist, getAppUserDataDirectory)
import System.FilePath (combine)
import System.Info (os)
import System.Process (readCreateProcess, shell)
@@ -51,6 +51,7 @@ winScript path Notification {title, text} = "powershell.exe \"" <> T.pack path <
savePowershellScript :: IO FilePath
savePowershellScript = do
appDir <- getAppUserDataDirectory "simplex"
createDirectoryIfMissing False appDir
let psScript = combine appDir "win-toast-notify.ps1"
writeFile
psScript