1 files changed, 3 insertions, 2 deletions

diff --git a/ymir/mlmmj-expose.nix b/ymir/mlmmj-expose.nix
index 3d0ef50e..6cf98bfb 100644
--- a/ymir/mlmmj-expose.nix
+++ b/ymir/mlmmj-expose.nix
@@ -44,8 +44,9 @@ let
                 let hashes = filter ((==) extension . snd) [((ident, sub), hash' (ident, sub)) | ident <- identities, sub <- subscribers]
                 case hashes of
                   [(_, recipient)] -> do
-                    getContents >>= writeFile "queue/exposed"
-                    callProcess "${pkgs.mlmmj}/bin/mlmmj-send" ["-L", listDir, "-l", "6", "-m", "queue/exposed", "-T", recipient]
+                    hPutStrLn $ show ["-L", listDir, "-l", "6", "-m", "queue/exposed", "-T", recipient]
+                    -- getContents >>= writeFile "queue/exposed"
+                    -- callProcess "${pkgs.mlmmj}/bin/mlmmj-send" ["-L", listDir, "-l", "6", "-m", "queue/exposed", "-T", recipient]
                   [] -> die "Unknown extension"
                   _ -> die "Ambiguous extension"
               _ -> hPutStrLn stderr ("Called without expected arguments (<listDirectory> <recipientExtension>)") >> exitWith (ExitFailure 2)