1 files changed, 0 insertions, 30 deletions

diff --git a/hosts/surtr/email/spm/server/Data/CaseInsensitive/Instances.hs b/hosts/surtr/email/spm/server/Data/CaseInsensitive/Instances.hs
deleted file mode 100644
index 1f3f7a11..00000000
--- a/hosts/surtr/email/spm/server/Data/CaseInsensitive/Instances.hs
+++ /dev/null
@@ -1,30 +0,0 @@
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-{-# LANGUAGE OverloadedStrings #-}
-
-module Data.CaseInsensitive.Instances () where
-
-import Prelude
-import Database.Persist
-import Database.Persist.Sql
-
-import Data.CaseInsensitive (CI)
-import qualified Data.CaseInsensitive as CI
-
-import Data.Text (Text)
-import qualified Data.Text as Text
-import qualified Data.Text.Encoding as Text
-
-import Control.Exception
-
-
-instance PersistField (CI Text) where
-  toPersistValue = PersistLiteralEscaped . Text.encodeUtf8 . CI.original
-  fromPersistValue = \case
-    PersistText t -> Right $ CI.mk t
-    PersistLiteralEscaped bs -> case Text.decodeUtf8' bs of
-      Right t   -> Right $ CI.mk t
-      Left  err -> Left $ "Could not decode PersistLiteral as UTF-8: " <> Text.pack (displayException err)
-    o -> Left $ "Expected PersistText or PersistLiteral but got ‘" <> Text.pack (show o) <> "’"
-
-instance PersistFieldSql (CI Text) where
-  sqlType _ = SqlOther "citext"