SMP server CLI commands (#144)

SMP server CLI commands

src/Simplex/Messaging/Server/StoreLog.hs

@@ -10,6 +10,7 @@ module Simplex.Messaging.Server.StoreLog
   ( StoreLog, -- constructors are not exported
     openWriteStoreLog,
     openReadStoreLog,
+    storeLogFilePath,
     closeStoreLog,
     logCreateQueue,
     logSecureQueue,
@@ -88,6 +89,11 @@ openReadStoreLog f = do
   doesFileExist f >>= (`unless` writeFile f "")
   ReadStoreLog f <$> openFile f ReadMode
 
+storeLogFilePath :: StoreLog a -> FilePath
+storeLogFilePath = \case
+  WriteStoreLog f _ -> f
+  ReadStoreLog f _ -> f
+
 closeStoreLog :: StoreLog a -> IO ()
 closeStoreLog = \case
   WriteStoreLog _ h -> hClose h