diff options
Diffstat (limited to 'hosts/surtr/email/spm/lib/Data/UUID')
| -rw-r--r-- | hosts/surtr/email/spm/lib/Data/UUID/Instances.hs | 18 |
1 files changed, 0 insertions, 18 deletions
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 @@ | |||
| 1 | {-# OPTIONS_GHC -fno-warn-orphans #-} | ||
| 2 | |||
| 3 | module Data.UUID.Instances () where | ||
| 4 | |||
| 5 | import Prelude | ||
| 6 | import Data.UUID (UUID) | ||
| 7 | import qualified Data.UUID as UUID | ||
| 8 | import Servant.API.ContentTypes | ||
| 9 | |||
| 10 | |||
| 11 | instance MimeRender PlainText UUID where | ||
| 12 | mimeRender p = mimeRender p . UUID.toText | ||
| 13 | |||
| 14 | instance MimeRender JSON UUID where | ||
| 15 | mimeRender p = mimeRender p . UUID.toText | ||
| 16 | |||
| 17 | instance MimeRender OctetStream UUID where | ||
| 18 | mimeRender p = mimeRender p . UUID.toByteString | ||
