From a3d8c08a589db9a19fe762f8bac917023dba1d62 Mon Sep 17 00:00:00 2001
From: Brent Yorgey <byorgey@gmail.com>
Date: Wed, 15 Jan 2025 14:23:59 -0600
Subject: [PATCH] apply hlint suggestion

---
 src/swarm-tui/Swarm/TUI/Model/Event.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/swarm-tui/Swarm/TUI/Model/Event.hs b/src/swarm-tui/Swarm/TUI/Model/Event.hs
index d890a339c..ee4dffaf0 100644
--- a/src/swarm-tui/Swarm/TUI/Model/Event.hs
+++ b/src/swarm-tui/Swarm/TUI/Model/Event.hs
@@ -174,7 +174,7 @@ defaultReplBindings = allBindings $ \case
 --                 REPL EVENTS
 -- ----------------------------------------------
 
-data WorldEvent
+newtype WorldEvent
   = MoveViewEvent AbsoluteDir
   deriving (Eq, Ord, Show, Generic)
   deriving (Enum, Bounded) via (FiniteEnumeration WorldEvent)