Skip to content

Commit 5e0358e

Browse files
committed
Maximise cardano-api GHCJS compatibility
- By not using the network library in cardano-api we improve GHCJS compatibility (see ghcjs/ghcjs#305).
1 parent 1b91216 commit 5e0358e

File tree

2 files changed

+3
-4
lines changed

2 files changed

+3
-4
lines changed

cardano-api/cardano-api.cabal

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -127,7 +127,6 @@ library
127127
, formatting
128128
, iproute
129129
, memory
130-
, network
131130
, nothunks
132131
, optparse-applicative-fork
133132
, ouroboros-consensus

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

Lines changed: 3 additions & 3 deletions
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)
4546
import qualified Data.Sequence.Strict as Seq
4647
import qualified Data.Set as Set
4748
import Data.Text (Text)
4849
import qualified Data.Text.Encoding as Text
4950

5051
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 PortNumber)
163+
(Maybe IPv4) (Maybe IPv6) (Maybe Word16)
164164

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

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

0 commit comments

Comments
 (0)