added sensibleConfig

1 files changed, 35 insertions, 0 deletions

diff --git a/sensible-directory/src/SensibleDir.hs b/sensible-directory/src/SensibleDir.hs
index 4e55726d..14039ab7 100644
--- a/sensible-directory/src/SensibleDir.hs
+++ b/sensible-directory/src/SensibleDir.hs
@@ -73,6 +73,7 @@ isUnix os = not $ "mingw" `isPrefixOf` os
 -- | Try to get the cache directory appropriate to the install scenario.
 --   On windows it just calls getAppUserDataDirectory and appends "cache".
 --   (windows behavior subject to change, contributions welcome)
+sensibleCacheDir :: FilePath -> IO FilePath
 sensibleCacheDir suffix = do
     let ifunix x = if isUnix os then x
                                 else PrefixInstall
@@ -103,6 +104,7 @@ sensibleCacheDir suffix = do
             return . foldl1 combine $ reverse ("cache": drop 2 rdir)
 
 -- | like 'sensibleCacheDir', but creates it if needed
+sensibleCacheDirCreateIfMissing :: FilePath -> IO FilePath
 sensibleCacheDirCreateIfMissing suffix = do
     dir <- sensibleCacheDir suffix
     createDirectoryIfMissing True dir
@@ -110,6 +112,7 @@ sensibleCacheDirCreateIfMissing suffix = do
 
 -- | Try to get something approximately equivalent to /var/lib
 --   but appropriate to install scenario..
+sensibleVarLib :: FilePath -> IO FilePath
 sensibleVarLib suffix = do
     let ifunix x = if isUnix os then x
                                 else PrefixInstall
@@ -139,3 +142,35 @@ sensibleVarLib suffix = do
             let rdir = reverse dir
             return . foldl1 combine $ reverse ("share": drop 2 rdir)
 
+-- | Try to get something approximately equivalent to /etc
+--   but appropriate to install scenario..
+sensibleConfig :: FilePath -> IO FilePath
+sensibleConfig suffix = do
+    let ifunix x = if isUnix os then x
+                                else PrefixInstall
+    install <- ifunix <$> detectLikelyInstall
+    case install of
+        PrefixInstall -> do
+          if isUnix os
+           then do
+            dirs <- splitDirectories . takeDirectory <$> getExecutablePath
+            homedir <- getHomeDirectory
+            let rdir = reverse dirs
+            case take 1 rdir of
+                ["bin"] -> do
+                    let dir = foldl1 combine $ reverse (drop 1 rdir)
+                    if homedir == dir then getXdgDirectory XdgData suffix
+                                      else return (dir </> "config" </> suffix)
+                _ -> do
+                    let dir =  foldl1 combine dirs
+                    if homedir == dir then getXdgDirectory XdgData suffix
+                                      else return (dir </> "config" </> suffix)
+           else getAppUserDataDirectory ("config" </> suffix)
+        SystemInstall -> return ("/etc" </> suffix)
+        LocalInstall  -> return ("/etc" </> suffix)
+        UserInstall  -> getXdgDirectory XdgConfig suffix
+        NotInstalled -> do
+            dir <- splitDirectories . takeDirectory <$> getExecutablePath
+            let rdir = reverse dir
+            return . foldl1 combine $ reverse ("config": drop 2 rdir)
+