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

module Data.CryptoID.Instances
  (
  ) where

import qualified Data.CryptoID as CID

import Text.Blaze (ToMarkup(..))

import ClassyPrelude

instance ToMarkup s => ToMarkup (CID.CryptoID c s) where
  toMarkup = toMarkup . CID.ciphertext