diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-02 02:45:00 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-02 02:45:00 +0200 |
| commit | 6c197a9f8ca39df42b4d5ada0cd17e6a4a1c7a9e (patch) | |
| tree | 8009cabbdb47043814dba642cd6c49c5e8020b0b /ymir | |
| parent | ddc0e3e5d2d40e60512d0c019586358bf891d351 (diff) | |
| download | nixos-6c197a9f8ca39df42b4d5ada0cd17e6a4a1c7a9e.tar nixos-6c197a9f8ca39df42b4d5ada0cd17e6a4a1c7a9e.tar.gz nixos-6c197a9f8ca39df42b4d5ada0cd17e6a4a1c7a9e.tar.bz2 nixos-6c197a9f8ca39df42b4d5ada0cd17e6a4a1c7a9e.tar.xz nixos-6c197a9f8ca39df42b4d5ada0cd17e6a4a1c7a9e.zip | |
typo
Diffstat (limited to 'ymir')
| -rw-r--r-- | ymir/mlmmj-expose.nix | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ymir/mlmmj-expose.nix b/ymir/mlmmj-expose.nix index 07c7cdbb..34f5e6d6 100644 --- a/ymir/mlmmj-expose.nix +++ b/ymir/mlmmj-expose.nix | |||
| @@ -67,7 +67,7 @@ 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 | forM_ 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 | }) |