Vergara_Tech/haskell-foreign-rust
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Show instance for JSON

Browse source
This commit is contained in:
Edsko de Vries 2023-03-23 18:27:59 +01:00
parent 1c5fef5162
commit 8aeada3529
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/Foreign/Rust/External/JSON.hs vendored
View file

@ -19,11 +19,12 @@ import Codec.Borsh
import Foreign.Rust.Failure
import GHC.Stack
import qualified Data.Aeson as Aeson
import qualified Data.Aeson.Encoding as Aeson (unsafeToEncoding)
import qualified Data.Aeson.Types as Aeson (parseFail)
import qualified Data.Binary.Builder as Binary
import qualified Data.ByteString.Lazy as Lazy (ByteString)
import qualified Data.Aeson as Aeson
import qualified Data.Aeson.Encoding as Aeson (unsafeToEncoding)
import qualified Data.Aeson.Types as Aeson (parseFail)
import qualified Data.Binary.Builder as Binary
import qualified Data.ByteString.Lazy as Lazy (ByteString)
import qualified Data.ByteString.Lazy.Char8 as Lazy.Char8
{-------------------------------------------------------------------------------
Serialisation
@ -34,6 +35,9 @@ newtype JSON = JSON Lazy.ByteString
deriving stock (Eq)
deriving newtype (BorshSize, ToBorsh, FromBorsh)
instance Show JSON where
show (JSON bs) = Lazy.Char8.unpack bs
-- | Types with a Rust-side JSON renderer
class ToJSON a where
toJSON :: a -> JSON