no need for truffle flag for differing json structures

srghma · Oct 20, 2020 · 765bd7c · 765bd7c
1 parent deeef00
commit 765bd7c
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/src/Data/CodeGen.purs b/src/Data/CodeGen.purs
@@ -180,10 +180,9 @@ maybeAnnotateArity abi =
     go (SolidityFunction f) = SolidityFunction f {name = f.name <> show (length f.inputs)}
 
 parseAbi :: forall r. {truffle :: Boolean | r} -> Json -> Either String AbiWithErrors
-parseAbi {truffle} abiJson = case truffle of
-  false -> lmap printJsonDecodeError $ decodeJson abiJson
-  true -> let mabi = abiJson ^? _Object <<< ix "abi"
-          in note "truffle artifact missing abi field" mabi >>= \json -> lmap printJsonDecodeError $ decodeJson json
+parseAbi _ abiJson = case abiJson ^? _Object <<< ix "abi" of
+  Nothing -> lmap printJsonDecodeError $ decodeJson abiJson
+  Just json -> lmap printJsonDecodeError $ decodeJson json
 
 genPSModuleStatement :: GeneratorOptions -> FilePath -> String
 genPSModuleStatement opts fp = comment <> "\n"