Skip to content

Commit b0d52aa

Browse files
committed
Reorganize Orphans module to avoid cyclical dependencies
1 parent e29a1b6 commit b0d52aa

File tree

7 files changed

+731
-596
lines changed

7 files changed

+731
-596
lines changed

cardano-api/cardano-api.cabal

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -88,6 +88,8 @@ library
8888
Cardano.Api.Internal.LedgerState
8989
Cardano.Api.Internal.Modes
9090
Cardano.Api.Internal.Orphans
91+
Cardano.Api.Internal.Orphans.Misc
92+
Cardano.Api.Internal.Orphans.Serialisation
9193
Cardano.Api.Internal.Plutus
9294
Cardano.Api.Internal.Pretty
9395
Cardano.Api.Internal.ProtocolParameters
@@ -190,7 +192,7 @@ library
190192

191193
other-modules:
192194
Cardano.Api.Internal.Anchor
193-
Cardano.Api.Internal.CIP.CIP129
195+
Cardano.Api.Internal.CIP.Cip129
194196
Cardano.Api.Internal.Certificate
195197
Cardano.Api.Internal.Compatible.Tx
196198
Cardano.Api.Internal.Convenience.Construction

cardano-api/src/Cardano/Api.hs

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -710,9 +710,9 @@ module Cardano.Api
710710
, UsingBech32 (..)
711711

712712
-- ** Bech32 CIP-129
713-
, CIP129 (..)
713+
, Cip129 (..)
714714
, deserialiseFromBech32CIP129
715-
, serialiseToBech32CIP129
715+
, serialiseToBech32Cip129
716716

717717
-- ** Addresses
718718

@@ -1110,7 +1110,7 @@ where
11101110
import Cardano.Api.Internal.Address
11111111
import Cardano.Api.Internal.Anchor
11121112
import Cardano.Api.Internal.Block
1113-
import Cardano.Api.Internal.CIP.CIP129
1113+
import Cardano.Api.Internal.CIP.Cip129
11141114
import Cardano.Api.Internal.Certificate
11151115
import Cardano.Api.Internal.Convenience.Construction
11161116
import Cardano.Api.Internal.Convenience.Query

cardano-api/src/Cardano/Api/Internal/DeserialiseAnyOf.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -39,7 +39,7 @@ import Data.Bifunctor (first)
3939
import Data.ByteString (ByteString)
4040
import Data.ByteString.Char8 qualified as BSC
4141
import Data.Char (toLower)
42-
import Data.Data (Data)
42+
import Data.Data
4343
import Data.List.NonEmpty (NonEmpty)
4444
import Data.Text (Text)
4545
import Data.Text.Encoding qualified as Text

0 commit comments

Comments
 (0)