14 lines
275 B
Haskell
14 lines
275 B
Haskell
{-# 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 |