fix: ensure operating on Maybe

crytic · Feb 29, 2024 · a562a06 · a562a06
1 parent 3381469
commit a562a06
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/Main.hs b/src/Main.hs
@@ -214,14 +214,14 @@ versionOption = infoOption
 
 overrideConfig :: EConfig -> Options -> IO EConfig
 overrideConfig config Options{..} = do
-  rpcUrl <- pure cliRpcUrl <|> Onchain.rpcUrlEnv
-  rpcBlock <- pure cliRpcBlock <|> Onchain.rpcBlockEnv
+  envRpcUrl <- Onchain.rpcUrlEnv
+  envRpcBlock <- Onchain.rpcBlockEnv
   pure $
     config { solConf = overrideSolConf config.solConf
            , campaignConf = overrideCampaignConf config.campaignConf
            , uiConf = overrideUiConf config.uiConf
-           , rpcUrl = rpcUrl <|> config.rpcUrl
-           , rpcBlock = rpcBlock <|> config.rpcBlock
+           , rpcUrl = cliRpcUrl <|> envRpcUrl <|> config.rpcUrl
+           , rpcBlock = cliRpcBlock <|> envRpcBlock <|> config.rpcBlock
            }
            & overrideFormat
   where