Cleanup console input slightly
This commit is contained in:
@@ -27,7 +27,7 @@ handleTextInputEvent tev = handleTextInput text
|
||||
text = unpack $ textInputEventText tev
|
||||
|
||||
handleTextInput :: String -> Universe -> IO (Maybe Universe)
|
||||
handleTextInput text w
|
||||
handleTextInput text w
|
||||
| null (_menuLayers w) = return $ Just w
|
||||
| otherwise = handleTextInMenu (head $ _menuLayers w) text w
|
||||
|
||||
|
||||
Reference in New Issue
Block a user