From e8188ea611e4c9223492203c0ec0370c3c45b225 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 17 Sep 2012 00:18:07 -0400 Subject: flip catchDefaultIO --- GitAnnexShell.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'GitAnnexShell.hs') diff --git a/GitAnnexShell.hs b/GitAnnexShell.hs index 15be51180..d9b60c0f6 100644 --- a/GitAnnexShell.hs +++ b/GitAnnexShell.hs @@ -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 -- cgit v1.2.3