How do I sort PureScript arrays in descending order?

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))