Fix CI building process (dependencies and warnings)

Author: Aleksandr Penskoi

flake.lock

@@ -10,7 +10,9 @@
       type = "github";
       owner = "Plutonomicon";
       repo = "cardano-transaction-lib";
-      rev = "a8aabb842ecc1e287d4a60ea4f4c6cff6fbfeea7";
+      # should be same rev as in packages.dhall
+      # Oh update, do `spago2nix generate`
+      rev = "b7614b4e11a57b5b366b65509b86eb4b086bb1ce";
     };
     nixpkgs.follows = "cardano-transaction-lib/nixpkgs";
   };
@@ -33,8 +35,8 @@
           projectName = "seabug-contracts";
           shell = {
             packages = [
-              pkgs.fd
               pkgs.easy-ps.purs-tidy
+              pkgs.fd
             ];
           };
         };

flake.nix

@@ -327,6 +327,7 @@ let additions =
             , "variant"
             ]
         , repo = "https://github.com/Plutonomicon/cardano-transaction-lib.git"
+          -- should be same rev as in flake.nix
           -- https://github.com/Plutonomicon/cardano-transaction-lib/pull/696
           -- PR: Return error if no utxo is specified for a tx input & Fix transaction inputs locking
         , version = "b7614b4e11a57b5b366b65509b86eb4b086bb1ce"

packages.dhall

@@ -2,7 +2,7 @@
 Welcome to a Spago project!
 You can edit this file as you like.
 -}
-{ name = "my-project"
+{ name = "seabug-contract"
 , dependencies =
   [ "aeson"
   , "aeson-helpers"

spago-packages.nix

@@ -38,7 +38,6 @@ import Control.Promise (Promise)
 import Control.Promise as Promise
 import Data.BigInt (BigInt)
 import Data.BigInt as BigInt
-import Data.Maybe (fromJust)
 import Data.Tuple.Nested ((/\))
 import Data.UInt as UInt
 import Effect (Effect)

spago.dhall

@@ -35,9 +35,7 @@ import Contract.PlutusData
 import Constants.Babbage (utxoEntrySizeWithoutVal)
 import Contract.Scripts (applyArgs, typedValidatorEnterpriseAddress)
 import Contract.Transaction
-  ( BalancedSignedTransaction(BalancedSignedTransaction)
-  , TransactionOutput(TransactionOutput)
-  , balanceAndSignTx
+  ( TransactionOutput(TransactionOutput)
   , balanceAndSignTxE
   , submit
   )

src/Seabug/CallContract.purs

@@ -34,7 +34,6 @@ import Data.HTTP.Method (Method(GET))
 import Data.Newtype (unwrap)
 import Seabug.Metadata.Types (SeabugMetadata(SeabugMetadata))
 import Partial.Unsafe (unsafePartial)
-import Types.CborBytes (cborBytesToByteArray)
 
 import Debug (traceM)
 

src/Seabug/Contract/MarketPlaceBuy.purs

@@ -16,7 +16,6 @@ import Contract.Prim.ByteArray
 import Contract.Time (Slot(Slot))
 import Contract.Value (mkCurrencySymbol, mkTokenName)
 import Data.BigInt as BigInt
-import Data.UInt as UInt
 import Effect.Aff (launchAff_)
 import Seabug.Contract.MarketPlaceBuy (marketplaceBuy)
 import Seabug.Types

src/Seabug/Metadata.purs

@@ -11,9 +11,6 @@ module Seabug.Types
 
 import Contract.Prelude
 
-import Affjax as Affjax
-import Affjax.RequestBody as Affjax.RequestBody
-import Affjax.ResponseFormat as Affjax.ResponseFormat
 import Cardano.Types.Value as Cardano.Types.Value
 import Contract.Value
   ( CurrencySymbol
@@ -22,7 +19,7 @@ import Contract.Value
   , getTokenName
   , mkCurrencySymbol
   )
-import Contract.Monad (Contract(Contract), mkHttpUrl)
+import Contract.Monad (Contract)
 import Contract.Address (PaymentPubKeyHash, PubKeyHash)
 import Contract.Aeson as Aeson
 import Contract.PlutusData
@@ -35,14 +32,11 @@ import Contract.PlutusData
 import Contract.Prim.ByteArray
   ( ByteArray
   , byteArrayFromIntArrayUnsafe
-  , byteArrayToHex
   )
 import Contract.Numeric.Natural (Natural, toBigInt)
 import Contract.Scripts (ValidatorHash)
 import Contract.Time (Slot)
-import Control.Monad.Reader.Trans (asks)
 import Data.Argonaut as Json
-import Data.Argonaut.Encode.Encoders (encodeString)
 import Data.BigInt (BigInt, fromInt, toInt)
 import Hashing (blake2b256Hash)
 import Partial.Unsafe (unsafePartial)