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

Cleanup

Browse Source
This commit is contained in:
justin
2022-12-27 10:53:31 +00:00
parent eecc38d68f
commit 2def9800fa
6 changed files with 28 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render/Picture.hs
+1 -1
View File
@@ -22,7 +22,7 @@ fixedCoordPictures u = drawMenuOrHUD cfig u
drawMenuOrHUD :: Configuration -> Universe -> Picture
drawMenuOrHUD cfig u = case u ^. uvScreenLayers of
[] -> drawHUD u
[] -> drawHUD (u ^. uvConfig) (u ^. uvWorld)
(lay : _) -> drawMenuScreen cfig lay
drawConcurrentMessage :: Universe -> Picture