From 4d95927bfad84b620f444bcd44a1e527b7b5b513 Mon Sep 17 00:00:00 2001
From: tali <iitalics@gmail.com>
Date: Thu, 11 Jan 2024 00:22:23 -0500
Subject: [PATCH] fix 001 reply formatting

---
 lib/server/connection.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/server/connection.ml b/lib/server/connection.ml
index 3cf4651..f23599a 100644
--- a/lib/server/connection.ml
+++ b/lib/server/connection.ml
@@ -55,8 +55,9 @@ let reply t (num, params) =
     (Irc.Msg.make ~prefix num (target :: params))
 
 let welcome t me =
+  let who = Irc.Msg.prefix_string (User.prefix me) in
   begin
-    reply t ("001", ["Welcome to the tali IRC network %s" ^ Irc.Msg.prefix_string (User.prefix me)]);
+    reply t ("001", [Fmt.str "Welcome to the tali IRC network %s" who]);
     reply t ("002", [Fmt.str "Your host is %s, running version %s" srv_host srv_ver]);
     reply t ("003", [Fmt.str "This server was created %s" srv_created]);
     reply t ("004", [srv_host; srv_ver; "iow"; "imnst"; "bklov"]);