From 164204149c458378a0f9126f629c043e7cb7c3f2 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 20 Dec 2022 20:51:48 +0100 Subject: bump --- overlays/prometheus-lvm-exporter.nix | 2 +- overlays/spm/server/Spm/Server.hs | 4 +++- 2 files changed, 4 insertions(+), 2 deletions(-) (limited to 'overlays') diff --git a/overlays/prometheus-lvm-exporter.nix b/overlays/prometheus-lvm-exporter.nix index ead1e820..8568e24d 100644 --- a/overlays/prometheus-lvm-exporter.nix +++ b/overlays/prometheus-lvm-exporter.nix @@ -3,7 +3,7 @@ pname = "prometheus-lvm-exporter"; inherit (sources.prometheus-lvm-exporter) version src; - vendorHash = "sha256-DyvUM3pP2P1IGfXKpkR5Y4CVcnSBsnNy0kd3WTjbWpg="; + vendorHash = "sha256-5rNrCkX+y8pItkpkvYO7uVgT/sIkUthwJ41RkMsefL4="; doCheck = false; diff --git a/overlays/spm/server/Spm/Server.hs b/overlays/spm/server/Spm/Server.hs index 6bb9dfe6..e6a876cb 100644 --- a/overlays/spm/server/Spm/Server.hs +++ b/overlays/spm/server/Spm/Server.hs @@ -275,7 +275,9 @@ spmServer dom mbox = whoami spmSql $ do Entity mailboxMappingMailbox _ <- maybe (throwError err404) return <=< getBy $ UniqueMailbox mbox - maybe (throwError err400{ errBody = "Address already claimed" }) (const $ return NoContent) =<< insertUnique MailboxMapping{mailboxMappingExtension = Nothing, mailboxMappingDomain = dom, mailboxMappingReject = False, ..} + insert_ MailboxMapping{mailboxMappingExtension = Nothing, mailboxMappingDomain = dom, mailboxMappingReject = False, ..} + + return NoContent listMappings = spmSql $ do Entity mailboxId _ <- maybe (throwError err404) return <=< getBy $ UniqueMailbox mbox -- cgit v1.2.3