@@ -424,7 +424,7 @@ text msg = do
424424 tellImages img
425425
426426regionBlankImage :: Region -> Image
427−regionBlankImage r@(Region left top width height) =
427+regionBlankImage r@(Region _ _ width height) =
428428 withinImage r $ V.charFill V.defAttr ' ' width height
429429
430430withinImage :: Region -> Image -> Image
@@ -518,7 +518,7 @@ inputValue :: InputState -> Text
518518inputValue (InputState a b) = a <> b
519519
520520updateInputState :: V.Event -> InputState -> InputState
521−updateInputState k i@(InputState before after) = case k of
521+updateInputState ev i@(InputState before after) = case ev of
522522 -- Regular characters
523523 V.EvKey (V.KChar k) [] -> InputState (T.snoc before k) after
524524 -- Deletion buttons