From 6b52c4af039ed49d2549e79eb3131370a47569ff Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 22 Jun 2016 00:40:02 +0200 Subject: test mode --- ymir/mlmmj-expose.nix | 5 +++-- 1 file 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 let hashes = filter ((==) extension . snd) [((ident, sub), hash' (ident, sub)) | ident <- identities, sub <- subscribers] case hashes of [(_, recipient)] -> do - getContents >>= writeFile "queue/exposed" - callProcess "${pkgs.mlmmj}/bin/mlmmj-send" ["-L", listDir, "-l", "6", "-m", "queue/exposed", "-T", recipient] + hPutStrLn $ show ["-L", listDir, "-l", "6", "-m", "queue/exposed", "-T", recipient] + -- getContents >>= writeFile "queue/exposed" + -- callProcess "${pkgs.mlmmj}/bin/mlmmj-send" ["-L", listDir, "-l", "6", "-m", "queue/exposed", "-T", recipient] [] -> die "Unknown extension" _ -> die "Ambiguous extension" _ -> hPutStrLn stderr ("Called without expected arguments ( )") >> exitWith (ExitFailure 2) -- cgit v1.2.3