diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-07-26 20:21:36 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-07-26 20:21:36 -0400 |
| commit | 246cf74542a6539abc2f0e32fab4a29b1b44625b (patch) | |
| tree | 8ef972897e2761258f548f09ea0e2cbf4fb186c0 | |
| parent | bc642a6ee0d02cbce2b5ee240d7b08b21175ec2a (diff) | |
fix build
| -rw-r--r-- | Remote/Glacier.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Remote/Glacier.hs b/Remote/Glacier.hs index 00be9e1a9..bf8f05061 100644 --- a/Remote/Glacier.hs +++ b/Remote/Glacier.hs @@ -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) |