run fmt

input-output-hk · Jun 8, 2021 · 0112665 · 0112665
1 parent 2de9931
commit 0112665
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 5 deletions.
diff --git a/MetaLamp/lending-pool/src/Plutus/Contracts/AToken.hs b/MetaLamp/lending-pool/src/Plutus/Contracts/AToken.hs
@@ -23,6 +23,7 @@ import           Data.ByteString                  (ByteString)
 import qualified Data.Map                         as Map
 import           Data.Text                        (Text)
 import           Data.Void                        (Void)
+import           Ext.Plutus.Ledger.Contexts       (scriptInputsAt)
 import           Ledger                           hiding (singleton)
 import           Ledger.Constraints               as Constraints
 import           Ledger.Constraints.OnChain       as Constraints
@@ -49,7 +50,6 @@ import           PlutusTx.Prelude                 hiding (Semigroup (..))
 import qualified PlutusTx.Semigroup               as Semigroup
 import           Prelude                          (Semigroup (..))
 import qualified Prelude
-import Ext.Plutus.Ledger.Contexts (scriptInputsAt)
 
 {-# INLINABLE validator #-}
 validator :: ValidatorHash -> AssetClass -> TokenName -> ScriptContext -> Bool

diff --git a/MetaLamp/lending-pool/src/Plutus/Contracts/Core.hs b/MetaLamp/lending-pool/src/Plutus/Contracts/Core.hs
@@ -24,8 +24,8 @@ import qualified Data.Map                         as Map
 import           Data.Text                        (Text, pack)
 import           Data.Void                        (Void)
 import           Ext.Plutus.Ledger.Contexts       (findDatumHashByValue,
-                                                   findValueByDatumHash,valueSpentFrom,
-                                                   parseDatum)
+                                                   findValueByDatumHash,
+                                                   parseDatum, valueSpentFrom)
 import           Ledger                           hiding (singleton)
 import           Ledger.Constraints               as Constraints
 import           Ledger.Constraints.OnChain       as Constraints

diff --git a/MetaLamp/lending-pool/src/Plutus/Contracts/State.hs b/MetaLamp/lending-pool/src/Plutus/Contracts/State.hs
@@ -36,7 +36,7 @@ import qualified Plutus.Contracts.Core            as Core
 import           Plutus.Contracts.Currency        as Currency
 import qualified Plutus.Contracts.FungibleToken   as FungibleToken
 import qualified Plutus.Contracts.TxUtils         as TxUtils
-import           Plutus.OutputValue               (OutputValue (..),_ovValue)
+import           Plutus.OutputValue               (OutputValue (..), _ovValue)
 import qualified Plutus.State.Select              as Select
 import           Plutus.State.Update              (PutStateHandle (..),
                                                    StateHandle (..))

diff --git a/MetaLamp/lending-pool/src/Plutus/State/Update.hs b/MetaLamp/lending-pool/src/Plutus/State/Update.hs
@@ -30,6 +30,7 @@ import qualified Ledger.Scripts                   as Scripts
 import           Ledger.Typed.Scripts             (ScriptType (..))
 import qualified Ledger.Typed.Scripts             as Scripts
 
+import           Ext.Plutus.Ledger.Contexts       (scriptInputsAt)
 import           Playground.Contract
 import           Plutus.Contract                  hiding (when)
 import qualified Plutus.Contracts.TxUtils         as TxUtils
@@ -41,7 +42,6 @@ import           PlutusTx.Prelude                 hiding (Semigroup (..),
                                                    unless)
 import           Prelude                          (Semigroup (..))
 import qualified Prelude
-import Ext.Plutus.Ledger.Contexts (scriptInputsAt)
 
 type OwnerToken = AssetClass