chore: simplify with <|>

crytic · Feb 28, 2024 · 38ebde2 · 38ebde2
1 parent 9b26749
commit 38ebde2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Main.hs b/src/Main.hs
@@ -214,8 +214,8 @@ versionOption = infoOption
 
 overrideConfig :: EConfig -> Options -> IO EConfig
 overrideConfig config Options{..} = do
-  rpcUrl <- maybe (Onchain.rpcUrlEnv) (pure . Just) cliRpcUrl
-  rpcBlock <- maybe (Onchain.rpcBlockEnv) (pure . Just) cliRpcBlock
+  rpcUrl <- (pure cliRpcUrl) <|> Onchain.rpcUrlEnv
+  rpcBlock <- (pure cliRpcBlock) <|> Onchain.rpcBlockEnv
   pure $
     config { solConf = overrideSolConf config.solConf
            , campaignConf = overrideCampaignConf config.campaignConf