From 8c95cb87fbd890651779ad5ec282492510c99262 Mon Sep 17 00:00:00 2001
From: Mate Soos <mate.soos@ethereum.org>
Date: Thu, 5 Dec 2024 13:04:48 +0100
Subject: [PATCH] Cleanup

---
 src/EVM/Solidity.hs | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/src/EVM/Solidity.hs b/src/EVM/Solidity.hs
index ca9bdf973..3b48f72aa 100644
--- a/src/EVM/Solidity.hs
+++ b/src/EVM/Solidity.hs
@@ -668,11 +668,7 @@ toCode contractName t = case BS16.decodeBase16Untyped (encodeUtf8 t) of
             else error $ T.unpack ("Error toCode:" <> e <> ", in " <> contractName)
 
 solc :: Language -> Text -> IO Text
-solc lang src =
-  T.pack <$> readProcess
-    "solc"
-    ["--standard-json"]
-    (T.unpack $ stdjson lang src)
+solc lang src = T.pack <$> readProcess "solc" ["--standard-json"] (T.unpack $ stdjson lang src)
 
 data Language = Solidity | Yul
   deriving (Show)
@@ -683,8 +679,7 @@ data StandardJSON = StandardJSON Language Text
 instance ToJSON StandardJSON where
   toJSON (StandardJSON lang src) =
     object [ "language" .= show lang
-           , "sources" .= object ["hevm.sol" .=
-                                   object ["content" .= src]]
+           , "sources" .= object ["hevm.sol" .= object ["content" .= src]]
            , "settings" .=
              object [ "outputSelection" .=
                     object ["*" .=