fix descriptive error message in Server.hs
commita749ff99ff31de9be631c7fd65e71cf547574edb
authorAgentM <agentm@themactionfaction.com>
dateMon 6 Feb 2017, 00:27 (10 years ago)
parentb5a81b3
src/lib/ProjectM36/Server.hs+1−1
@@ -89,7 +89,7 @@ launchServer daemonConfig mAddressMVar = do
8989 port = bindPort daemonConfig
9090 etransport <- createTransport hostname (show port) defaultTCPParameters
9191 case etransport of
92− Left err -> error (show err)
92+ Left err -> error ("failed to create transport: " ++ show err)
9393 Right transport -> do
9494 eEndpoint <- newEndPoint transport
9595 case eEndpoint of