如何修改IndexedTraversal选择的值？

Question

给定一对[(Double, Double)]的列表，我想将该对的第二个元素除以其索引增加一。认为这是IndexedTraversal的工作，但我不能让它编译：

over (indexing (traverse . _2)) (\ix x -> x / fromIntegral (ix + 1)) [(2, 3)]

上述方法无效，因为over需要Double -> Double类型的函数。 over是否等同IndexedTraversal？