rest of the deserializeKey renameing

This commit is contained in:
Joey Hess 2019-01-14 13:17:47 -04:00
parent 1791447cc8
commit 303e828b7c
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
15 changed files with 19 additions and 19 deletions

View file

@ -158,7 +158,7 @@ withFilesMaybeModified a params = seekActions $
withKeys :: (Key -> CommandSeek) -> CmdParams -> CommandSeek
withKeys a l = seekActions $ return $ map (a . parse) l
where
parse p = fromMaybe (giveup "bad key") $ file2key p
parse p = fromMaybe (giveup "bad key") $ deserializeKey p
withNothing :: CommandSeek -> CmdParams -> CommandSeek
withNothing a [] = a