git.iko.soy/rowtype-yoga/purescript-native
on 7c19115 help sign in
rowtype-yoga/purescript-native/Setup.hs
25 lines 711 B history raw
1{-# LANGUAGE CPP #-}
3module Main where
5import Distribution.PackageDescription
6import Distribution.Simple
7import Distribution.Simple.LocalBuildInfo
8import Distribution.Simple.Setup
10import System.Directory
11import System.Environment.XDG.BaseDir
12#if !defined(mingw32_HOST_OS) || !defined(__MINGW32__)
13import System.Posix.Files
14#endif
16main :: IO ()
17main = defaultMainWithHooks $ simpleUserHooks {postInst = setupXDG}
19setupXDG :: Args -> InstallFlags -> PackageDescription -> LocalBuildInfo -> IO ()
20setupXDG _ _ _ _ = do
21 configDir <- getUserConfigDir "purescript"
22 createDirectoryIfMissing True configDir
23#if !defined(mingw32_HOST_OS) || !defined(__MINGW32__)
24 setFileMode configDir ownerModes
25#endif