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 185bac80..2357584e 100644 --- a/ymir/mlmmj-expose.nix +++ b/ymir/mlmmj-expose.nix | |||
| @@ -52,7 +52,7 @@ let | |||
| 52 | case args of | 52 | case args of |
| 53 | [listDir, (map toLower -> ident)] -> do | 53 | [listDir, (map toLower -> ident)] -> do |
| 54 | setCurrentDirectory listDir | 54 | setCurrentDirectory listDir |
| 55 | identities <- (read <$> readFile "exposed.ids") `catchIOError` (\e -> if isDoesNotExistError e then return [] else ioError e) | 55 | identities <- getIdentities |
| 56 | case ident `elem` identities of | 56 | case ident `elem` identities of |
| 57 | True -> putStrLn "Identity is already known" | 57 | True -> putStrLn "Identity is already known" |
| 58 | False -> writeFile "exposed.ids" . unlines $ ident : identities | 58 | False -> writeFile "exposed.ids" . unlines $ ident : identities |