Skip to content

Commit 902e2aa

Browse files
committed
Revert "Maximise cardano-api GHCJS compatibility"
This reverts commit 5e0358e.
1 parent 5e0358e commit 902e2aa

File tree

2 files changed

+4
-3
lines changed

2 files changed

+4
-3
lines changed

cardano-api/cardano-api.cabal

+1
Original file line numberDiff line numberDiff line change
@@ -127,6 +127,7 @@ library
127127
, formatting
128128
, iproute
129129
, memory
130+
, network
130131
, nothunks
131132
, optparse-applicative-fork
132133
, ouroboros-consensus

cardano-api/src/Cardano/Api/Certificate.hs

+3-3
Original file line numberDiff line numberDiff line change
@@ -42,13 +42,13 @@ import Data.ByteString (ByteString)
4242
import qualified Data.Foldable as Foldable
4343
import qualified Data.Map.Strict as Map
4444
import Data.Maybe
45-
import Data.Word (Word16)
4645
import qualified Data.Sequence.Strict as Seq
4746
import qualified Data.Set as Set
4847
import Data.Text (Text)
4948
import qualified Data.Text.Encoding as Text
5049

5150
import Data.IP (IPv4, IPv6)
51+
import Network.Socket (PortNumber)
5252

5353
import qualified Cardano.Crypto.Hash.Class as Crypto
5454
import Cardano.Slotting.Slot (EpochNo (..))
@@ -160,11 +160,11 @@ data StakePoolRelay =
160160

161161
-- | One or both of IPv4 & IPv6
162162
StakePoolRelayIp
163-
(Maybe IPv4) (Maybe IPv6) (Maybe Word16)
163+
(Maybe IPv4) (Maybe IPv6) (Maybe PortNumber)
164164

165165
-- | An DNS name pointing to a @A@ or @AAAA@ record.
166166
| StakePoolRelayDnsARecord
167-
ByteString (Maybe Word16)
167+
ByteString (Maybe PortNumber)
168168

169169
-- | A DNS name pointing to a @SRV@ record.
170170
| StakePoolRelayDnsSrvRecord

0 commit comments

Comments
 (0)