From c5d9d43cec649de352b37c5c39754d24d38847a8 Mon Sep 17 00:00:00 2001 From: Vaibhav Sagar Date: Sat, 3 Aug 2019 11:52:47 -0400 Subject: [PATCH] ipython-kernel: fix warnings --- ipython-kernel/src/IHaskell/IPython/Message/Parser.hs | 2 +- ipython-kernel/src/IHaskell/IPython/ZeroMQ.hs | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/ipython-kernel/src/IHaskell/IPython/Message/Parser.hs b/ipython-kernel/src/IHaskell/IPython/Message/Parser.hs index 072b0d7f..5122d8cb 100644 --- a/ipython-kernel/src/IHaskell/IPython/Message/Parser.hs +++ b/ipython-kernel/src/IHaskell/IPython/Message/Parser.hs @@ -15,7 +15,7 @@ import Data.ByteString hiding (unpack) import qualified Data.ByteString.Lazy as Lazy import Data.HashMap.Strict as HM import Data.Maybe (fromMaybe) -import Data.Text (Text, unpack) +import Data.Text (unpack) import Debug.Trace import IHaskell.IPython.Types diff --git a/ipython-kernel/src/IHaskell/IPython/ZeroMQ.hs b/ipython-kernel/src/IHaskell/IPython/ZeroMQ.hs index bff5937e..f3dcf76c 100644 --- a/ipython-kernel/src/IHaskell/IPython/ZeroMQ.hs +++ b/ipython-kernel/src/IHaskell/IPython/ZeroMQ.hs @@ -194,9 +194,9 @@ serveStdin profile = do -- | Serve on a given sock in a separate thread. Bind the sock in the | given context and then -- loop the provided action, which should listen | on the sock and respond to any events. serveSocket :: SocketType a => Context -> a -> IP -> Port -> (Socket a -> IO b) -> IO () -serveSocket ctxt socketType ip port action = void $ +serveSocket ctxt socketType ipAddress port action = void $ withSocket ctxt socketType $ \sock -> do - bind sock $ "tcp://" ++ ip ++ ":" ++ show port + bind sock $ "tcp://" ++ ipAddress ++ ":" ++ show port forever $ action sock -- | Listener on the heartbeat port. Echoes back any data it was sent.