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