PureScript の Array を降順に並び替えるにはどうすれば良いですか？

PureScript で Array を降順に並び替えるにはどうすれば良いですか？

現状は↓のように sort したあと reverse しています。

module Main
  ( main
  ) where

import Prelude

import Data.Array as Array
import Effect (Effect)
import Effect.Console as Console

main :: Effect Unit
main =
  let xs = [3, 1, 2, 5, 4]
  in Console.logShow (Array.reverse (Array.sort xs))

もっと良い方法があれば教えてください。