style: handle hlint suggestions

geniusyield · Apr 22, 2024 · 9749900 · 9749900
1 parent d226175
commit 9749900
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git 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
@@ -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