1 files changed, 1 insertions, 1 deletions

diff --git a/ymir/mlmmj-expose/mlmmj-expose.hs b/ymir/mlmmj-expose/mlmmj-expose.hs
index 4ad9a201..8158e504 100644
--- a/ymir/mlmmj-expose/mlmmj-expose.hs
+++ b/ymir/mlmmj-expose/mlmmj-expose.hs
@@ -68,7 +68,7 @@ main = do
           subscribers <- getSubscribers
           let hashes = filter ((==) extension . snd) [((siIdent, siEmail), hashIdent SubscriberIdent{..}) | siIdent <- identities, siEmail <- subscribers ]
           case hashes of
-            [((_, siEmail), _)] -> do
+            [((siIdent, siEmail), _)] -> do
               uuid <- UUID.nextRandom
               let fName = "queue" </> "exposed" <.> uuidTrans uuid
                   uuidTrans = uuidTrans' . UUID.toString