Changed port back to PortNumber and fixed the import from

Network.Socket.
mdunnio · Aug 1, 2020 · cc5be95 · cc5be95
1 parent 91e6bd0
commit cc5be95
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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)