rest of the deserializeKey renameing
This commit is contained in:
parent
1791447cc8
commit
303e828b7c
15 changed files with 19 additions and 19 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue