rest of the deserializeKey renameing
This commit is contained in:
parent
1791447cc8
commit
303e828b7c
15 changed files with 19 additions and 19 deletions
|
@ -210,7 +210,7 @@ parseAllOption = flag' WantAllKeys
|
|||
)
|
||||
|
||||
parseKey :: Monad m => String -> m Key
|
||||
parseKey = maybe (fail "invalid key") return . file2key
|
||||
parseKey = maybe (fail "invalid key") return . deserializeKey
|
||||
|
||||
-- Options to match properties of annexed files.
|
||||
annexedMatchingOptions :: [GlobalOption]
|
||||
|
|
|
@ -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