@@ -85,7 +85,8 @@ mkTransport (TCPConfig _hints host service) = withSocketsDo $ do
8585 , newMulticastWith = error "newMulticastWith: not defined"
8686 , deserialize = {-# SCC "deserialize" #-} \bs ->
8787 let (host, service, chanId) =
88− either (error $ printf "deserialize: %s") id $ decode bs in
88+ either (\m -> error $ printf "deserialize: %s" m)
89+ id $ decode bs in
8990 Just $ mkSourceAddr host service chanId
9091 , closeTransport = {-# SCC "closeTransport" #-} do
9192 -- Kill the transport channel process
@@ -107,7 +108,7 @@ mkSourceAddr host service chanId = SourceAddr
107108
108109mkSourceEnd :: HostName -> ServiceName -> ChanId -> IO SourceEnd
109110mkSourceEnd host service chanId = withSocketsDo $ do
110− let err = error $ printf "mkSourceEnd: %s"
111+ let err m = error $ printf "mkSourceEnd: %s" m
111112 serverAddrs <- getAddrInfo Nothing (Just host) (Just service)
112113 let serverAddr = case serverAddrs of
113114 [] -> err "getAddrInfo returned []"
@@ -145,7 +146,7 @@ mkTargetEnd chans chanId chan = TargetEnd
145146-- for some reason, an error is raised.
146147procConnections :: Chans -> Socket -> IO ()
147148procConnections chans sock = forever $ do
148− let err = error $ printf "procConnections: %s"
149+ let err m = error $ printf "procConnections: %s" m
149150 (clientSock, _clientAddr) <- accept sock
150151 -- decode the first message to find the correct chanId
151152 bss <- recvExact clientSock 8
@@ -184,7 +185,7 @@ procMessages chans chanId chan sock = do
184185 Right sizeBS' -> procMessage $ decode sizeBS'
185186 esize -> procMessage (fromIntegral <$> esize)
186187 where
187− err = error $ printf "procMessages: %s"
188+ err m = error $ printf "procMessages: %s" m
188189 closeSocket :: IO ()
189190 closeSocket = do
190191 (chanId', chanMap) <- takeMVar chans