From c8a6dd4a334382b345c8e713989ae15e290b8bff Mon Sep 17 00:00:00 2001
From: Gregor Kleen <pngwjpgh@users.noreply.github.com>
Date: Wed, 9 Nov 2016 20:42:56 +0100
Subject: logmessages

---
 ymir/mlmmj-expose.nix | 2 ++
 1 file changed, 2 insertions(+)

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"
-- 
cgit v1.2.3