diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-22 00:40:02 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-22 00:40:02 +0200 |
| commit | 6b52c4af039ed49d2549e79eb3131370a47569ff (patch) | |
| tree | d30d0397e2be8e36fe12e0cb1d749faef239dc31 /ymir | |
| parent | a60171cd885ca6df9932513fc0d092b3ac6057a2 (diff) | |
| download | nixos-6b52c4af039ed49d2549e79eb3131370a47569ff.tar nixos-6b52c4af039ed49d2549e79eb3131370a47569ff.tar.gz nixos-6b52c4af039ed49d2549e79eb3131370a47569ff.tar.bz2 nixos-6b52c4af039ed49d2549e79eb3131370a47569ff.tar.xz nixos-6b52c4af039ed49d2549e79eb3131370a47569ff.zip | |
test mode
Diffstat (limited to 'ymir')
| -rw-r--r-- | ymir/mlmmj-expose.nix | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ymir/mlmmj-expose.nix b/ymir/mlmmj-expose.nix index 3d0ef50e..6cf98bfb 100644 --- a/ymir/mlmmj-expose.nix +++ b/ymir/mlmmj-expose.nix | |||
| @@ -44,8 +44,9 @@ let | |||
| 44 | let hashes = filter ((==) extension . snd) [((ident, sub), hash' (ident, sub)) | ident <- identities, sub <- subscribers] | 44 | let hashes = filter ((==) extension . snd) [((ident, sub), hash' (ident, sub)) | ident <- identities, sub <- subscribers] |
| 45 | case hashes of | 45 | case hashes of |
| 46 | [(_, recipient)] -> do | 46 | [(_, recipient)] -> do |
| 47 | getContents >>= writeFile "queue/exposed" | 47 | hPutStrLn $ show ["-L", listDir, "-l", "6", "-m", "queue/exposed", "-T", recipient] |
| 48 | callProcess "${pkgs.mlmmj}/bin/mlmmj-send" ["-L", listDir, "-l", "6", "-m", "queue/exposed", "-T", recipient] | 48 | -- getContents >>= writeFile "queue/exposed" |
| 49 | -- callProcess "${pkgs.mlmmj}/bin/mlmmj-send" ["-L", listDir, "-l", "6", "-m", "queue/exposed", "-T", recipient] | ||
| 49 | [] -> die "Unknown extension" | 50 | [] -> die "Unknown extension" |
| 50 | _ -> die "Ambiguous extension" | 51 | _ -> die "Ambiguous extension" |
| 51 | _ -> hPutStrLn stderr ("Called without expected arguments (<listDirectory> <recipientExtension>)") >> exitWith (ExitFailure 2) | 52 | _ -> hPutStrLn stderr ("Called without expected arguments (<listDirectory> <recipientExtension>)") >> exitWith (ExitFailure 2) |