From cc5be95e433cecfd07ac89a66604d5eed513631a Mon Sep 17 00:00:00 2001
From: Michael Dunn <michaelsdunn1@gmail.com>
Date: Sat, 1 Aug 2020 17:52:23 -0500
Subject: [PATCH] Changed port back to PortNumber and fixed the import from
 Network.Socket.

---
 src/lib/CoinbasePro/Environment.hs   | 4 ++--
 src/lib/CoinbasePro/WebSocketFeed.hs | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/lib/CoinbasePro/Environment.hs b/src/lib/CoinbasePro/Environment.hs
index 55ef5c5..2a9e4f7 100644
--- a/src/lib/CoinbasePro/Environment.hs
+++ b/src/lib/CoinbasePro/Environment.hs
@@ -7,7 +7,7 @@ module CoinbasePro.Environment
     ) where
 
 
-import           Network.Socket (HostName)
+import           Network.Socket (HostName, PortNumber)
 
 
 data Environment = Production | Sandbox
@@ -28,7 +28,7 @@ sandboxAPIEndpoint = "api-public.sandbox.pro.coinbase.com"
 
 data WSConnection = WSConnection
     { host :: HostName
-    , port :: Int
+    , port :: PortNumber
     } deriving (Eq, Show)
 
 
diff --git a/src/lib/CoinbasePro/WebSocketFeed.hs b/src/lib/CoinbasePro/WebSocketFeed.hs
index 2e4d409..941d6fa 100644
--- a/src/lib/CoinbasePro/WebSocketFeed.hs
+++ b/src/lib/CoinbasePro/WebSocketFeed.hs
@@ -42,7 +42,7 @@ subscribe wsConn prids channels cpc = do
     return is
   where
     wsHost = host wsConn
-    wsPort = fromIntegral $ port wsConn
+    wsPort = port wsConn
 
     mkWsRequest = maybe (return $ encode wsRequest) (fmap encode . authWsRequest)