Skip to content

Instantly share code, notes, and snippets.

@deque-blog

deque-blog/MonadToken.hs

Last active December 1, 2017 11:48
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save deque-blog/1eb37ecf1f27a23cabd87b1a2b476103 to your computer and use it in GitHub Desktop.
Save deque-blog/1eb37ecf1f27a23cabd87b1a2b476103 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
MonadToken.hs
class Monad m => MonadToken m where
encryptToken :: Token t => t -> m String
decryptToken :: Token t => String -> m (Maybe t)
class FromJSON a where
fromJson :: JSON -> a
class ToJSON a where
toJson :: a -> JSON
class (FromJSON t, ToJSON t) => Token t
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment