From 7f353a4f957bad701da198769698c80b0aa87e21 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ondr=CC=8Cej=20S=CC=8Cebek?= <ondras98@icloud.com>
Date: Fri, 5 Jul 2024 23:38:13 +0200
Subject: [PATCH] Add more docs and links

---
 src/swarm-tui/Swarm/TUI/Model/KeyBindings.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/swarm-tui/Swarm/TUI/Model/KeyBindings.hs b/src/swarm-tui/Swarm/TUI/Model/KeyBindings.hs
index ecaeaffba..48cd8b375 100644
--- a/src/swarm-tui/Swarm/TUI/Model/KeyBindings.hs
+++ b/src/swarm-tui/Swarm/TUI/Model/KeyBindings.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 
--- |
+-- | Load and show Swarm keybindings.
+--
 -- SPDX-License-Identifier: BSD-3-Clause
 module Swarm.TUI.Model.KeyBindings (
   initKeyHandlingState,
@@ -28,6 +29,8 @@ import Swarm.TUI.Controller.EventHandlers
 import Swarm.TUI.Model
 import Swarm.TUI.Model.Event (SwarmEvent, defaultSwarmBindings, swarmEvents)
 
+-- See Note [how Swarm event handlers work]
+
 loadKeybindingConfig ::
   (Has (Throw SystemFailure) sig m, Has (Lift IO) sig m) =>
   m [(SwarmEvent, BindingState)]