From 81ea9bb24b55d10254416f1649a57fe9c0d4af21 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 2 Jun 2016 02:46:10 +0200 Subject: syntax --- 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 34f5e6d6..3f4298cb 100644 --- a/ymir/mlmmj-expose.nix +++ b/ymir/mlmmj-expose.nix @@ -61,7 +61,7 @@ let "mlmmj-get-exposed" -> do args <- getArgs case args of - [listDir, (map toLower -> ident)] : (map (map toLower) -> recipients) -> do + listDir : (map toLower -> ident) : (map (map toLower) -> recipients) -> 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) identities <- (lines <$> readFile "exposed.ids") `catchIOError` (\e -> if isDoesNotExistError e then return [] else ioError e) -- cgit v1.2.3