diff --git a/Main.hs b/Main.hs
index e133402..0284a13 100644
--- a/Main.hs
+++ b/Main.hs
@@ -58,6 +58,8 @@ main = do
                                                   da
   _ <- onClicked saveButton $ onClickedSaveButton fileButton
   _ <- onClicked quitButton mainQuit
+
+  -- hotkeys
   _ <- window `on` keyPressEvent $ tryEvent $ do
          [Control] <- eventModifier
          "q"       <- eventKeyName