naturalcomp-0.0.2: Text/NaturalComp/Collation.hs

{- |
   Module:      Text.NaturalComp.Collation
   Copyright:   2013 Hironao Komatsu
   License:     BSD
   Maintainer:  Hironao Komatsu <hirkmt@gmail.com>
   Portability: portable

   Natural order and Unicode-aware string comparison using rfc5051 module.
-}

module Text.NaturalComp.Collation (naturalCollate) where

import Data.Function (on)
import Data.RFC5051
import Text.NaturalComp (naturalCompBy)
import Text.NaturalComp.Stringy (Stringy)

-- | Natural order and Unicode-aware string collation
naturalCollate :: Stringy s => s -> s -> Ordering
naturalCollate = naturalCompBy (compareUnicode `on` return)