@@ -177,8 +177,7 @@ outputPicture dc pic = liftIO $ do
177 Nothing -> replicate (fromEnum $ regionHeight $ affectedRegion ops) True
177 Nothing -> replicate (fromEnum $ regionHeight $ affectedRegion ops) True
178 Just previousOps -> if affectedRegion previousOps /= affectedRegion ops
178 Just previousOps -> if affectedRegion previousOps /= affectedRegion ops
179 then replicate (displayOpsRows ops) True
179 then replicate (displayOpsRows ops) True
180− else zipWith (/=) (Vector.toList previousOps)
180+ else Vector.toList $ Vector.zipWith (/=) previousOps ops
182 -- build the Write corresponding to the output image
181 -- build the Write corresponding to the output image
183 out = (if manipCursor then writeHideCursor dc else mempty)
182 out = (if manipCursor then writeHideCursor dc else mempty)
184 `mappend` writeOutputOps urlsEnabled dc initialAttr diffs ops
183 `mappend` writeOutputOps urlsEnabled dc initialAttr diffs ops