List all subscribers

1 files changed, 5 insertions, 0 deletions

diff --git a/ymir/mlmmj-expose.nix b/ymir/mlmmj-expose.nix
index 0873b0f7..122fafa4 100644
--- a/ymir/mlmmj-expose.nix
+++ b/ymir/mlmmj-expose.nix
@@ -69,6 +69,11 @@ let
           "mlmmj-get-exposed" -> do
             args <- getArgs
             case args of
+              [(dropTrailingPathSeperator -> listDir), (map toLower -> ident)] -> do
+                setCurrentDirectory listDir
+                identities <- getIdentities
+                unless (ident `elem` identities) . die $ "Unknown sender: ‘" ++ ident ++ "’"
+                mapM_ (\sub -> putStrLn $ sub ++ " " ++ takeFileName listDir ++ "+" ++ hash' (ident, sub) ++ "@subs.lists.yggdrasil.li") =<< getSubscribers
               (dropTrailingPathSeparator -> listDir) : (map toLower -> ident) : (map (map toLower) -> recipients) -> do
                 setCurrentDirectory listDir
                 identities <- getIdentities