test against localhost

This commit is contained in:
Evgeny Poberezkin
2020-12-30 21:26:46 +00:00
parent 80b4ff365d
commit 42ab7fb6ac
+2 -2
View File
@@ -17,10 +17,10 @@ import qualified UnliftIO.Exception as E
import UnliftIO.IO
testHost :: HostName
testHost = "139.162.207.114"
testHost = "localhost"
testPort :: ServiceName
testPort = "5223"
testPort = "5000"
testSMPClient :: MonadUnliftIO m => (Handle -> m a) -> m a
testSMPClient client = do