From def38f4b38b1b7dc90d8f8decbc44fe4742928ff Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Thu, 2 Jun 2016 02:31:16 +0200
Subject: base64 encode

---
 ymir/mlmmj-expose.nix | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ymir')

diff --git a/ymir/mlmmj-expose.nix b/ymir/mlmmj-expose.nix
index a69c6bb2..6b22bea5 100644
--- a/ymir/mlmmj-expose.nix
+++ b/ymir/mlmmj-expose.nix
@@ -68,7 +68,7 @@ let
                 unless (ident `elem` identities) . die $ "Unknown sender: ‘" ++ ident ++ "’"
                 subscribers <- getSubscribers
                 unless (recipient `elem` subscribers) . die $ "Unknown recipient: ‘" ++ recipient ++ "’"
-                encryptMsg CBC key (CLBS.pack . show $ (ident, recipient)) >>= CLBS.putStrLn
+                encryptMsg CBC key (CLBS.pack . show $ (ident, recipient)) >>= CBS.putStrLn . Base64.encode
               _ -> hPutStrLn stderr ("Called without expected arguments (<listDirectory> <senderIdentity> <recipient>)") >> exitWith (ExitFailure 2)
           _ -> hPutStrLn stderr ("Called under unsupported name ‘" ++ progName ++ "’") >> exitWith (ExitFailure 2)
 
-- 
cgit v1.2.3