flip catchDefaultIO
This commit is contained in:
parent
ba744c84a4
commit
e8188ea611
18 changed files with 29 additions and 26 deletions
|
@ -132,5 +132,5 @@ checkNotReadOnly cmd
|
|||
|
||||
checkEnv :: String -> IO ()
|
||||
checkEnv var =
|
||||
whenM (not . null <$> catchDefaultIO (getEnv var) "") $
|
||||
whenM (not . null <$> catchDefaultIO "" (getEnv var)) $
|
||||
error $ "Action blocked by " ++ var
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue