Skip to content

Commit 1bb9b9b

Browse files
carbolymercarbolymer
committed
Reformat codebase with only fourmolu
1 parent defd114 commit 1bb9b9b

File tree

147 files changed

+3315
-2961
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

147 files changed

+3315
-2961
lines changed

‎cardano-api-gen/src/Test/Gen/Cardano/Api/Empty.hs‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,5 @@
11
module Test.Gen.Cardano.Api.Empty where
22

3-
import Test.Gen.Cardano.Api ()
3+
import Test.Gen.Cardano.Api ()
44

55
-- | This module is empty, but it is needed to prevent unused-packages warning

‎cardano-api/gen/Test/Gen/Cardano/Api.hs‎

Lines changed: 18 additions & 18 deletions
Original file line numberDiff line numberDiff line change
@@ -9,24 +9,24 @@ module Test.Gen.Cardano.Api
99
)
1010
where
1111

12-
import qualified Cardano.Ledger.Alonzo.Core as Ledger
13-
import qualified Cardano.Ledger.Alonzo.Genesis as Alonzo
14-
import qualified Cardano.Ledger.Alonzo.Scripts as Alonzo
15-
import qualified Cardano.Ledger.BaseTypes as Ledger
16-
import qualified Cardano.Ledger.Coin as Ledger
17-
import qualified Cardano.Ledger.Plutus.CostModels as Plutus
18-
import qualified Cardano.Ledger.Plutus.Language as Alonzo
19-
import Cardano.Ledger.Shelley.TxAuxData (Metadatum (..), ShelleyTxAuxData (..))
20-
21-
import qualified Data.Map.Strict as Map
22-
import Data.Word (Word64)
23-
import GHC.Exts (IsList (..))
24-
25-
import Test.Gen.Cardano.Api.Typed (genCostModel, genRational)
26-
27-
import Hedgehog (Gen, Range)
28-
import qualified Hedgehog.Gen as Gen
29-
import qualified Hedgehog.Internal.Range as Range
12+
import Cardano.Ledger.Alonzo.Core qualified as Ledger
13+
import Cardano.Ledger.Alonzo.Genesis qualified as Alonzo
14+
import Cardano.Ledger.Alonzo.Scripts qualified as Alonzo
15+
import Cardano.Ledger.BaseTypes qualified as Ledger
16+
import Cardano.Ledger.Coin qualified as Ledger
17+
import Cardano.Ledger.Plutus.CostModels qualified as Plutus
18+
import Cardano.Ledger.Plutus.Language qualified as Alonzo
19+
import Cardano.Ledger.Shelley.TxAuxData (Metadatum (..), ShelleyTxAuxData (..))
20+
21+
import Data.Map.Strict qualified as Map
22+
import Data.Word (Word64)
23+
import GHC.Exts (IsList (..))
24+
25+
import Test.Gen.Cardano.Api.Typed (genCostModel, genRational)
26+
27+
import Hedgehog (Gen, Range)
28+
import Hedgehog.Gen qualified as Gen
29+
import Hedgehog.Internal.Range qualified as Range
3030

3131
genMetadata :: Ledger.Era era => Gen (ShelleyTxAuxData era)
3232
genMetadata = do

‎cardano-api/gen/Test/Gen/Cardano/Api/Byron.hs‎

Lines changed: 8 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -7,17 +7,17 @@ module Test.Gen.Cardano.Api.Byron
77
)
88
where
99

10-
import Cardano.Api hiding (txIns)
11-
import Cardano.Api.Byron
10+
import Cardano.Api hiding (txIns)
11+
import Cardano.Api.Byron
1212

13-
import Data.Proxy
13+
import Data.Proxy
1414

15-
import Test.Gen.Cardano.Api.Typed
15+
import Test.Gen.Cardano.Api.Typed
1616

17-
import Hedgehog
18-
import Test.Hedgehog.Roundtrip.CBOR
19-
import Test.Tasty
20-
import Test.Tasty.Hedgehog
17+
import Hedgehog
18+
import Test.Hedgehog.Roundtrip.CBOR
19+
import Test.Tasty
20+
import Test.Tasty.Hedgehog
2121

2222
prop_byron_roundtrip_txbody_CBOR :: Property
2323
prop_byron_roundtrip_txbody_CBOR = property $ do

‎cardano-api/gen/Test/Gen/Cardano/Api/Era.hs‎

Lines changed: 8 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -10,18 +10,18 @@ module Test.Gen.Cardano.Api.Era
1010
)
1111
where
1212

13-
import Cardano.Api hiding (txIns)
14-
import Cardano.Api.Shelley
13+
import Cardano.Api hiding (txIns)
14+
import Cardano.Api.Shelley
1515

16-
import qualified Cardano.Ledger.BaseTypes as Ledger
17-
import qualified Cardano.Ledger.Core as Ledger
16+
import Cardano.Ledger.BaseTypes qualified as Ledger
17+
import Cardano.Ledger.Core qualified as Ledger
1818

19-
import qualified Data.Functor.Identity as Ledger
19+
import Data.Functor.Identity qualified as Ledger
2020

