From de53bdb8cfd9a712df5c0fb8e50476ef2e847a12 Mon Sep 17 00:00:00 2001 From: Dzmitry Shuysky Date: Thu, 18 Apr 2024 15:47:40 +0200 Subject: [PATCH] chore: fix formatting --- app/delegate-server/Config.purs | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) diff --git a/app/delegate-server/Config.purs b/app/delegate-server/Config.purs index 0a610dc..893a1cf 100644 --- a/app/delegate-server/Config.purs +++ b/app/delegate-server/Config.purs @@ -3,13 +3,17 @@ module DelegateServer.Config , AppConfig'(AppConfig) , Network(Testnet, Mainnet) , Options - , execAppConfigParser + , execAppConfigParser , optionsParser ) where import Prelude -import Contract.Config (QueryBackendParams(CtlBackendParams, BlockfrostBackendParams), ServerConfig, defaultConfirmTxDelay) +import Contract.Config + ( QueryBackendParams(CtlBackendParams, BlockfrostBackendParams) + , ServerConfig + , defaultConfirmTxDelay + ) import Contract.Transaction (TransactionInput) import Control.Alt ((<|>)) import Data.Array (fromFoldable) as Array @@ -31,7 +35,11 @@ import Data.Variant (inj, match) as Variant import DelegateServer.Helpers (printOref, readOref) import DelegateServer.Lib.Codec (fixTaggedSumCodec) import DelegateServer.Types.HydraHeadPeer (HydraHeadPeer, hydraHeadPeerCodec) -import DelegateServer.Types.QueryBackendParamsSimple (QueryBackendParamsSimple, queryBackendParamsSimpleCodec, toQueryBackendParams) +import DelegateServer.Types.QueryBackendParamsSimple + ( QueryBackendParamsSimple + , queryBackendParamsSimpleCodec + , toQueryBackendParams + ) import Effect (Effect) import Effect.Exception (throw) import HydraAuctionOffchain.Codec (logLevelCodec, portCodec) @@ -96,7 +104,7 @@ appConfigCodec = , logLevel: logLevelCodec } -execAppConfigParser :: Optparse.ParserInfo Options -> Effect AppConfig +execAppConfigParser :: Optparse.ParserInfo Options -> Effect AppConfig execAppConfigParser parserInfo = do opts <- Optparse.execParser parserInfo case opts of