style: handle hlint suggestions

Author: sourabhxyz

geniusyield-server-lib/src/GeniusYield/Server/Api.hs

@@ -306,7 +306,7 @@ customShowNetworkId = show >>> removePrefix "GY" >>> removePrefix "Testnet" >>>
 handleTradingFeesApi ∷ Ctx → IO TradingFees
 handleTradingFeesApi ctx@Ctx {..} = do
   logInfo ctx "Calculating trading fees."
-  (_, pocd) ← runQuery ctx $ fetchPartialOrderConfig $ porRefNft $ dexPORefs $ ctxDexInfo
+  (_, pocd) ← runQuery ctx $ fetchPartialOrderConfig $ porRefNft $ dexPORefs ctxDexInfo
   pure
     TradingFees
       { tfFlatMakerFee = fromIntegral $ pociMakerFeeFlat pocd,

geniusyield-server-lib/src/GeniusYield/Server/Dex/PartialOrder.hs

@@ -132,7 +132,7 @@ handlePlaceOrder ctx@Ctx {..} pops@PlaceOrderParameters {..} = do
   logInfo ctx $ "Placing an order. Parameters: " +|| pops ||+ ""
   let porefs = dexPORefs ctxDexInfo
       popAddress' = addressFromBech32 popAddress
-  (cfgRef, pocd) ← runQuery ctx $ fetchPartialOrderConfig $ porRefNft $ porefs
+  (cfgRef, pocd) ← runQuery ctx $ fetchPartialOrderConfig $ porRefNft porefs
   let unitPrice =
         rationalFromGHC $
           toInteger popPriceAmount % toInteger popOfferAmount