diff options
author | 2012-04-21 23:32:33 -0400 | |
---|---|---|
committer | 2012-04-21 23:32:33 -0400 | |
commit | ed79596b758935a3f22bf6803bc082a6bbe10f58 (patch) | |
tree | 885a8a50e68dafb39ec886cb31aa4c549fbeb35e /GitAnnexShell.hs | |
parent | bee420bd2d0cbe16489b061b208083e2b8ba9d0e (diff) |
noop
Diffstat (limited to 'GitAnnexShell.hs')
-rw-r--r-- | GitAnnexShell.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/GitAnnexShell.hs b/GitAnnexShell.hs index 0cf81f0e2..663303713 100644 --- a/GitAnnexShell.hs +++ b/GitAnnexShell.hs @@ -52,7 +52,7 @@ options = Option.common ++ where checkuuid expected = getUUID >>= check where - check u | u == toUUID expected = return () + check u | u == toUUID expected = noop check NoUUID = unexpected "uninitialized repository" check u = unexpected $ "UUID " ++ fromUUID u unexpected s = error $ @@ -107,7 +107,7 @@ checkNotLimited = checkEnv "GIT_ANNEX_SHELL_LIMITED" checkNotReadOnly :: String -> IO () checkNotReadOnly cmd - | cmd `elem` map cmdname cmds_readonly = return () + | cmd `elem` map cmdname cmds_readonly = noop | otherwise = checkEnv "GIT_ANNEX_SHELL_READONLY" checkEnv :: String -> IO () |