diff options
author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-02 02:44:26 +0200 |
---|---|---|
committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-02 02:44:26 +0200 |
commit | ddc0e3e5d2d40e60512d0c019586358bf891d351 (patch) | |
tree | 4a8c939fb7b1f1dde9389601967e0c05125f80e9 | |
parent | 4474762dae817d81ab0e28ed39363d21405b2a26 (diff) | |
download | nixos-ddc0e3e5d2d40e60512d0c019586358bf891d351.tar nixos-ddc0e3e5d2d40e60512d0c019586358bf891d351.tar.gz nixos-ddc0e3e5d2d40e60512d0c019586358bf891d351.tar.bz2 nixos-ddc0e3e5d2d40e60512d0c019586358bf891d351.tar.xz nixos-ddc0e3e5d2d40e60512d0c019586358bf891d351.zip |
syntax
-rw-r--r-- | ymir/mlmmj-expose.nix | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ymir/mlmmj-expose.nix b/ymir/mlmmj-expose.nix index 4973b50a..07c7cdbb 100644 --- a/ymir/mlmmj-expose.nix +++ b/ymir/mlmmj-expose.nix | |||
@@ -67,10 +67,10 @@ let | |||
67 | identities <- (lines <$> readFile "exposed.ids") `catchIOError` (\e -> if isDoesNotExistError e then return [] else ioError e) | 67 | identities <- (lines <$> readFile "exposed.ids") `catchIOError` (\e -> if isDoesNotExistError e then return [] else ioError e) |
68 | unless (ident `elem` identities) . die $ "Unknown sender: ‘" ++ ident ++ "’" | 68 | unless (ident `elem` identities) . die $ "Unknown sender: ‘" ++ ident ++ "’" |
69 | subscribers <- getSubscribers | 69 | subscribers <- getSubscribers |
70 | for_ recipients (\recipient -> do | 70 | for_ recipients (\recipient -> do { |
71 | unless (recipient `elem` subscribers) . die $ "Unknown recipient: ‘" ++ recipient ++ "’" | 71 | unless (recipient `elem` subscribers) . die $ "Unknown recipient: ‘" ++ recipient ++ "’"; |
72 | encryptMsg CBC key (CLBS.pack . show $ (ident, recipient)) >>= putStrLn . (\ext -> takeDirectory listDir ++ "+" ++ ext ++ "@subs.lists.yggdrasil.li") . CBS.unpack . massage . Base64.encode . LBS.toStrict | 72 | encryptMsg CBC key (CLBS.pack . show $ (ident, recipient)) >>= putStrLn . (\ext -> takeDirectory listDir ++ "+" ++ ext ++ "@subs.lists.yggdrasil.li") . CBS.unpack . massage . Base64.encode . LBS.toStrict; |
73 | ) | 73 | }) |
74 | _ -> hPutStrLn stderr ("Called without expected arguments (<listDirectory> <senderIdentity> [<recipient> [...]])") >> exitWith (ExitFailure 2) | 74 | _ -> hPutStrLn stderr ("Called without expected arguments (<listDirectory> <senderIdentity> [<recipient> [...]])") >> exitWith (ExitFailure 2) |
75 | _ -> hPutStrLn stderr ("Called under unsupported name ‘" ++ progName ++ "’") >> exitWith (ExitFailure 2) | 75 | _ -> hPutStrLn stderr ("Called under unsupported name ‘" ++ progName ++ "’") >> exitWith (ExitFailure 2) |
76 | 76 | ||