@@ -424,7 +424,7 @@ text msg = do
424 tellImages img
424 tellImages img
426regionBlankImage :: Region -> Image
426regionBlankImage :: Region -> Image
427−regionBlankImage r@(Region left top width height) =
427+regionBlankImage r@(Region _ _ width height) =
428 withinImage r $ V.charFill V.defAttr ' ' width height
428 withinImage r $ V.charFill V.defAttr ' ' width height
430withinImage :: Region -> Image -> Image
430withinImage :: Region -> Image -> Image
@@ -518,7 +518,7 @@ inputValue :: InputState -> Text
518inputValue (InputState a b) = a <> b
518inputValue (InputState a b) = a <> b
520updateInputState :: V.Event -> InputState -> InputState
520updateInputState :: V.Event -> InputState -> InputState
521−updateInputState k i@(InputState before after) = case k of
521+updateInputState ev i@(InputState before after) = case ev of
522 -- Regular characters
522 -- Regular characters
523 V.EvKey (V.KChar k) [] -> InputState (T.snoc before k) after
523 V.EvKey (V.KChar k) [] -> InputState (T.snoc before k) after
524 -- Deletion buttons
524 -- Deletion buttons