cleanup

1 files changed, 5 insertions, 6 deletions

diff --git a/Command/SetPresentKey.hs b/Command/SetPresentKey.hs
index 94b442e22..4e2cdc5a9 100644
--- a/Command/SetPresentKey.hs
+++ b/Command/SetPresentKey.hs
@@ -9,13 +9,12 @@ module Command.SetPresentKey where
 
 import Common.Annex
 import Command
-import qualified Annex
 import Logs.Location
 import Logs.Presence.Pure
 import Types.Key
 
 cmd :: [Command]
-cmd = [noCommit $ command "setpresentkey" (paramPair paramKey "[1|0]") seek
+cmd = [noCommit $ command "setpresentkey" (paramPair paramKey (paramPair paramUUID "[1|0]")) seek
 	SectionPlumbing "change records of where key is present"] 
 
 seek :: CommandSeek
@@ -24,13 +23,13 @@ seek = withWords start
 start :: [String] -> CommandStart
 start (ks:us:vs:[]) = do
 	showStart' "setpresentkey" k Nothing
-	next $ perform k (toUUID us) status
+	next $ perform k (toUUID us) s
   where
 	k = fromMaybe (error "bad key") (file2key ks)
-	status = fromMaybe (error "bad value") (parseStatus vs)
+	s = fromMaybe (error "bad value") (parseStatus vs)
 start _ = error "Wrong number of parameters"
 
 perform :: Key -> UUID -> LogStatus -> CommandPerform
-perform k u status = next $ do
-	logChange k u status
+perform k u s = next $ do
+	logChange k u s
 	return True