a5765a355d
In order to allow reusing this code in the future, I've made it so that Agora-specific code all lives in `Main`, and everything else lives in `ScriptExport` or other non-Agora modules.
34 lines
789 B
Haskell
34 lines
789 B
Haskell
{-# OPTIONS_GHC -Wno-orphans #-}
|
|
|
|
{- |
|
|
Module : Codec.Serialise.Orphans
|
|
Maintainer : emi@haskell.fyi
|
|
Description: Orphan instances for Serialising and Hashing Cardano types.
|
|
|
|
Orphan instances for Serialising and Hashing Cardano types.
|
|
-}
|
|
module Codec.Serialise.Orphans () where
|
|
|
|
import Codec.Serialise (Serialise)
|
|
import Data.Tagged (Tagged (Tagged))
|
|
import PlutusLedgerApi.V1 (TxId, TxOutRef)
|
|
import PlutusLedgerApi.V1.Value (AssetClass, CurrencySymbol, TokenName)
|
|
|
|
deriving anyclass instance
|
|
Serialise TxOutRef
|
|
|
|
deriving anyclass instance
|
|
Serialise TxId
|
|
|
|
deriving anyclass instance
|
|
Serialise AssetClass
|
|
|
|
deriving anyclass instance
|
|
Serialise CurrencySymbol
|
|
|
|
deriving anyclass instance
|
|
Serialise TokenName
|
|
|
|
deriving newtype instance
|
|
Serialise a =>
|
|
Serialise (Tagged s a)
|