From a46a0087356a44c6bf7b0a85c0831477d2404b18 Mon Sep 17 00:00:00 2001 From: Alexander Rosenberg Date: Sat, 25 Apr 2026 02:51:00 -0700 Subject: [PATCH] Fix overriding --- src/Main.hs | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/src/Main.hs b/src/Main.hs index 17ade3f..916a3e5 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -71,12 +71,15 @@ normalizeDirectory :: String -> String normalizeDirectory s = if "/" `isSuffixOf` s then s else s ++ "/" userLicenseDir :: IO String -userLicenseDir = xdgConfigHome <&> (++ defaultUserLicenseDirName) +userLicenseDir = + xdgConfigHome <&> (normalizeDirectory . (++ defaultUserLicenseDirName)) where xdgConfigHome :: IO String - xdgConfigHome = - (lookupEnv "XDG_CONFIG_HOME") - >>= maybe userHomeDir (return . normalizeDirectory) + xdgConfigHome = do + xch <- lookupEnv "XDG_CONFIG_HOME" + case xch of + Just p@(_ : _) -> return $ normalizeDirectory p + _ -> userHomeDir <&> (++ ".config/") userHomeDir :: IO String userHomeDir = getEnv "HOME" <&> normalizeDirectory