hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Improve inline doc

Browse Source
This commit is contained in:
hasufell
2014-10-01 20:16:02 +02:00
parent 824ae57a05
commit eaaa699035
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Main.hs
View File

@@ -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