diff options
author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-22 00:43:35 +0200 |
---|---|---|
committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-06-22 00:43:35 +0200 |
commit | 3a9beb2de046b6eee4768e7b787f2f5c49b91808 (patch) | |
tree | bdf74a741d82cbec88d0e46b70e91cccc4fbe29c | |
parent | 8acf09c922b8b051d38136896bc7a362a8ac5207 (diff) | |
download | nixos-3a9beb2de046b6eee4768e7b787f2f5c49b91808.tar nixos-3a9beb2de046b6eee4768e7b787f2f5c49b91808.tar.gz nixos-3a9beb2de046b6eee4768e7b787f2f5c49b91808.tar.bz2 nixos-3a9beb2de046b6eee4768e7b787f2f5c49b91808.tar.xz nixos-3a9beb2de046b6eee4768e7b787f2f5c49b91808.zip |
trace hashes
-rw-r--r-- | ymir/mlmmj-expose.nix | 4 |
1 files changed, 3 insertions, 1 deletions
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 | |||
30 | 30 | ||
31 | -- import Data.Hex | 31 | -- import Data.Hex |
32 | 32 | ||
33 | import Debug.Trace | ||
34 | |||
33 | main :: IO () | 35 | main :: IO () |
34 | main = do | 36 | main = do |
35 | progName <- takeFileName <$> getProgName | 37 | progName <- takeFileName <$> getProgName |
@@ -41,7 +43,7 @@ let | |||
41 | setCurrentDirectory listDir | 43 | setCurrentDirectory listDir |
42 | identities <- getIdentities | 44 | identities <- getIdentities |
43 | subscribers <- getSubscribers | 45 | subscribers <- getSubscribers |
44 | let hashes = filter ((==) extension . snd) [((ident, sub), hash' (ident, sub)) | ident <- identities, sub <- subscribers] | 46 | let hashes = filter ((==) extension . snd) $ traceShowId [((ident, sub), hash' (ident, sub)) | ident <- identities, sub <- subscribers] |
45 | case hashes of | 47 | case hashes of |
46 | [(_, recipient)] -> do | 48 | [(_, recipient)] -> do |
47 | putStrLn $ show ["-L", listDir, "-l", "6", "-m", "queue/exposed", "-T", recipient] | 49 | putStrLn $ show ["-L", listDir, "-l", "6", "-m", "queue/exposed", "-T", recipient] |