From 1930fe6a30e4fdefb8cf89b2c93a58b91f0beb04 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ond=C5=99ej=20=C5=A0ebek?=
 <44544735+xsebek@users.noreply.github.com>
Date: Mon, 7 Nov 2022 01:08:37 +0100
Subject: [PATCH] Fix: add first heard message to log (#842)

When the logger is empty, newly heard messages would have been ignored.
---
 src/Swarm/Game/Step.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Swarm/Game/Step.hs b/src/Swarm/Game/Step.hs
index 22e85980f..99fec3916 100644
--- a/src/Swarm/Game/Step.hs
+++ b/src/Swarm/Game/Step.hs
@@ -1084,7 +1084,7 @@ execConst c vs s k = do
         m <- traceLog Said msg -- current robot will inserted to robot set, so it needs the log
         emitMessage m
         let addLatestClosest rl = \case
-              Seq.Empty -> Seq.Empty
+              Seq.Empty -> Seq.singleton m
               es Seq.:|> e
                 | e ^. leTime < m ^. leTime -> es |> e |> m
                 | manhattan rl (e ^. leLocation) > manhattan rl (m ^. leLocation) -> es |> m