Work on terminals

src/Dodge/Update/Input/Text.hs

@@ -4,7 +4,7 @@ module Dodge.Update.Input.Text (
 ) where
 
 import Data.Either
-import Data.Char
+--import Data.Char
 import Dodge.Data.Universe
 import LensHelp
 import SDL
@@ -14,7 +14,8 @@ doTextInputOver p u = doTextInputOver' u p u
 
 doTextInputOver' :: Universe -> ASetter' a String -> a -> a
 doTextInputOver' u p x =
-    x & p %~ (++ map toUpper (rights str))
+    --x & p %~ (++ map toUpper (rights str))
+    x & p %~ (++ rights str)
         & checkBackspace
   where
     str = u ^. uvWorld . input . textInput