rest of the deserializeKey renameing
This commit is contained in:
parent
1791447cc8
commit
303e828b7c
15 changed files with 19 additions and 19 deletions
|
@ -38,7 +38,7 @@ seek o = do
|
|||
Batch fmt -> batchInput fmt parsekey $ batchCommandAction . start
|
||||
NoBatch -> noop
|
||||
where
|
||||
parsekey = maybe (Left "bad key") Right . file2key
|
||||
parsekey = maybe (Left "bad key") Right . deserializeKey
|
||||
|
||||
start :: Key -> CommandStart
|
||||
start key = do
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue