summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Utility/UserInfo.hs2
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