使用镜头访问Data.Sequence.Seq

Question

有没有办法使用lens获取与Data.List中的功能类似的功能？例如，我在考虑像

这样的东西

isPrefixOf :: Eq a => Seq a -> Seq a -> Bool
isSuffixOf :: Eq a => Seq a -> Seq a -> Bool

当然，这些功能可以在列表，矢量等上运行。我认为lens可以做这种事情，但是从Haddocks来看，这对我来说并不明显。

Answer 1

这不是基于镜头的答案，但monoid-subclasses包具有提供isSuffixOf的{​​{3}}类型类和提供isPrefixOf的{​​{3}}。

List和Seq（以及许多其他容器）是这些类型类的实例。