From 37af9a57c7cc04cbb2473a668e4ef8aac17d478b Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Thu, 2 Jun 2016 03:23:02 +0200
Subject: less debug on bounce

---
 ymir/mlmmj-expose.nix | 4 ++--
 1 file 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
                 key <- (BS.readFile "exposed.key") `catchIOError` (\e -> if isDoesNotExistError e then randomKey >>= (\k -> BS.writeFile "exposed.key" k >> return k) else ioError e)
                 let ((map toLower -> ident), (map toLower -> recipient)) = read . CLBS.unpack $ decryptMsg CBC key extension
                 identities <- getIdentities
-                unless (ident `elem` identities) . die $ "Unknown sender: ‘" ++ ident ++ "’"
+                unless (ident `elem` identities) $ die "Unknown sender"
                 subscribers <- getSubscribers
-                unless (recipient `elem` subscribers) . die $ "Unknown recipient: ‘" ++ recipient ++ "’"
+                unless (recipient `elem` subscribers) $ die "Unknown recipient"
                 getContents >>= writeFile "queue/exposed"
                 callProcess "${pkgs.mlmmj}/bin/mlmmj-send" ["-L", listDir, "-l", "6", "-m", "queue/exposed", "-T", recipient]
               _ -> hPutStrLn stderr ("Called without expected arguments (<listDirectory> <recipientExtension>)") >> exitWith (ExitFailure 2)
-- 
cgit v1.2.3