diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2018-09-06 17:47:00 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2018-09-06 17:47:00 +0200 |
| commit | 293ea8299285edeedb676ad47ad6fd91b297b11b (patch) | |
| tree | f37fd031b79b10fafeaedcc5297186eb4758a224 /ymir | |
| parent | 5afbf3d5b8ab6cea33057123730e5c55d27fe8d4 (diff) | |
| download | nixos-293ea8299285edeedb676ad47ad6fd91b297b11b.tar nixos-293ea8299285edeedb676ad47ad6fd91b297b11b.tar.gz nixos-293ea8299285edeedb676ad47ad6fd91b297b11b.tar.bz2 nixos-293ea8299285edeedb676ad47ad6fd91b297b11b.tar.xz nixos-293ea8299285edeedb676ad47ad6fd91b297b11b.zip | |
...
Diffstat (limited to 'ymir')
| -rw-r--r-- | ymir/mlmmj-expose/mlmmj-expose.hs | 2 |
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 | |||
| 68 | subscribers <- getSubscribers | 68 | subscribers <- getSubscribers |
| 69 | let hashes = filter ((==) extension . snd) [((siIdent, siEmail), hashIdent SubscriberIdent{..}) | siIdent <- identities, siEmail <- subscribers ] | 69 | let hashes = filter ((==) extension . snd) [((siIdent, siEmail), hashIdent SubscriberIdent{..}) | siIdent <- identities, siEmail <- subscribers ] |
| 70 | case hashes of | 70 | case hashes of |
| 71 | [((_, siEmail), _)] -> do | 71 | [((siIdent, siEmail), _)] -> do |
| 72 | uuid <- UUID.nextRandom | 72 | uuid <- UUID.nextRandom |
| 73 | let fName = "queue" </> "exposed" <.> uuidTrans uuid | 73 | let fName = "queue" </> "exposed" <.> uuidTrans uuid |
| 74 | uuidTrans = uuidTrans' . UUID.toString | 74 | uuidTrans = uuidTrans' . UUID.toString |