converted ContentLocation, ExampleKey, LookupKey

1 files changed, 11 insertions, 10 deletions

diff --git a/Command/LookupKey.hs b/Command/LookupKey.hs
index 021dc963b..54023eab7 100644
--- a/Command/LookupKey.hs
+++ b/Command/LookupKey.hs
@@ -14,16 +14,17 @@ import Annex.CatFile
 import Types.Key
 
 cmd :: Command
-cmd = withOptions [batchOption] $ notBareRepo $ noCommit $ noMessages $
+cmd = notBareRepo $ noCommit $ noMessages $
 	command "lookupkey" SectionPlumbing 
 		"looks up key used for file"
-		(paramRepeating paramFile) (withParams seek)
+		(paramRepeating paramFile)
+		(batchable run (pure ()))
 
-seek :: CmdParams -> CommandSeek
-seek = batchable withStrings start
-
-start :: Batchable String
-start batchmode file = do
-	maybe (batchBadInput batchmode) (liftIO . putStrLn . key2file)
-		=<< catKeyFile file
-	stop
+run :: () -> String -> Annex Bool
+run _ file = do
+	mk <- catKeyFile file
+	case mk of
+		Just k  -> do
+			liftIO $ putStrLn $ key2file k
+			return True
+		Nothing -> return False