projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
update compiler using *->*->* as the kind of environment classifiers
[ghc-hetmet.git]
/
distrib
/
compare
/
Utils.hs
diff --git
a/distrib/compare/Utils.hs
b/distrib/compare/Utils.hs
index
d5fb8cb
..
e2da6b5
100644
(file)
--- 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)
+