cleanup

1 files changed, 0 insertions, 3 deletions

diff --git a/Checks.hs b/Checks.hs
index cd172c609..6a70fc52d 100644
--- a/Checks.hs
+++ b/Checks.hs
@@ -31,9 +31,6 @@ toOpt = CommandCheck 2 $ do
 	v <- Annex.getState Annex.toremote
 	unless (v == Nothing) $ error "cannot use --to with this command"
 
-checkCommand :: Command -> Annex ()
-checkCommand Command { cmdcheck = c } = sequence_ $ map runCheck c
-
 dontCheck :: CommandCheck -> Command -> Command
 dontCheck check cmd = mutateCheck cmd $ \c -> filter (/= check) c