Skip to content
Snippets Groups Projects
Commit 56b7eb7a authored by Edward Z. Yang's avatar Edward Z. Yang
Browse files

Make setEnv accept empty strings.

See https://ghc.haskell.org/trac/ghc/ticket/12494;

 we cargo-culted
some incorrect code from base. Lift the restriction.

Signed-off-by: default avatarEdward Z. Yang <ezyang@cs.stanford.edu>
parent c2c5d36b
No related branches found
No related tags found
No related merge requests found
......@@ -51,9 +51,7 @@ lookupEnv name = (Just `fmap` System.getEnv name) `catchIO` const (return Nothin
-- Throws `Control.Exception.IOException` if either @name@ or @value@ is the
-- empty string or contains an equals sign.
setEnv :: String -> String -> IO ()
setEnv key value_
| null value = error "Distribution.Compat.setEnv: empty string"
| otherwise = setEnv_ key value
setEnv key value_ = setEnv_ key value
where
-- NOTE: Anything that follows NUL is ignored on both POSIX and Windows. We
-- still strip it manually so that the null check above succeeds if a value
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment