...

1 files changed, 22 insertions, 0 deletions

diff --git a/overlays/spm/lib/Crypto/JWT/Instances.hs b/overlays/spm/lib/Crypto/JWT/Instances.hs
new file mode 100644
index 00000000..fa3c83b0
--- /dev/null
+++ b/overlays/spm/lib/Crypto/JWT/Instances.hs
@@ -0,0 +1,22 @@
+{-# 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