remove warnings from offchain part

Author: Bromel777

cardano-dex-contracts-offchain/ErgoDex/Contracts/Pool.hs

@@ -38,7 +38,7 @@ import qualified Prelude as Haskell
 
 import ErgoDex.Contracts.Types
 import qualified GHC.Generics as Haskell
-import Plutus.V1.Ledger.Value (AssetClass, assetClassValueOf, flattenValue)
+import Plutus.V1.Ledger.Value (AssetClass, assetClassValueOf, flattenValue, CurrencySymbol)
 import Plutus.V1.Ledger.Api   (PubKeyHash)
 import qualified PlutusTx
 import PlutusTx.Builtins

cardano-dex-contracts-offchain/ErgoDex/Contracts/Typed.hs

@@ -7,10 +7,10 @@ module ErgoDex.Contracts.Typed where
 
 import qualified Prelude as Haskell
 
-import Data.Aeson (FromJSON, ToJSON)
 import ErgoDex.Contracts.Class
 import qualified ErgoDex.Contracts.Pool as P
 import ErgoDex.Contracts.Types
+import Plutus.V1.Ledger.Value (CurrencySymbol(..))
 import GHC.Generics (Generic)
 import PlutusTx.Prelude
 
@@ -20,6 +20,8 @@ data PoolConfig = PoolConfig
     , poolY :: Coin Y
     , poolLq :: Coin Liquidity
     , poolFeeNum :: Integer
+    , stakeAdminPolicy :: [CurrencySymbol]
+    , lqBound          :: Integer
     }
     deriving (Haskell.Show, Haskell.Eq, Generic)
 
@@ -31,6 +33,8 @@ instance UnliftErased PoolConfig P.PoolConfig where
             , poolY = unCoin poolY
             , poolLq = unCoin poolLq
             , poolFeeNum = poolFeeNum
+            , stakeAdminPolicy = stakeAdminPolicy
+            , lqBound = lqBound
             }
 
     unlift P.PoolConfig{..} =
@@ -40,4 +44,6 @@ instance UnliftErased PoolConfig P.PoolConfig where
             , poolY = Coin poolY
             , poolLq = Coin poolLq
             , poolFeeNum = poolFeeNum
+            , stakeAdminPolicy = stakeAdminPolicy
+            , lqBound = lqBound
             }

cardano-dex-contracts-offchain/ErgoDex/Contracts/Types.hs

@@ -24,14 +24,7 @@ import Data.Aeson (FromJSON, ToJSON)
 import GHC.Generics (Generic)
 
 import ErgoDex.Plutus (adaAssetClass)
-import qualified Data.Text as Text
-import qualified Data.Aeson as JSON
-import qualified Data.Aeson.Types as JSON
-import Plutus.V1.Ledger.Value (AssetClass (..), Value (..), assetClassValue, assetClassValueOf, TokenName(..), CurrencySymbol(..))
-import qualified Data.ByteString.Base16  as Base16
-import qualified Data.ByteString as BSS
-import qualified Data.Text.Encoding  as TE
-import Control.Monad ((>=>))
+import Plutus.V1.Ledger.Value (AssetClass (..), Value (..), assetClassValue, assetClassValueOf)
 import qualified PlutusTx
 import PlutusTx.Prelude
 import Text.Printf (PrintfArg)