fix build on windows
This commit is contained in:
parent
8adafdd013
commit
9a60f5b65f
1 changed files with 1 additions and 1 deletions
|
@ -68,7 +68,7 @@ myVal envvars extract = go envvars
|
|||
myVal :: [String] -> IO (Either String String)
|
||||
myVal envvars = go envvars
|
||||
where
|
||||
go [] = envnotset
|
||||
go [] = return envnotset
|
||||
go (v:vs) = maybe (go vs) (return . Right) =<< getEnv v
|
||||
#endif
|
||||
envnotset = Left ("environment not set: " ++ show envvars)
|
||||
|
|
Loading…
Reference in a new issue