Fix logLevel issue and add fd to nix develop (require for seabug build)

flake.nix

@@ -31,6 +31,9 @@
         pkgs.purescriptProject {
           inherit pkgs src;
           projectName = "seabug-contracts";
+          shell = {
+            packages = [ pkgs.fd ];
+          };
         };
     in
     {

spago.dhall

@@ -11,6 +11,7 @@ You can edit this file as you like.
   , "argonaut"
   , "argonaut-codecs"
   , "arrays"
+  , "monad-logger"
   , "bifunctors"
   , "bigints"
   , "cardano-transaction-lib"

src/Seabug/CallContract.purs

@@ -11,7 +11,6 @@ import Contract.Address (Slot(Slot))
 import Contract.Monad
   ( ConfigParams(ConfigParams)
   , ContractConfig
-  , LogLevel
   , mkContractConfig
   , runContract
   , runContract_
@@ -45,6 +44,7 @@ import Data.UInt as UInt
 import Effect (Effect)
 import Effect.Aff (error)
 import Effect.Class (liftEffect)
+import Data.Log.Level (LogLevel(..))
 import Effect.Exception (Error)
 import Metadata.Seabug (SeabugMetadata(SeabugMetadata))
 import Metadata.Seabug.Share (unShare)
@@ -102,7 +102,7 @@ type ContractConfiguration =
   , datumCacheSecureConn :: Boolean
   , networkId :: Int
   , projectId :: String
-  , logLevel :: LogLevel
+  , logLevel :: String -- Trace | Debug | Info | Warn | Error
   }
 
 type BuyNftArgs =
@@ -159,6 +159,8 @@ buildContractConfig cfg = do
     $ UInt.fromInt' cfg.datumCachePort
   networkId <- liftM (error "Invalid network id")
     $ intToNetworkId cfg.networkId
+  logLevel <- liftM (error "Invalid log level")
+    $ stringToLogLevel cfg.logLevel
 
   wallet <- Just <$> mkNamiWalletAff
   mkContractConfig $ ConfigParams
@@ -178,11 +180,19 @@ buildContractConfig cfg = do
         , secure: cfg.serverSecureConn
         }
     , networkId: networkId
-    , logLevel: cfg.logLevel
+    , logLevel: logLevel
     , extraConfig: { projectId: cfg.projectId }
     , wallet
     }
 
+stringToLogLevel :: String -> Maybe LogLevel
+stringToLogLevel "Trace" = Just Trace
+stringToLogLevel "Debug" = Just Debug
+stringToLogLevel "Info" = Just Info
+stringToLogLevel "Warn" = Just Warn
+stringToLogLevel "Error" = Just Error
+stringToLogLevel _ = Nothing
+
 buildNftList :: NetworkId -> ListNftResult -> ListNftResultOut
 buildNftList
   network

src/Seabug/Seabug.purs

@@ -3,17 +3,17 @@ module Seabug
   , getWalletBalance
   ) where
 
-import Prelude
+import Prelude (bind, ($))
 
 import Control.Promise (Promise, fromAff)
 import Data.Maybe (Maybe)
 import Effect (Effect)
 import QueryM (callNami)
-import Seabug.CallContract
+import Seabug.CallContract (callMarketPlaceBuy, callMarketPlaceBuyTest, callMarketPlaceListNft)
 import Serialization.Types (Value)
 import Wallet (Wallet(..), mkNamiWalletAff)
 
 getWalletBalance :: Effect (Promise (Maybe Value))
 getWalletBalance = fromAff $ do
   (Nami nami) <- mkNamiWalletAff
-  callNami nami _.getBalance
+  callNami nami _.getBalance