From 293ea8299285edeedb676ad47ad6fd91b297b11b Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 6 Sep 2018 17:47:00 +0200 Subject: ... --- ymir/mlmmj-expose/mlmmj-expose.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'ymir') 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 -- cgit v1.2.3