diff options
| -rw-r--r-- | Utility/UserInfo.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Utility/UserInfo.hs b/Utility/UserInfo.hs index 7e94cafa4..6f0c59d04 100644 --- a/Utility/UserInfo.hs +++ b/Utility/UserInfo.hs @@ -58,6 +58,6 @@ myVal envvars extract = go envvars #ifndef mingw32_HOST_OS go [] = extract <$> (getUserEntryForID =<< getEffectiveUserID) #else - go [] = error $ "environment not set: " ++ show envvars + go [] = extract <$> error ("environment not set: " ++ show envvars) #endif go (v:vs) = maybe (go vs) return =<< getEnv v |