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 /ymir | |
| parent | 8acf09c922b8b051d38136896bc7a362a8ac5207 (diff) | |
| download | nixos-3a9beb2de046b6eee4768e7b787f2f5c49b91808.tar nixos-3a9beb2de046b6eee4768e7b787f2f5c49b91808.tar.gz nixos-3a9beb2de046b6eee4768e7b787f2f5c49b91808.tar.bz2 nixos-3a9beb2de046b6eee4768e7b787f2f5c49b91808.tar.xz nixos-3a9beb2de046b6eee4768e7b787f2f5c49b91808.zip | |
trace hashes
Diffstat (limited to 'ymir')
| -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] |