From fc6cf6169868e60c189e4b243330c3717ff159f3 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Thu, 26 May 2022 13:58:07 +0200 Subject: ... --- .../surtr/email/spm/server/Data/UUID/Instances.hs | 31 ---------------------- 1 file changed, 31 deletions(-) delete mode 100644 hosts/surtr/email/spm/server/Data/UUID/Instances.hs (limited to 'hosts/surtr/email/spm/server/Data/UUID') diff --git a/hosts/surtr/email/spm/server/Data/UUID/Instances.hs b/hosts/surtr/email/spm/server/Data/UUID/Instances.hs deleted file mode 100644 index b2268c96..00000000 --- a/hosts/surtr/email/spm/server/Data/UUID/Instances.hs +++ /dev/null @@ -1,31 +0,0 @@ -{-# OPTIONS_GHC -fno-warn-orphans #-} -{-# LANGUAGE OverloadedStrings #-} - -module Data.UUID.Instances () where - -import Prelude -import Database.Persist -import Database.Persist.Sql -import Data.UUID (UUID) -import qualified Data.UUID as UUID - -import qualified Data.ByteString.Char8 as CBS -import qualified Data.Text as Text - -import Web.PathPieces - - -instance PersistField UUID where - toPersistValue = PersistLiteralEscaped . CBS.pack . UUID.toString - fromPersistValue (PersistLiteralEscaped uuidB8) = - case UUID.fromString $ CBS.unpack uuidB8 of - Just uuid -> Right uuid - Nothing -> Left "Invalid UUID" - fromPersistValue v = Left $ "Expected PersistLiteral but got ‘" <> Text.pack (show v) <> "’" - -instance PersistFieldSql UUID where - sqlType _ = SqlOther "uuid" - -instance PathPiece UUID where - toPathPiece = Text.pack . UUID.toString - fromPathPiece = UUID.fromString . Text.unpack -- cgit v1.2.3