justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cleanup console input slightly

Browse Source
This commit is contained in:
justin
2022-03-20 19:41:40 +00:00
parent ff93d1d041
commit 988a0de578
6 changed files with 39 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Menu.hs
+1 -1
View File
@@ -151,7 +151,7 @@ unpause :: Universe -> Maybe Universe
unpause w = Just . resumeSound $ w & menuLayers .~ []
displayControls :: ScreenLayer
displayControls = ColumnsScreen "CONTROLS" listControls
displayControls = ColumnsScreen (const "CONTROLS") listControls
listControls :: [(String,String)]
listControls =