no more record wildcards

IntersectMBO · Jun 8, 2021 · 2925dc8 · 2925dc8
1 parent aec4d1d
commit 2925dc8
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/plutus-pab/src/Plutus/PAB/App.hs b/plutus-pab/src/Plutus/PAB/App.hs
@@ -229,7 +229,7 @@ migrateDB conn = Sqlite.runBeamSqliteDebug putStrLn conn $
 beamDbConnect :: Trace IO (PABLogMsg ContractExe) -> DbConfig -> IO Sqlite.Connection
 beamDbConnect trace DbConfig {dbConfigFile} =
   flip runTraceLoggerT (convertLog SLoggerBridge trace) $ do
-    MonadLogger.logDebugN "Connecting to DB"
+    MonadLogger.logDebugN $ "Connecting to DB: " <> dbConfigFile
     liftIO $ open (unpack dbConfigFile)
 
 

diff --git a/plutus-pab/src/Plutus/PAB/Db/Beam/ContractDefinitionStore.hs b/plutus-pab/src/Plutus/PAB/Db/Beam/ContractDefinitionStore.hs
@@ -2,9 +2,9 @@
 {-# LANGUAGE FlexibleContexts  #-}
 {-# LANGUAGE GADTs             #-}
 {-# LANGUAGE LambdaCase        #-}
+{-# LANGUAGE NamedFieldPuns    #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RankNTypes        #-}
-{-# LANGUAGE RecordWildCards   #-}
 {-# LANGUAGE TypeApplications  #-}
 {-# LANGUAGE TypeFamilies      #-}
 {-# LANGUAGE TypeOperators     #-}
@@ -26,10 +26,10 @@ import           Plutus.PAB.Effects.Contract.ContractExe (ContractExe (..))
 import           Plutus.PAB.Effects.DbStore              hiding (contractPath)
 
 mkRow :: ContractExe -> Contract
-mkRow (ContractExe {..}) = Contract (Text.pack contractPath)
+mkRow (ContractExe {contractPath}) = Contract (Text.pack contractPath)
 
 fromRow :: Contract -> ContractExe
-fromRow (Contract {..})  = ContractExe (Text.unpack _contractPath)
+fromRow (Contract {_contractPath})  = ContractExe (Text.unpack _contractPath)
 
 handleContractDefinitionStore ::
   forall effs.

diff --git a/plutus-pab/src/Plutus/PAB/Db/Beam/ContractStore.hs b/plutus-pab/src/Plutus/PAB/Db/Beam/ContractStore.hs
@@ -2,9 +2,9 @@
 {-# LANGUAGE FlexibleContexts  #-}
 {-# LANGUAGE GADTs             #-}
 {-# LANGUAGE LambdaCase        #-}
+{-# LANGUAGE NamedFieldPuns    #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RankNTypes        #-}
-{-# LANGUAGE RecordWildCards   #-}
 {-# LANGUAGE TypeApplications  #-}
 {-# LANGUAGE TypeFamilies      #-}
 {-# LANGUAGE TypeOperators     #-}
@@ -45,7 +45,7 @@ mkRow
   :: ContractActivationArgs (ContractDef ContractExe)
   -> ContractInstanceId
   -> ContractInstance
-mkRow (ContractActivationArgs{..}) instanceId
+mkRow (ContractActivationArgs{caID, caWallet}) instanceId
   = ContractInstance
       (uuidStr instanceId)
       (Text.pack $ contractPath caID)