{-# LANGUAGE FlexibleInstances #-}
module PlutusCore.Flat.Instances.Extra where

import PlutusCore.Flat.Class (Flat)
import PlutusCore.Flat.Instances.Base ()

-- $setup
-- >>> import PlutusCore.Flat.Instances.Test

{- |
For better encoding/decoding performance, it is useful to declare instances of concrete list types, such as [Char].

>>> tstBits ""
(True,1,"0")

>>> tstBits "aaa"
(True,28,"10110000 11011000 01101100 0010")
-}
instance {-# OVERLAPPING #-} Flat [Char]