diff options
| -rw-r--r-- | CabalHelper/Shared/Common.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/CabalHelper/Shared/Common.hs b/CabalHelper/Shared/Common.hs index f3497bc..bc9354c 100644 --- a/CabalHelper/Shared/Common.hs +++ b/CabalHelper/Shared/Common.hs @@ -92,6 +92,7 @@ appCacheDir :: IO FilePath appCacheDir = (</> "cabal-helper") <$> getEnvDefault "XDG_CACHE_HOME" (homeRel cache) where + lookupEnv var = do env <- getEnvironment; return (lookup var env) getEnvDefault var def = lookupEnv var >>= \m -> case m of Nothing -> def; Just x -> return x homeRel path = (</> path) <$> getHomeDirectory cache = |