diff options
| -rw-r--r-- | ymir/mlmmj-expose.nix | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ymir/mlmmj-expose.nix b/ymir/mlmmj-expose.nix index 6dc808e3..6673c06c 100644 --- a/ymir/mlmmj-expose.nix +++ b/ymir/mlmmj-expose.nix | |||
| @@ -56,7 +56,7 @@ let | |||
| 56 | identities <- (read <$> readFile "exposed.ids") `catchIOError` (\e -> if isDoesNotExistError e then return [] else ioError e) | 56 | identities <- (read <$> readFile "exposed.ids") `catchIOError` (\e -> if isDoesNotExistError e then return [] else ioError e) |
| 57 | case ident `elem` identities of | 57 | case ident `elem` identities of |
| 58 | True -> putStrLn "Identity is already known" | 58 | True -> putStrLn "Identity is already known" |
| 59 | False -> writeFile "exosed.ids" . show $ ident : identities | 59 | False -> writeFile "exposed.ids" . show $ ident : identities |
| 60 | _ -> hPutStrLn stderr ("Called without expected arguments (<listDirectory> <senderIdentity>)") >> exitWith (ExitFailure 2) | 60 | _ -> hPutStrLn stderr ("Called without expected arguments (<listDirectory> <senderIdentity>)") >> exitWith (ExitFailure 2) |
| 61 | "mlmmj-get-exposed" -> do | 61 | "mlmmj-get-exposed" -> do |
| 62 | args <- getArgs | 62 | args <- getArgs |