Zander671/license-tool-hs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix overriding

Browse Source
This commit is contained in:
Alexander Rosenberg
2026-04-25 02:51:00 -07:00
parent d10ed0daab
commit a46a008735
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/Main.hs
View File

@@ -71,12 +71,15 @@ normalizeDirectory :: String -> String
normalizeDirectory s = if "/" `isSuffixOf` s then s else s ++ "/" normalizeDirectory s = if "/" `isSuffixOf` s then s else s ++ "/"
userLicenseDir :: IO String userLicenseDir :: IO String
userLicenseDir = xdgConfigHome <&> (++ defaultUserLicenseDirName) userLicenseDir =
xdgConfigHome <&> (normalizeDirectory . (++ defaultUserLicenseDirName))
where where
xdgConfigHome :: IO String xdgConfigHome :: IO String
xdgConfigHome = xdgConfigHome = do
(lookupEnv "XDG_CONFIG_HOME") xch <- lookupEnv "XDG_CONFIG_HOME"
>>= maybe userHomeDir (return . normalizeDirectory) case xch of
Just p@(_ : _) -> return $ normalizeDirectory p
_ -> userHomeDir <&> (++ ".config/")
userHomeDir :: IO String userHomeDir :: IO String
userHomeDir = getEnv "HOME" <&> normalizeDirectory userHomeDir = getEnv "HOME" <&> normalizeDirectory