blob: 335937d85c26103d7a86e8697bb0204d116f0f82 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{-# 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
|
