logmessages

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
       import System.Exit
       import System.Directory
       import System.Process
+      import Text.printf
 
       import Data.Char
 
@@ -44,6 +45,7 @@ let
                     uuid <- UUID.nextRandom
                     let fName = "queue" </> "exposed" <.> UUID.toString uuid
                     getContents >>= writeFile fName
+                    hPrintf stdout "Forwarding mail to <%s>, subscribed to %s\n" recipient (takeBaseName listDir)
                     callProcess "${pkgs.mlmmj}/bin/mlmmj-send" ["-L", listDir, "-l", "6", "-m", fName, "-T", recipient]
                     removeFile fName
                   [] -> die "Unknown extension"