apply hlint suggestion

swarm-game · Jan 15, 2025 · a3d8c08 · a3d8c08
1 parent 7a9d46a
commit a3d8c08
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)