@@ -89,7 +89,7 @@ launchServer daemonConfig mAddressMVar = do
89 port = bindPort daemonConfig
89 port = bindPort daemonConfig
90 etransport <- createTransport hostname (show port) defaultTCPParameters
90 etransport <- createTransport hostname (show port) defaultTCPParameters
91 case etransport of
91 case etransport of
92− Left err -> error (show err)
92+ Left err -> error ("failed to create transport: " ++ show err)
93 Right transport -> do
93 Right transport -> do
94 eEndpoint <- newEndPoint transport
94 eEndpoint <- newEndPoint transport
95 case eEndpoint of
95 case eEndpoint of