summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGregor Kleen <gkleen@yggdrasil.li>2016-06-22 00:40:02 +0200
committerGregor Kleen <gkleen@yggdrasil.li>2016-06-22 00:40:02 +0200
commit6b52c4af039ed49d2549e79eb3131370a47569ff (patch)
treed30d0397e2be8e36fe12e0cb1d749faef239dc31
parenta60171cd885ca6df9932513fc0d092b3ac6057a2 (diff)
downloadnixos-6b52c4af039ed49d2549e79eb3131370a47569ff.tar
nixos-6b52c4af039ed49d2549e79eb3131370a47569ff.tar.gz
nixos-6b52c4af039ed49d2549e79eb3131370a47569ff.tar.bz2
nixos-6b52c4af039ed49d2549e79eb3131370a47569ff.tar.xz
nixos-6b52c4af039ed49d2549e79eb3131370a47569ff.zip
test mode
-rw-r--r--ymir/mlmmj-expose.nix5
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)