@@ -224,8 +224,10 @@ output_picture (DisplayHandle d t s) pic = do
224 + required_bytes d initial_attr diffs ops
224 + required_bytes d initial_attr diffs ops
225 + case pic_cursor pic of
225 + case pic_cursor pic of
226 NoCursor -> 0
226 NoCursor -> 0
227+ Cursor x y -> let m = cursor_output_map ops $ pic_cursor pic
228+ ( ox, oy ) = char_to_output_pos m ( x, y )
227− Cursor x y -> show_cursor_required_bytes d
229+ in show_cursor_required_bytes d
228− + move_cursor_required_bytes d x y
230+ + move_cursor_required_bytes d ox oy
230 -- ... then serialize
232 -- ... then serialize
231 liftIO $ allocaBytes (fromEnum total) $ \start_ptr -> do
233 liftIO $ allocaBytes (fromEnum total) $ \start_ptr -> do