From 42ab7fb6ac5bae8c034f11475b9142f002c202ae Mon Sep 17 00:00:00 2001
From: Evgeny Poberezkin <2769109+epoberezkin@users.noreply.github.com>
Date: Wed, 30 Dec 2020 21:26:46 +0000
Subject: [PATCH] test against localhost

---
 tests/SMPClient.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tests/SMPClient.hs b/tests/SMPClient.hs
index aee5bf776..6e1e57494 100644
--- a/tests/SMPClient.hs
+++ b/tests/SMPClient.hs
@@ -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