diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-02-15 15:11:06 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-02-15 15:11:06 -0400 |
| commit | 8f87a46002d7d44f9e100c60755fc8313baeaf12 (patch) | |
| tree | db4239691bcff1644603e5e481f9995ab7ecc87f /Utility/UserInfo.hs | |
| parent | 4de2d0d2cb93b540aca59a51e4be7a0815c47a03 (diff) | |
avoid warning on windows build
Diffstat (limited to 'Utility/UserInfo.hs')
| -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 |