检查数组是否具有所有唯一元素

是否有任何核心 PureScript 库带有判断数组（或可折叠）是否具有唯一元素的谓词？

我搜索了一下，发现 nub 和 Data.Set 的 fromFoldable 将返回仅包含唯一元素的数据。

现在，我只是将经过 nub 的数组的长度与原始数组的长度进行比较，尽管这是一种快速而肮脏的方法，因为我不需要中间结果。

allUnique :: forall a. Ord a => Array a -> Boolean
allUnique xs = length xs == (length $ nub xs)

我想在重新创建轮子（可以这么说）之前，我会问这个（或类似的东西）是否已经存在。