{-| Sorting functions.

-}
module Shikensu.Sorting
    ( sortByAbsolutePath
    ) where

import Shikensu.Internal.Types (Definition, absolutePath)


{-| Sort by absolutePath.

> Data.List.sortBy Shikensu.sortByAbsolutePath dictionary

-}
sortByAbsolutePath :: Definition -> Definition -> Ordering
sortByAbsolutePath :: Definition -> Definition -> Ordering
sortByAbsolutePath Definition
defA Definition
defB =
    String -> String -> Ordering
forall a. Ord a => a -> a -> Ordering
compare (Definition -> String
absolutePath Definition
defA) (Definition -> String
absolutePath Definition
defB)