diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-02 03:27:10 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-02 03:27:10 +0200 |
| commit | 653d0631fcfbd9d377cd8b01a8ffea3c0d575613 (patch) | |
| tree | c4ac42ebcc87ed6d29c3041a79b8580b647505ae | |
| parent | 37af9a57c7cc04cbb2473a668e4ef8aac17d478b (diff) | |
| download | nixos-653d0631fcfbd9d377cd8b01a8ffea3c0d575613.tar nixos-653d0631fcfbd9d377cd8b01a8ffea3c0d575613.tar.gz nixos-653d0631fcfbd9d377cd8b01a8ffea3c0d575613.tar.bz2 nixos-653d0631fcfbd9d377cd8b01a8ffea3c0d575613.tar.xz nixos-653d0631fcfbd9d377cd8b01a8ffea3c0d575613.zip | |
use getIdentities
| -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 |