28 lines
482 B
Haskell
28 lines
482 B
Haskell
{-# OPTIONS_GHC -fno-warn-orphans #-}
|
|
|
|
module Jose.Jwt.Instances
|
|
(
|
|
) where
|
|
|
|
import ClassyPrelude.Yesod
|
|
|
|
import Jose.Jwt
|
|
|
|
|
|
deriving instance Ord Jwt
|
|
deriving instance Read Jwt
|
|
deriving instance Generic Jwt
|
|
deriving instance Typeable Jwt
|
|
|
|
instance PathPiece Jwt where
|
|
toPathPiece (Jwt bytes) = decodeUtf8 bytes
|
|
fromPathPiece = Just . Jwt . encodeUtf8
|
|
|
|
instance Hashable Jwt
|
|
|
|
|
|
deriving instance Generic JwtError
|
|
deriving instance Typeable JwtError
|
|
|
|
instance Exception JwtError
|