X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=distrib%2Fcompare%2FUtils.hs;h=e2da6b55fa1e4e0d36ccfdb6056fcc7f0b359f8c;hb=92356dd1f85da00546e27d295f40f446408e5ef3;hp=d5fb8cb44209aecfad3e96d23e055f1b4aacfb95;hpb=42b40db07ce70b89f867247809c4e930fd82a6f6;p=ghc-hetmet.git

diff --git a/distrib/compare/Utils.hs b/distrib/compare/Utils.hs
index d5fb8cb..e2da6b5 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)
+