mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix build

Browse source
This commit is contained in:
Joey Hess 2014-07-26 20:21:36 -04:00
parent 34c6fdf5e3
commit adb6ca62ca
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Remote/Glacier.hs
View file

@ -282,7 +282,8 @@ jobList r keys = go =<< glacierEnv (config r) (uuid r)
then return nada then return nada
else do else do
enckeys <- forM keys $ \k -> 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 keymap = M.fromList $ zip enckeys keys
let convert = mapMaybe (`M.lookup` keymap) let convert = mapMaybe (`M.lookup` keymap)
return (convert succeeded, convert failed) return (convert succeeded, convert failed)