From 3a9beb2de046b6eee4768e7b787f2f5c49b91808 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Wed, 22 Jun 2016 00:43:35 +0200
Subject: trace hashes

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

diff --git a/ymir/mlmmj-expose.nix b/ymir/mlmmj-expose.nix
index fc4499ca..febc6ae0 100644
--- a/ymir/mlmmj-expose.nix
+++ b/ymir/mlmmj-expose.nix
@@ -30,6 +30,8 @@ let
 
       -- import Data.Hex
 
+      import Debug.Trace
+
       main :: IO ()
       main = do
         progName <- takeFileName <$> getProgName
@@ -41,7 +43,7 @@ let
                 setCurrentDirectory listDir
                 identities <- getIdentities
                 subscribers <- getSubscribers
-                let hashes = filter ((==) extension . snd) [((ident, sub), hash' (ident, sub)) | ident <- identities, sub <- subscribers]
+                let hashes = filter ((==) extension . snd) $ traceShowId [((ident, sub), hash' (ident, sub)) | ident <- identities, sub <- subscribers]
                 case hashes of
                   [(_, recipient)] -> do
                     putStrLn $ show ["-L", listDir, "-l", "6", "-m", "queue/exposed", "-T", recipient]
-- 
cgit v1.2.3