diff --git a/ChatTerminal/Core.hs b/ChatTerminal/Core.hs
index 92e16decd..0b4cecf78 100644
--- a/ChatTerminal/Core.hs
+++ b/ChatTerminal/Core.hs
@@ -87,10 +87,10 @@ updateTermState ac tw (key, ms) ts@TerminalState {inputString = s, inputPosition
       | p == 0 = ts' (tail s, 0)
       | otherwise = let (b, a) = splitAt p s in ts' (b <> tail a, p)
     leftPos
-      | ms == mempty = min (length s) (p + 1)
-      | ms == shiftKey = length s
-      | ms == ctrlKey = nextWordPos
-      | ms == altKey = nextWordPos
+      | ms == mempty = max 0 (p - 1)
+      | ms == shiftKey = 0
+      | ms == ctrlKey = prevWordPos
+      | ms == altKey = prevWordPos
       | otherwise = p
     rightPos
       | ms == mempty = min (length s) (p + 1)
diff --git a/Styled.hs b/Styled.hs
index 5b54644ba..87f28a786 100644
--- a/Styled.hs
+++ b/Styled.hs
@@ -1,5 +1,3 @@
-{-# LANGUAGE LambdaCase #-}
-
 module Styled
   ( StyledString (..),
     bPlain,