From 4d96c921679e1838454cc36f78dc10a1831ea10a Mon Sep 17 00:00:00 2001
From: Tom Sydney Kerckhove <syd@cs-syd.eu>
Date: Sun, 27 Oct 2024 12:15:10 +0100
Subject: [PATCH] fix a little loop description output bug

---
 feedback/src/Feedback/Loop/OptParse.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/feedback/src/Feedback/Loop/OptParse.hs b/feedback/src/Feedback/Loop/OptParse.hs
index 13a3e0d..dbab115 100644
--- a/feedback/src/Feedback/Loop/OptParse.hs
+++ b/feedback/src/Feedback/Loop/OptParse.hs
@@ -78,6 +78,7 @@ prettyConfiguration mConf = case mConf of
 
 loopConfigLine :: String -> LoopConfiguration -> [Chunk]
 loopConfigLine loopName LoopConfiguration {..} =
-  [ loopNameChunk $ loopName <> ":",
+  [ loopNameChunk loopName,
+    ": ",
     maybe "no description" (chunk . T.pack) loopConfigDescription
   ]