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
                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)

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)