diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-02 03:23:02 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-02 03:23:02 +0200 |
| commit | 37af9a57c7cc04cbb2473a668e4ef8aac17d478b (patch) | |
| tree | 2dbc69ff0012294d68afc0a4ce09eda1d6963724 | |
| parent | 68e9edadb6437a68888cf642f0d3303c6682fc46 (diff) | |
| download | nixos-37af9a57c7cc04cbb2473a668e4ef8aac17d478b.tar nixos-37af9a57c7cc04cbb2473a668e4ef8aac17d478b.tar.gz nixos-37af9a57c7cc04cbb2473a668e4ef8aac17d478b.tar.bz2 nixos-37af9a57c7cc04cbb2473a668e4ef8aac17d478b.tar.xz nixos-37af9a57c7cc04cbb2473a668e4ef8aac17d478b.zip | |
less debug on bounce
| -rw-r--r-- | ymir/mlmmj-expose.nix | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ymir/mlmmj-expose.nix b/ymir/mlmmj-expose.nix index 15d846dc..185bac80 100644 --- a/ymir/mlmmj-expose.nix +++ b/ymir/mlmmj-expose.nix | |||
| @@ -41,9 +41,9 @@ let | |||
| 41 | key <- (BS.readFile "exposed.key") `catchIOError` (\e -> if isDoesNotExistError e then randomKey >>= (\k -> BS.writeFile "exposed.key" k >> return k) else ioError e) | 41 | key <- (BS.readFile "exposed.key") `catchIOError` (\e -> if isDoesNotExistError e then randomKey >>= (\k -> BS.writeFile "exposed.key" k >> return k) else ioError e) |
| 42 | let ((map toLower -> ident), (map toLower -> recipient)) = read . CLBS.unpack $ decryptMsg CBC key extension | 42 | let ((map toLower -> ident), (map toLower -> recipient)) = read . CLBS.unpack $ decryptMsg CBC key extension |
| 43 | identities <- getIdentities | 43 | identities <- getIdentities |
| 44 | unless (ident `elem` identities) . die $ "Unknown sender: ‘" ++ ident ++ "’" | 44 | unless (ident `elem` identities) $ die "Unknown sender" |
| 45 | subscribers <- getSubscribers | 45 | subscribers <- getSubscribers |
| 46 | unless (recipient `elem` subscribers) . die $ "Unknown recipient: ‘" ++ recipient ++ "’" | 46 | unless (recipient `elem` subscribers) $ die "Unknown recipient" |
| 47 | getContents >>= writeFile "queue/exposed" | 47 | getContents >>= writeFile "queue/exposed" |
| 48 | callProcess "${pkgs.mlmmj}/bin/mlmmj-send" ["-L", listDir, "-l", "6", "-m", "queue/exposed", "-T", recipient] | 48 | callProcess "${pkgs.mlmmj}/bin/mlmmj-send" ["-L", listDir, "-l", "6", "-m", "queue/exposed", "-T", recipient] |
| 49 | _ -> hPutStrLn stderr ("Called without expected arguments (<listDirectory> <recipientExtension>)") >> exitWith (ExitFailure 2) | 49 | _ -> hPutStrLn stderr ("Called without expected arguments (<listDirectory> <recipientExtension>)") >> exitWith (ExitFailure 2) |