diff options
-rw-r--r-- | Command.hs | 2 | ||||
-rw-r--r-- | Command/SetKey.hs | 2 |
2 files changed, 1 insertions, 3 deletions
diff --git a/Command.hs b/Command.hs index 02bbd29d4..d3c1640ee 100644 --- a/Command.hs +++ b/Command.hs @@ -178,8 +178,6 @@ withKeys :: CommandSeekKeys withKeys a params = return $ map (a . parse) params where parse p = fromMaybe (error "bad key") $ readKey p -withTempFile :: CommandSeekStrings -withTempFile a params = return $ map a params withNothing :: CommandSeekNothing withNothing a [] = return [a] withNothing _ _ = error "This command takes no parameters." diff --git a/Command/SetKey.hs b/Command/SetKey.hs index f2a5259ba..807cbd5b9 100644 --- a/Command/SetKey.hs +++ b/Command/SetKey.hs @@ -20,7 +20,7 @@ command = [repoCommand "setkey" paramPath seek "sets annexed content for a key using a temp file"] seek :: [CommandSeek] -seek = [withTempFile start] +seek = [withStrings start] {- Sets cached content for a key. -} start :: CommandStartString |