@@ -139,13 +139,14 @@ output_picture dc pic = liftIO $ do
139 else zipWith (/=) (Vector.toList previous_ops)
139 else zipWith (/=) (Vector.toList previous_ops)
140 (Vector.toList ops)
140 (Vector.toList ops)
141 -- build the Write corresponding to the output image
141 -- build the Write corresponding to the output image
142+ out = (if manip_cursor then write_hide_cursor dc else mempty)
142− out = write_default_attr dc
143+ `mappend` write_default_attr dc
143 `mappend` write_output_ops dc initial_attr diffs ops
144 `mappend` write_output_ops dc initial_attr diffs ops
144 `mappend`
145 `mappend`
145 (case pic_cursor pic of
146 (case pic_cursor pic of
146 _ | not manip_cursor -> mempty
147 _ | not manip_cursor -> mempty
147− NoCursor -> write_hide_cursor dc
148+ NoCursor -> mempty
148− Cursor x y ->
149+ Cursor x y ->
149 let m = cursor_output_map ops $ pic_cursor pic
150 let m = cursor_output_map ops $ pic_cursor pic
150 (ox, oy) = char_to_output_pos m (x,y)
151 (ox, oy) = char_to_output_pos m (x,y)
151 in write_show_cursor dc `mappend` write_move_cursor dc ox oy
152 in write_show_cursor dc `mappend` write_move_cursor dc ox oy