diff options
| -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] |