From 14954df6b9c8ea5195cc9a76ff66d439138bf4cc Mon Sep 17 00:00:00 2001
From: Efim Poberezkin <8711996+efim-poberezkin@users.noreply.github.com>
Date: Fri, 24 Dec 2021 15:44:40 +0400
Subject: [PATCH] print version on server initialization & start-up (#240)

---
 apps/smp-server/Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/apps/smp-server/Main.hs b/apps/smp-server/Main.hs
index 283232622..c40ed3f79 100644
--- a/apps/smp-server/Main.hs
+++ b/apps/smp-server/Main.hs
@@ -20,7 +20,7 @@ import Options.Applicative
 import Simplex.Messaging.Server (runSMPServer)
 import Simplex.Messaging.Server.Env.STM
 import Simplex.Messaging.Server.StoreLog (StoreLog, openReadStoreLog, storeLogFilePath)
-import Simplex.Messaging.Transport (ATransport (..), TLS, Transport (..), encodeFingerprint, loadFingerprint)
+import Simplex.Messaging.Transport (ATransport (..), TLS, Transport (..), currentSMPVersionStr, encodeFingerprint, loadFingerprint)
 import Simplex.Messaging.Transport.WebSockets (WS)
 import System.Directory (createDirectoryIfMissing, doesDirectoryExist, doesFileExist, removeDirectoryRecursive, removeFile)
 import System.Exit (exitFailure)
@@ -127,6 +127,7 @@ makeConfig IniOpts {serverPort, enableWebsockets, caCertificateFile, serverPriva
 
 printConfig :: ServerConfig -> String -> IO ()
 printConfig ServerConfig {storeLog} fingerprint = do
+  putStrLn $ "SMP server version: " <> B.unpack currentSMPVersionStr
   putStrLn $ "fingerprint: " <> fingerprint
   putStrLn $ case storeLog of
     Just s -> "store log: " <> storeLogFilePath s