diff options
Diffstat (limited to 'distrib/compare/Utils.hs')
| -rw-r--r-- | distrib/compare/Utils.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/distrib/compare/Utils.hs b/distrib/compare/Utils.hs index d5fb8cb442..e2da6b55fa 100644 --- a/distrib/compare/Utils.hs +++ b/distrib/compare/Utils.hs @@ -1,6 +1,8 @@ module Utils where +import Data.Function +import Data.List import System.Exit import System.IO import Text.Regex.Posix @@ -33,3 +35,6 @@ unSepList x xs = case break (x ==) xs of (this, []) -> [this] +sortByFst :: Ord a => [(a, b)] -> [(a, b)] +sortByFst = sortBy (compare `on` fst) + |