From 5f2f48cc9201aced512d5c4307bc9f86f1a4daa6 Mon Sep 17 00:00:00 2001 From: martyall Date: Thu, 5 Oct 2023 22:56:54 -0700 Subject: [PATCH] update generics --- src/Network/Ethereum/Web3/Solidity/Event.purs | 5 ----- src/Network/Ethereum/Web3/Solidity/Internal.purs | 2 +- 2 files changed, 1 insertion(+), 6 deletions(-) diff --git a/src/Network/Ethereum/Web3/Solidity/Event.purs b/src/Network/Ethereum/Web3/Solidity/Event.purs index 8582a6c..8e4239b 100644 --- a/src/Network/Ethereum/Web3/Solidity/Event.purs +++ b/src/Network/Ethereum/Web3/Solidity/Event.purs @@ -65,11 +65,6 @@ else instance GArrayParser as => GArrayParser (Constructor name as) where Tuple a rest <- gArrayParser hxs pure $ Tuple (Constructor a) rest -else instance ArrayParser as => GArrayParser (Constructor name as) where - gArrayParser hxs = do - Tuple a rest <- arrayParser hxs - pure $ Tuple (Constructor a) rest - -------------------------------------------------------------------------------- -- | Event Parsers -------------------------------------------------------------------------------- diff --git a/src/Network/Ethereum/Web3/Solidity/Internal.purs b/src/Network/Ethereum/Web3/Solidity/Internal.purs index 9f49d87..0d2f87b 100644 --- a/src/Network/Ethereum/Web3/Solidity/Internal.purs +++ b/src/Network/Ethereum/Web3/Solidity/Internal.purs @@ -32,7 +32,7 @@ instance GRecordFieldsIso NoArguments from from where gToRecord _ = identity gFromRecord _ = NoArguments -else instance (IsSymbol name, GRecordFieldsIso a from to, Show (Record to), Show a) => GRecordFieldsIso (Constructor name a) from to where +else instance (IsSymbol name, GRecordFieldsIso a from to, Show (Record to)) => GRecordFieldsIso (Constructor name a) from to where gToRecord (Constructor a) = gToRecord a gFromRecord r = Constructor (gFromRecord r)