update generics

f-o-a-m · Oct 6, 2023 · 5f2f48c · 5f2f48c
1 parent f3635f7
commit 5f2f48c
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 6 deletions.
diff --git 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
@@ -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)