@@ -139,13 +139,14 @@ output_picture dc pic = liftIO $ do
139139 else zipWith (/=) (Vector.toList previous_ops)
140140 (Vector.toList ops)
141141 -- build the Write corresponding to the output image
142− out = write_default_attr dc
142+ out = (if manip_cursor then write_hide_cursor dc else mempty)
143+ `mappend` write_default_attr dc
143144 `mappend` write_output_ops dc initial_attr diffs ops
144145 `mappend`
145146 (case pic_cursor pic of
146147 _ | not manip_cursor -> mempty
147− NoCursor -> write_hide_cursor dc
148− Cursor x y ->
148+ NoCursor -> mempty
149+ Cursor x y ->
149150 let m = cursor_output_map ops $ pic_cursor pic
150151 (ox, oy) = char_to_output_pos m (x,y)
151152 in write_show_cursor dc `mappend` write_move_cursor dc ox oy