fix build
This commit is contained in:
parent
34c6fdf5e3
commit
adb6ca62ca
1 changed files with 2 additions and 1 deletions
|
@ -282,7 +282,8 @@ jobList r keys = go =<< glacierEnv (config r) (uuid r)
|
|||
then return nada
|
||||
else do
|
||||
enckeys <- forM keys $ \k ->
|
||||
maybe k snd <$> cipherKey (config r) k
|
||||
maybe k (\(_, enck) -> enck k)
|
||||
<$> cipherKey (config r)
|
||||
let keymap = M.fromList $ zip enckeys keys
|
||||
let convert = mapMaybe (`M.lookup` keymap)
|
||||
return (convert succeeded, convert failed)
|
||||
|
|
Loading…
Reference in a new issue