Refactor light sources

2021-11-28 16:53:26 +00:00
parent 1d9dd3e4e0
commit 618653a86e
28 changed files with 169 additions and 155 deletions
@@ -21,7 +21,7 @@ handlePressedKeyInMenu mState scode = case mState of
    TerminalScreen _ m  -> Just . (menuLayers %~ ( (TerminalScreen 0 m : ) . tail) )
    InputScreen s       -> case scode of
        ScancodeEscape  -> popScreen
-        ScancodeReturn  -> popScreen . (over uvWorld $ applyTerminalString s)
+        ScancodeReturn  -> popScreen . over uvWorld (applyTerminalString s)
        ScancodeBackspace 
            -> popScreen >=> pushScreen (InputScreen $ dropLast s)
        _   -> popScreen >=> pushScreen (InputScreen $ s ++ [scodeToChar scode])