{-# OPTIONS_GHC -fno-warn-orphans #-}

module Crypto.JWT.Instances () where

import Prelude
import Control.Arrow

import Crypto.JWT
import Servant.API.ContentTypes


instance MimeRender PlainText SignedJWT where
  mimeRender _ = encodeCompact

instance MimeRender OctetStream SignedJWT where
  mimeRender _ = encodeCompact

instance MimeUnrender PlainText SignedJWT where
  mimeUnrender _ = left (show @Error) . decodeCompact

instance MimeUnrender OctetStream SignedJWT where
  mimeUnrender _ = left (show @Error) . decodeCompact