diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-02 02:46:10 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-02 02:46:10 +0200 |
| commit | 81ea9bb24b55d10254416f1649a57fe9c0d4af21 (patch) | |
| tree | 7349c832663b2bbf2509f69fdf4595934e462787 | |
| parent | 6c197a9f8ca39df42b4d5ada0cd17e6a4a1c7a9e (diff) | |
| download | nixos-81ea9bb24b55d10254416f1649a57fe9c0d4af21.tar nixos-81ea9bb24b55d10254416f1649a57fe9c0d4af21.tar.gz nixos-81ea9bb24b55d10254416f1649a57fe9c0d4af21.tar.bz2 nixos-81ea9bb24b55d10254416f1649a57fe9c0d4af21.tar.xz nixos-81ea9bb24b55d10254416f1649a57fe9c0d4af21.zip | |
syntax
| -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 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) |