diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-02 02:31:55 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-02 02:31:55 +0200 |
| commit | 6e34470bd59c85290c4611c5117ef4ce453cb1cc (patch) | |
| tree | 6e87793c8e5bb96eac5ef0e077dd3096e7a5abf5 /ymir/mlmmj-expose.nix | |
| parent | def38f4b38b1b7dc90d8f8decbc44fe4742928ff (diff) | |
| download | nixos-6e34470bd59c85290c4611c5117ef4ce453cb1cc.tar nixos-6e34470bd59c85290c4611c5117ef4ce453cb1cc.tar.gz nixos-6e34470bd59c85290c4611c5117ef4ce453cb1cc.tar.bz2 nixos-6e34470bd59c85290c4611c5117ef4ce453cb1cc.tar.xz nixos-6e34470bd59c85290c4611c5117ef4ce453cb1cc.zip | |
strictness
Diffstat (limited to 'ymir/mlmmj-expose.nix')
| -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 6b22bea5..fbc66ef0 100644 --- a/ymir/mlmmj-expose.nix +++ b/ymir/mlmmj-expose.nix | |||
| @@ -68,7 +68,7 @@ let | |||
| 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 | unless (recipient `elem` subscribers) . die $ "Unknown recipient: ‘" ++ recipient ++ "’" | 70 | unless (recipient `elem` subscribers) . die $ "Unknown recipient: ‘" ++ recipient ++ "’" |
| 71 | encryptMsg CBC key (CLBS.pack . show $ (ident, recipient)) >>= CBS.putStrLn . Base64.encode | 71 | encryptMsg CBC key (CLBS.pack . show $ (ident, recipient)) >>= CBS.putStrLn . Base64.encode . LBS.toStrict |
| 72 | _ -> hPutStrLn stderr ("Called without expected arguments (<listDirectory> <senderIdentity> <recipient>)") >> exitWith (ExitFailure 2) | 72 | _ -> hPutStrLn stderr ("Called without expected arguments (<listDirectory> <senderIdentity> <recipient>)") >> exitWith (ExitFailure 2) |
| 73 | _ -> hPutStrLn stderr ("Called under unsupported name ‘" ++ progName ++ "’") >> exitWith (ExitFailure 2) | 73 | _ -> hPutStrLn stderr ("Called under unsupported name ‘" ++ progName ++ "’") >> exitWith (ExitFailure 2) |
| 74 | 74 | ||