21-
import Test.Cardano.Ledger.Conway.Arbitrary ()
22-
import Test.Cardano.Ledger.Core.Arbitrary ()
21+
import Test.Cardano.Ledger.Conway.Arbitrary ()
22+
import Test.Cardano.Ledger.Core.Arbitrary ()
2323

24-
import Test.QuickCheck (Arbitrary (..))
24+
import Test.QuickCheck (Arbitrary (..))
2525

2626
shelleyBasedEraTestConstraints
2727
:: ()

‎cardano-api/gen/Test/Gen/Cardano/Api/Hardcoded.hs‎

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -10,11 +10,11 @@ module Test.Gen.Cardano.Api.Hardcoded
1010
)
1111
where
1212

13-
import qualified Cardano.Binary as CBOR
13+
import Cardano.Binary qualified as CBOR
1414

15-
import Data.ByteString (ByteString)
16-
import qualified Data.ByteString as BS
17-
import qualified Data.ByteString.Lazy as LBS
15+
import Data.ByteString (ByteString)
16+
import Data.ByteString qualified as BS
17+
import Data.ByteString.Lazy qualified as LBS
1818

1919
exampleDoubleEncodedBytes :: LBS.ByteString
2020
exampleDoubleEncodedBytes = LBS.fromStrict $ CBOR.toStrictByteString exampleDoubleEncodedBytesEncoding

‎cardano-api/gen/Test/Gen/Cardano/Api/Metadata.hs‎

Lines changed: 18 additions & 18 deletions
Original file line numberDiff line numberDiff line change
@@ -7,24 +7,24 @@ module Test.Gen.Cardano.Api.Metadata
77
)
88
where
99

10-
import Cardano.Api
11-
12-
import Data.Aeson (ToJSON (..))
13-
import qualified Data.Aeson as Aeson
14-
import qualified Data.Aeson.Key as Aeson
15-
import Data.ByteString (ByteString)
16-
import qualified Data.ByteString as BS
17-
import qualified Data.ByteString.Base16 as Base16
18-
import Data.Text (Text)
19-
import qualified Data.Text as Text
20-
import qualified Data.Text.Encoding as Text
21-
import Data.Word (Word64)
22-
import GHC.Exts (IsList (..))
23-
24-
import Hedgehog (Gen)
25-
import qualified Hedgehog.Gen as Gen
26-
import qualified Hedgehog.Internal.Gen as Gen
27-
import qualified Hedgehog.Range as Range
10+
import Cardano.Api
11+
12+
import Data.Aeson (ToJSON (..))
13+
import Data.Aeson qualified as Aeson
14+
import Data.Aeson.Key qualified as Aeson
15+
import Data.ByteString (ByteString)
16+
import Data.ByteString qualified as BS
17+
import Data.ByteString.Base16 qualified as Base16
18+
import Data.Text (Text)
19+
import Data.Text qualified as Text
20+
import Data.Text.Encoding qualified as Text
21+
import Data.Word (Word64)
22+
import GHC.Exts (IsList (..))
23+
24+
import Hedgehog (Gen)
25+
import Hedgehog.Gen qualified as Gen
26+
import Hedgehog.Internal.Gen qualified as Gen
27+
import Hedgehog.Range qualified as Range
2828

2929
-- ----------------------------------------------------------------------------
3030
-- Generators

‎cardano-api/gen/Test/Gen/Cardano/Api/ProtocolParameters.hs‎

Lines changed: 9 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -1,17 +1,17 @@
11
module Test.Gen.Cardano.Api.ProtocolParameters where
22

3-
import Cardano.Api
4-
import Cardano.Api.Internal.ProtocolParameters
5-
import Cardano.Api.Ledger
3+
import Cardano.Api
4+
import Cardano.Api.Internal.ProtocolParameters
5+
import Cardano.Api.Ledger
66

7-
import Test.Gen.Cardano.Api.Typed (genCostModels)
7+
import Test.Gen.Cardano.Api.Typed (genCostModels)
88

9-
import Test.Cardano.Ledger.Alonzo.Arbitrary ()
10-
import Test.Cardano.Ledger.Conway.Arbitrary ()
9+
import Test.Cardano.Ledger.Alonzo.Arbitrary ()
10+
import Test.Cardano.Ledger.Conway.Arbitrary ()
1111

12-
import Hedgehog (MonadGen)
13-
import qualified Hedgehog.Gen as Gen
14-
import qualified Hedgehog.Gen.QuickCheck as Q
12+
import Hedgehog (MonadGen)
13+
import Hedgehog.Gen qualified as Gen
14+
import Hedgehog.Gen.QuickCheck qualified as Q
1515

1616
genStrictMaybe :: MonadGen m => m a -> m (StrictMaybe a)
1717
genStrictMaybe gen =

‎cardano-api/gen/Test/Gen/Cardano/Crypto/Seed.hs‎

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -4,15 +4,15 @@ module Test.Gen.Cardano.Crypto.Seed
44
)
55
where
66

