1 files changed, 1 insertions, 1 deletions
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)

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
61	"mlmmj-get-exposed" -> do	61	"mlmmj-get-exposed" -> do
62	args <- getArgs	62	args <- getArgs
63	case args of	63	case args of
64	[listDir, (map toLower -> ident)] : (map (map toLower) -> recipients) -> do	64	listDir : (map toLower -> ident) : (map (map toLower) -> recipients) -> do
65	setCurrentDirectory listDir	65	setCurrentDirectory listDir
66	key <- (BS.readFile "exposed.key") `catchIOError` (\e -> if isDoesNotExistError e then randomKey >>= (\k -> BS.writeFile "exposed.key" k >> return k) else ioError e)	66	key <- (BS.readFile "exposed.key") `catchIOError` (\e -> if isDoesNotExistError e then randomKey >>= (\k -> BS.writeFile "exposed.key" k >> return k) else ioError e)
67	identities <- (lines <$> readFile "exposed.ids") `catchIOError` (\e -> if isDoesNotExistError e then return [] else ioError e)	67	identities <- (lines <$> readFile "exposed.ids") `catchIOError` (\e -> if isDoesNotExistError e then return [] else ioError e)