From fc6cf6169868e60c189e4b243330c3717ff159f3 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Thu, 26 May 2022 13:58:07 +0200
Subject: ...

---
 .../surtr/email/spm/server/Spm/Server/Database.hs  | 72 ----------------------
 1 file changed, 72 deletions(-)
 delete mode 100644 hosts/surtr/email/spm/server/Spm/Server/Database.hs

(limited to 'hosts/surtr/email/spm/server/Spm/Server')

diff --git a/hosts/surtr/email/spm/server/Spm/Server/Database.hs b/hosts/surtr/email/spm/server/Spm/Server/Database.hs
deleted file mode 100644
index 09b4c67b..00000000
--- a/hosts/surtr/email/spm/server/Spm/Server/Database.hs
+++ /dev/null
@@ -1,72 +0,0 @@
-{-# LANGUAGE OverloadedStrings, TemplateHaskell, QuasiQuotes, UndecidableInstances #-}
-
-module Spm.Server.Database
-  ( MailMailbox, MailLocal, MailExtension, MailDomain
-  , Mailbox(..), MailboxMapping(..)
-  , Unique(..)
-  ) where
-
-import Prelude
-
-import Database.Persist
-import Database.Persist.Sql
-import Database.Persist.TH
-
-import GHC.Generics (Generic)
-import Type.Reflection (Typeable)
-
-import Data.Text (Text)
-
-import Data.CaseInsensitive (CI)
-import qualified Data.CaseInsensitive as CI
-import Data.CaseInsensitive.Instances ()
-
-import Data.UUID (UUID)
-import Data.UUID.Instances ()
-
-import Data.Int (Int64)
-
-import Control.Lens
-
-import Web.HttpApiData
-
-
-newtype MailMailbox = MailMailbox
-  { unMailMailbox :: CI Text
-  } deriving stock (Eq, Ord, Read, Show, Generic, Typeable)
-    deriving newtype (PersistField, PersistFieldSql)
-makeWrapped ''MailMailbox
-newtype MailLocal = MailLocal
-  { unMailLocal :: CI Text
-  } deriving stock (Eq, Ord, Read, Show, Generic, Typeable)
-    deriving newtype (PersistField, PersistFieldSql)
-makeWrapped ''MailLocal
-newtype MailExtension = MailExtension
-  { unMailExtension :: CI Text
-  } deriving stock (Eq, Ord, Read, Show, Generic, Typeable)
-    deriving newtype (PersistField, PersistFieldSql)
-makeWrapped ''MailExtension
-newtype MailDomain = MailDomain
-  { unMailDomain :: CI Text
-  } deriving stock (Eq, Ord, Read, Show, Generic, Typeable)
-    deriving newtype (PersistField, PersistFieldSql)
-makeWrapped ''MailDomain
-
-instance FromHttpApiData MailDomain where
-  parseUrlPiece = fmap (review _Wrapped . CI.mk) . parseUrlPiece
-
-
-share [mkPersist sqlSettings] [persistLowerCase|
-  Mailbox
-    Id UUID sqltype=uuid default=gen_random_uuid()
-    ident MailMailbox sql=mailbox
-    quota Int64 Maybe sql=quota_bytes MigrationOnly
-    UniqueMailbox ident
-    deriving Show
-  MailboxMapping
-    Id UUID sqltype=uuid default=gen_random_uuid()
-    local MailLocal Maybe
-    extension MailExtension Maybe
-    domain MailDomain
-    mailbox MailboxId
-|]
-- 
cgit v1.2.3