summaryrefslogtreecommitdiff
path: root/ymir
diff options
context:
space:
mode:
Diffstat (limited to 'ymir')
-rw-r--r--ymir/mlmmj-expose.nix2
1 files changed, 2 insertions, 0 deletions
diff --git a/ymir/mlmmj-expose.nix b/ymir/mlmmj-expose.nix
index 077f6c81..87abeb65 100644
--- a/ymir/mlmmj-expose.nix
+++ b/ymir/mlmmj-expose.nix
@@ -14,6 +14,7 @@ let
14 import System.Exit 14 import System.Exit
15 import System.Directory 15 import System.Directory
16 import System.Process 16 import System.Process
17 import Text.printf
17 18
18 import Data.Char 19 import Data.Char
19 20
@@ -44,6 +45,7 @@ let
44 uuid <- UUID.nextRandom 45 uuid <- UUID.nextRandom
45 let fName = "queue" </> "exposed" <.> UUID.toString uuid 46 let fName = "queue" </> "exposed" <.> UUID.toString uuid
46 getContents >>= writeFile fName 47 getContents >>= writeFile fName
48 hPrintf stdout "Forwarding mail to <%s>, subscribed to %s\n" recipient (takeBaseName listDir)
47 callProcess "${pkgs.mlmmj}/bin/mlmmj-send" ["-L", listDir, "-l", "6", "-m", fName, "-T", recipient] 49 callProcess "${pkgs.mlmmj}/bin/mlmmj-send" ["-L", listDir, "-l", "6", "-m", fName, "-T", recipient]
48 removeFile fName 50 removeFile fName
49 [] -> die "Unknown extension" 51 [] -> die "Unknown extension"