diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-22 21:55:49 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-22 21:55:49 +0100 |
| commit | 1a137b03472f3727ca7a6ab9621b28641c999301 (patch) | |
| tree | 62fd397a54cf1f9fcb71bf3181abc6dd31876f39 /compiler/simplStg | |
| parent | 0043f07ad8c9611a905379c2abd40bda0f39ebf9 (diff) | |
| download | haskell-1a137b03472f3727ca7a6ab9621b28641c999301.tar.gz | |
Change more uses of sortLe to sortBy
Diffstat (limited to 'compiler/simplStg')
| -rw-r--r-- | compiler/simplStg/SRT.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/simplStg/SRT.lhs b/compiler/simplStg/SRT.lhs index bd2fb5e211..0d474c5b63 100644 --- a/compiler/simplStg/SRT.lhs +++ b/compiler/simplStg/SRT.lhs @@ -20,7 +20,7 @@ import Bitmap import Outputable -import Util +import Data.List \end{code} \begin{code} @@ -148,7 +148,7 @@ constructSRT table (SRTEntries entries) where ints = map (expectJust "constructSRT" . lookupVarEnv table) (varSetElems entries) - sorted_ints = sortLe (<=) ints + sorted_ints = sort ints offset = head sorted_ints bitmap_entries = map (subtract offset) sorted_ints len = last bitmap_entries + 1 |