summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGregor Kleen <gkleen@yggdrasil.li>2016-06-02 02:31:55 +0200
committerGregor Kleen <gkleen@yggdrasil.li>2016-06-02 02:31:55 +0200
commit6e34470bd59c85290c4611c5117ef4ce453cb1cc (patch)
tree6e87793c8e5bb96eac5ef0e077dd3096e7a5abf5
parentdef38f4b38b1b7dc90d8f8decbc44fe4742928ff (diff)
downloadnixos-6e34470bd59c85290c4611c5117ef4ce453cb1cc.tar
nixos-6e34470bd59c85290c4611c5117ef4ce453cb1cc.tar.gz
nixos-6e34470bd59c85290c4611c5117ef4ce453cb1cc.tar.bz2
nixos-6e34470bd59c85290c4611c5117ef4ce453cb1cc.tar.xz
nixos-6e34470bd59c85290c4611c5117ef4ce453cb1cc.zip
strictness
-rw-r--r--ymir/mlmmj-expose.nix2
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