diff options
author | Joey Hess <joey@kitenet.net> | 2011-11-11 01:52:58 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-11-11 01:52:58 -0400 |
commit | 637b5feb45013f69f3aacbafeb796de666d3faa3 (patch) | |
tree | 17e5506c3715be46318d15dd76ec474641faffe2 /Checks.hs | |
parent | b327227ba596d4fc5012138d03390c3eb861b808 (diff) |
lint
Diffstat (limited to 'Checks.hs')
-rw-r--r-- | Checks.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -24,12 +24,12 @@ repoExists = CommandCheck 0 ensureInitialized fromOpt :: CommandCheck fromOpt = CommandCheck 1 $ do v <- Annex.getState Annex.fromremote - unless (v == Nothing) $ error "cannot use --from with this command" + unless (isNothing v) $ error "cannot use --from with this command" toOpt :: CommandCheck toOpt = CommandCheck 2 $ do v <- Annex.getState Annex.toremote - unless (v == Nothing) $ error "cannot use --to with this command" + unless (isNothing v) $ error "cannot use --to with this command" dontCheck :: CommandCheck -> Command -> Command dontCheck check cmd = mutateCheck cmd $ \c -> filter (/= check) c |