From 4eda6406c24ffd4e41f508f2ec0d7223527bdf9e Mon Sep 17 00:00:00 2001 From: Alexey Kuleshevich Date: Mon, 8 Nov 2021 21:43:30 +0300 Subject: [PATCH] ormolize --- eras/shelley/impl/src/Cardano/Ledger/Shelley/EpochBoundary.hs | 2 +- eras/shelley/impl/src/Cardano/Ledger/Shelley/Rules/NewEpoch.hs | 2 +- .../Cardano/Ledger/Shelley/Serialisation/EraIndepGenerators.hs | 2 +- .../test/Test/Cardano/Ledger/Shelley/Examples/TwoPools.hs | 3 +-- libs/ledger-state/src/Cardano/Ledger/State/Orphans.hs | 1 + 5 files changed, 5 insertions(+), 5 deletions(-) diff --git a/eras/shelley/impl/src/Cardano/Ledger/Shelley/EpochBoundary.hs b/eras/shelley/impl/src/Cardano/Ledger/Shelley/EpochBoundary.hs index 06c10535456..cf002de8187 100644 --- a/eras/shelley/impl/src/Cardano/Ledger/Shelley/EpochBoundary.hs +++ b/eras/shelley/impl/src/Cardano/Ledger/Shelley/EpochBoundary.hs @@ -43,12 +43,12 @@ import Cardano.Ledger.Coin coinToRational, rationalToCoinViaFloor, ) +import Cardano.Ledger.Compactible import qualified Cardano.Ledger.Core as Core import Cardano.Ledger.Credential (Credential, Ptr, StakeReference (..)) import qualified Cardano.Ledger.Crypto as CC (Crypto) import Cardano.Ledger.Era import Cardano.Ledger.Keys (KeyHash, KeyRole (..)) -import Cardano.Ledger.Compactible import Cardano.Ledger.Serialization (decodeRecordNamed) import Cardano.Ledger.Shelley.TxBody (PoolParams) import Cardano.Ledger.Shelley.UTxO (UTxO (..)) diff --git a/eras/shelley/impl/src/Cardano/Ledger/Shelley/Rules/NewEpoch.hs b/eras/shelley/impl/src/Cardano/Ledger/Shelley/Rules/NewEpoch.hs index 20ee989c0f6..126bcb9462b 100644 --- a/eras/shelley/impl/src/Cardano/Ledger/Shelley/Rules/NewEpoch.hs +++ b/eras/shelley/impl/src/Cardano/Ledger/Shelley/Rules/NewEpoch.hs @@ -22,6 +22,7 @@ where import Cardano.Ledger.BaseTypes import Cardano.Ledger.Coin +import Cardano.Ledger.Compactible (Compactible (fromCompact)) import qualified Cardano.Ledger.Core as Core import Cardano.Ledger.Credential (Credential) import Cardano.Ledger.Era (Crypto, Era) @@ -46,7 +47,6 @@ import Data.Set (Set) import GHC.Generics (Generic) import GHC.Records import NoThunks.Class (NoThunks (..)) -import Cardano.Ledger.Compactible (Compactible(fromCompact)) data NEWEPOCH era diff --git a/eras/shelley/test-suite/src/Test/Cardano/Ledger/Shelley/Serialisation/EraIndepGenerators.hs b/eras/shelley/test-suite/src/Test/Cardano/Ledger/Shelley/Serialisation/EraIndepGenerators.hs index edd2858ce0d..49934f99553 100644 --- a/eras/shelley/test-suite/src/Test/Cardano/Ledger/Shelley/Serialisation/EraIndepGenerators.hs +++ b/eras/shelley/test-suite/src/Test/Cardano/Ledger/Shelley/Serialisation/EraIndepGenerators.hs @@ -58,7 +58,7 @@ import Cardano.Ledger.BaseTypes textToDns, textToUrl, ) -import Cardano.Ledger.Coin (DeltaCoin (..), CompactForm(..)) +import Cardano.Ledger.Coin (CompactForm (..), DeltaCoin (..)) import qualified Cardano.Ledger.Core as Core import Cardano.Ledger.Crypto (DSIGN) import qualified Cardano.Ledger.Crypto as CC (Crypto) diff --git a/eras/shelley/test-suite/test/Test/Cardano/Ledger/Shelley/Examples/TwoPools.hs b/eras/shelley/test-suite/test/Test/Cardano/Ledger/Shelley/Examples/TwoPools.hs index 52cb8993d07..55055616f7d 100644 --- a/eras/shelley/test-suite/test/Test/Cardano/Ledger/Shelley/Examples/TwoPools.hs +++ b/eras/shelley/test-suite/test/Test/Cardano/Ledger/Shelley/Examples/TwoPools.hs @@ -113,7 +113,6 @@ import Test.Cardano.Ledger.Shelley.ConcreteCryptoTypes (C, C_Crypto, ExMock) import Test.Cardano.Ledger.Shelley.Examples (CHAINExample (..), testCHAINExample) import qualified Test.Cardano.Ledger.Shelley.Examples.Cast as Cast import qualified Test.Cardano.Ledger.Shelley.Examples.Combinators as C -import Test.Cardano.Ledger.Shelley.Examples.PoolLifetime (mkStake) import Test.Cardano.Ledger.Shelley.Examples.Federation ( coreNodeKeysBySchedule, ) @@ -123,7 +122,7 @@ import Test.Cardano.Ledger.Shelley.Examples.Init nonce0, ppEx, ) -import Test.Cardano.Ledger.Shelley.Examples.PoolLifetime (makeCompletedPulser) +import Test.Cardano.Ledger.Shelley.Examples.PoolLifetime (makeCompletedPulser, mkStake) import Test.Cardano.Ledger.Shelley.Generator.Core ( AllIssuerKeys (..), NatNonce (..), diff --git a/libs/ledger-state/src/Cardano/Ledger/State/Orphans.hs b/libs/ledger-state/src/Cardano/Ledger/State/Orphans.hs index c1d7db6fa40..8891096af33 100644 --- a/libs/ledger-state/src/Cardano/Ledger/State/Orphans.hs +++ b/libs/ledger-state/src/Cardano/Ledger/State/Orphans.hs @@ -62,6 +62,7 @@ instance PersistFieldSql (TxId C) where sqlType _ = SqlBlob deriving instance PersistField (CompactForm Coin) + deriving instance PersistFieldSql (CompactForm Coin) instance PersistField Coin where