From fc6cf6169868e60c189e4b243330c3717ff159f3 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 26 May 2022 13:58:07 +0200 Subject: ... --- .../email/spm/lib/Data/CaseInsensitive/Instances.hs | 19 ------------------- hosts/surtr/email/spm/lib/Data/UUID/Instances.hs | 18 ------------------ 2 files changed, 37 deletions(-) delete mode 100644 hosts/surtr/email/spm/lib/Data/CaseInsensitive/Instances.hs delete mode 100644 hosts/surtr/email/spm/lib/Data/UUID/Instances.hs (limited to 'hosts/surtr/email/spm/lib/Data') diff --git a/hosts/surtr/email/spm/lib/Data/CaseInsensitive/Instances.hs b/hosts/surtr/email/spm/lib/Data/CaseInsensitive/Instances.hs deleted file mode 100644 index 56cba98a..00000000 --- a/hosts/surtr/email/spm/lib/Data/CaseInsensitive/Instances.hs +++ /dev/null @@ -1,19 +0,0 @@ -{-# OPTIONS_GHC -fno-warn-orphans #-} - -module Data.CaseInsensitive.Instances () where - -import Prelude - -import Data.CaseInsensitive (CI) -import qualified Data.CaseInsensitive as CI - -import Servant.API.ContentTypes - -import Data.Aeson - - -instance MimeRender PlainText a => MimeRender PlainText (CI a) where - mimeRender p = mimeRender p . CI.original - -instance ToJSON a => ToJSON (CI a) where - toJSON = toJSON . CI.original diff --git a/hosts/surtr/email/spm/lib/Data/UUID/Instances.hs b/hosts/surtr/email/spm/lib/Data/UUID/Instances.hs deleted file mode 100644 index 335937d8..00000000 --- a/hosts/surtr/email/spm/lib/Data/UUID/Instances.hs +++ /dev/null @@ -1,18 +0,0 @@ -{-# OPTIONS_GHC -fno-warn-orphans #-} - -module Data.UUID.Instances () where - -import Prelude -import Data.UUID (UUID) -import qualified Data.UUID as UUID -import Servant.API.ContentTypes - - -instance MimeRender PlainText UUID where - mimeRender p = mimeRender p . UUID.toText - -instance MimeRender JSON UUID where - mimeRender p = mimeRender p . UUID.toText - -instance MimeRender OctetStream UUID where - mimeRender p = mimeRender p . UUID.toByteString -- cgit v1.2.3