@@ -44,8 +44,8 @@ sendPayload node from to payload = do
44 Just conn -> do
44 Just conn -> do
45 didSend <- NT.send conn payload
45 didSend <- NT.send conn payload
46 case didSend of
46 case didSend of
47− Left _ -> return False
47+ Left _err -> return False
48− Right _ -> return True
48+ Right () -> return True
49 Nothing -> return False
49 Nothing -> return False
50 unless didSend $
50 unless didSend $
51 writeChan (localCtrlChan node) NCMsg
51 writeChan (localCtrlChan node) NCMsg