7-
import Cardano.Api (AsType, Key)
8-
import qualified Cardano.Api as API
7+
import Cardano.Api (AsType, Key)
8+
import Cardano.Api qualified as API
99

10-
import Cardano.Crypto.Seed (Seed)
11-
import qualified Cardano.Crypto.Seed as C
10+
import Cardano.Crypto.Seed (Seed)
11+
import Cardano.Crypto.Seed qualified as C
1212

13-
import Hedgehog (MonadGen, Range)
14-
import qualified Hedgehog.Gen as G
15-
import qualified Hedgehog.Range as R
13+
import Hedgehog (MonadGen, Range)
14+
import Hedgehog.Gen qualified as G
15+
import Hedgehog.Range qualified as R
1616

1717
genSeed :: MonadGen m => Range Int -> m Seed
1818
genSeed r = C.mkSeedFromBytes <$> G.bytes r

‎cardano-api/gen/Test/Hedgehog/Golden/ErrorMessage.hs‎

Lines changed: 29 additions & 29 deletions
Original file line numberDiff line numberDiff line change
@@ -3,32 +3,32 @@
33

44
module Test.Hedgehog.Golden.ErrorMessage where
55

6-
import Cardano.Api (Error (..))
7-
import Cardano.Api.Internal.Pretty
8-
9-
import qualified Control.Concurrent.QSem as IO
10-
import Control.Exception (bracket_)
11-
import Control.Monad
12-
import Control.Monad.IO.Class
13-
import Data.Algorithm.Diff (PolyDiff (Both), getGroupedDiff)
14-
import Data.Algorithm.DiffOutput (ppDiff)
15-
import Data.Data
16-
import qualified Data.List as List
17-
import qualified Data.Text as Text
18-
import qualified Data.Text.IO as Text
19-
import GHC.Stack (HasCallStack, withFrozenCallStack)
20-
import qualified GHC.Stack as GHC
21-
import qualified System.Directory as IO
22-
import qualified System.Environment as IO
23-
import System.FilePath (takeDirectory, (</>))
24-
import qualified System.IO as IO
25-
import qualified System.IO.Unsafe as IO
26-
27-
import Hedgehog
28-
import qualified Hedgehog.Extras.Test as H
29-
import qualified Hedgehog.Internal.Property as H
30-
import Test.Tasty
31-
import Test.Tasty.Hedgehog
6+
import Cardano.Api (Error (..))
7+
import Cardano.Api.Internal.Pretty
8+
9+
import Control.Concurrent.QSem qualified as IO
10+
import Control.Exception (bracket_)
11+
import Control.Monad
12+
import Control.Monad.IO.Class
13+
import Data.Algorithm.Diff (PolyDiff (Both), getGroupedDiff)
14+
import Data.Algorithm.DiffOutput (ppDiff)
15+
import Data.Data
16+
import Data.List qualified as List
17+
import Data.Text qualified as Text
18+
import Data.Text.IO qualified as Text
19+
import GHC.Stack (HasCallStack, withFrozenCallStack)
20+
import GHC.Stack qualified as GHC
21+
import System.Directory qualified as IO
22+
import System.Environment qualified as IO
23+
import System.FilePath (takeDirectory, (</>))
24+
import System.IO qualified as IO
25+
import System.IO.Unsafe qualified as IO
26+
27+
import Hedgehog
28+
import Hedgehog.Extras.Test qualified as H
29+
import Hedgehog.Internal.Property qualified as H
30+
import Test.Tasty
31+
import Test.Tasty.Hedgehog
3232

3333
-- | Generate test tree for the list of values. This 'TestTree' will serialize the values using 'Error'
3434
-- instance and compare them against golden files in the provided location.
@@ -136,9 +136,9 @@ diffVsGoldenFile actualContent goldenFile = GHC.withFrozenCallStack $ do
136136

137137
if
138138
| recreateGoldenFiles -> writeGoldenFile goldenFile actualContent
139-
| fileExists -> checkAgainstGoldenFile goldenFile actualLines
140-
| createGoldenFiles -> writeGoldenFile goldenFile actualContent
141-
| otherwise -> reportGoldenFileMissing goldenFile
139+
| fileExists -> checkAgainstGoldenFile goldenFile actualLines
140+
| createGoldenFiles -> writeGoldenFile goldenFile actualContent
141+
| otherwise -> reportGoldenFileMissing goldenFile
142142
where
143143
actualLines = List.lines actualContent
144144

‎cardano-api/gen/Test/Hedgehog/Roundtrip/Bech32.hs‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -3,10 +3,10 @@ module Test.Hedgehog.Roundtrip.Bech32
33
)
44
where
55

6-
import Cardano.Api
6+
import Cardano.Api
77

8-
import Hedgehog (Gen, Property)
9-
import qualified Hedgehog as H
8+
import Hedgehog (Gen, Property)
9+
import Hedgehog qualified as H
1010

1111
roundtrip_Bech32
1212
:: (SerialiseAsBech32 a, Eq a, Show a)

0 commit comments

Comments
 (0)