From 9749900977ebdc0706e16467ebf375434ee6da1a Mon Sep 17 00:00:00 2001
From: sourabhxyz <swasti@sourabh.xyz>
Date: Mon, 22 Apr 2024 18:12:51 +0530
Subject: [PATCH] style: handle hlint suggestions

---
 geniusyield-dex-api/src/GeniusYield/Api/Dex/PartialOrder.hs   | 4 ++--
 .../src/GeniusYield/Api/Dex/PartialOrderConfig.hs             | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/geniusyield-dex-api/src/GeniusYield/Api/Dex/PartialOrder.hs b/geniusyield-dex-api/src/GeniusYield/Api/Dex/PartialOrder.hs
index edc8ebe..15d45a8 100644
--- a/geniusyield-dex-api/src/GeniusYield/Api/Dex/PartialOrder.hs
+++ b/geniusyield-dex-api/src/GeniusYield/Api/Dex/PartialOrder.hs
@@ -291,7 +291,7 @@ partialOrderInfoToIn
   → PartialOrderAction
   → GYTxIn 'PlutusV2
 partialOrderInfoToIn a pocVersion pors oi@PartialOrderInfo {..} oa =
-  let SomePORef (PORef {..}) = selectPor pors pocVersion
+  let SomePORef PORef {..} = selectPor pors pocVersion
    in GYTxIn
         { gyTxInTxOutRef = poiRef,
           gyTxInWitness =
@@ -876,7 +876,7 @@ cancelMultiplePartialOrders pors orderRefs = do
   cancelMultiplePartialOrders' pors ois
 
 getVersionsInOrders ∷ [PartialOrderInfo] → Set POCVersion
-getVersionsInOrders = foldl' (\acc (PartialOrderInfo {..}) → Set.insert poiVersion acc) Set.empty
+getVersionsInOrders = foldl' (\acc PartialOrderInfo {..} → Set.insert poiVersion acc) Set.empty
 
 addCfgRefInputs ∷ Set POCVersion → RefPocds → GYTxSkeleton 'PlutusV2
 addCfgRefInputs versionsSet cfgRefs =
diff --git a/geniusyield-dex-api/src/GeniusYield/Api/Dex/PartialOrderConfig.hs b/geniusyield-dex-api/src/GeniusYield/Api/Dex/PartialOrderConfig.hs
index ac69a63..00bfde2 100644
--- a/geniusyield-dex-api/src/GeniusYield/Api/Dex/PartialOrderConfig.hs
+++ b/geniusyield-dex-api/src/GeniusYield/Api/Dex/PartialOrderConfig.hs
@@ -123,7 +123,7 @@ selectPor' PORefs {..} = case (singPOCVersion @v) of
 
 fetchPartialOrderConfig ∷ GYDexApiQueryMonad m a ⇒ POCVersion → PORefs → m SomeRefPocd
 fetchPartialOrderConfig pocVersion pors =
-  let SomePORef (PORef {..}) = selectPor pors pocVersion
+  let SomePORef PORef {..} = selectPor pors pocVersion
    in unsafeFetchPartialOrderConfig pocVersion porRefNft
 
 -- | Unsafe as it takes NFT's asset class where this NFT might not belong to the given version.
@@ -148,7 +148,7 @@ unsafeFetchPartialOrderConfig' nftToken = do
 fetchPartialOrderConfig' ∷ ∀ v m a. (GYDexApiQueryMonad m a, SingPOCVersionI v) ⇒ PORefs → m (RefPocd v)
 fetchPartialOrderConfig' pors = do
   let pocVersion = fromSingPOCVersion $ singPOCVersion @v
-      SomePORef (PORef {..}) = selectPor pors pocVersion
+      SomePORef PORef {..} = selectPor pors pocVersion
   unsafeFetchPartialOrderConfig' @v porRefNft
 
 fetchPartialOrderConfigs ∷ GYDexApiQueryMonad m a ⇒ PORefs → m RefPocds