Improve inline doc
This commit is contained in:
parent
824ae57a05
commit
eaaa699035
2
Main.hs
2
Main.hs
@ -58,6 +58,8 @@ main = do
|
|||||||
da
|
da
|
||||||
_ <- onClicked saveButton $ onClickedSaveButton fileButton
|
_ <- onClicked saveButton $ onClickedSaveButton fileButton
|
||||||
_ <- onClicked quitButton mainQuit
|
_ <- onClicked quitButton mainQuit
|
||||||
|
|
||||||
|
-- hotkeys
|
||||||
_ <- window `on` keyPressEvent $ tryEvent $ do
|
_ <- window `on` keyPressEvent $ tryEvent $ do
|
||||||
[Control] <- eventModifier
|
[Control] <- eventModifier
|
||||||
"q" <- eventKeyName
|
"q" <- eventKeyName
|
||||||
|
Loading…
Reference in New Issue
Block a user