From cf011a5213354674eef0a0dbe838ce83edd4042c Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 2 Jun 2016 02:21:48 +0200 Subject: typos --- ymir/mlmmj-expose.nix | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'ymir/mlmmj-expose.nix') diff --git a/ymir/mlmmj-expose.nix b/ymir/mlmmj-expose.nix index d48bed18..2158cd35 100644 --- a/ymir/mlmmj-expose.nix +++ b/ymir/mlmmj-expose.nix @@ -39,11 +39,11 @@ let [listDir, (Base64.decodeLenient -> extension)] -> do setCurrentDirectory listDir 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)) :: (String, String)) = read . CLBS.unpack $ decryptMsg CBC key recipientExt + let ((map toLower -> ident), (map toLower -> recipient)) = read . CLBS.unpack $ decryptMsg CBC key extension identities <- (read <$> readFile "exposed.ids") `catchIOError` (\e -> if isDoesNotExistError e then return [] else ioError e) unless (ident `elem` identities) . die $ "Unknown sender: ‘" ++ ident ++ "’" subscribers <- getSubscribers - unless (recipient `elem` subscribers) . dio $ "Unknown recipient: ‘" ++ recipient ++ "’" + unless (recipient `elem` subscribers) . die $ "Unknown recipient: ‘" ++ 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 ( )") >> exitWith (ExitFailure 2) @@ -66,7 +66,7 @@ let identities <- (read <$> readFile "exposed.ids") `catchIOError` (\e -> if isDoesNotExistError e then return [] else ioError e) unless (ident `elem` identities) . die $ "Unknown sender: ‘" ++ ident ++ "’" subscribers <- getSubscribers - unless (recipient `elem` subscribers) . dio $ "Unknown recipient: ‘" ++ recipient ++ "’" + unless (recipient `elem` subscribers) . die $ "Unknown recipient: ‘" ++ recipient ++ "’" encryptMsg CBC key (CLBS.pack . show $ (ident, recipient)) >>= CLBS.putStrLn _ -> hPutStrLn stderr ("Called without expected arguments ( )") >> exitWith (ExitFailure 2) _ -> hPutStrLn stderr ("Called under unsupported name ‘" ++ progName ++ "’") >> exitWith (ExitFailure 2) -- cgit v1.2.3