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/codeGen/CgStackery.lhs | |
parent | 0043f07ad8c9611a905379c2abd40bda0f39ebf9 (diff) | |
download | haskell-1a137b03472f3727ca7a6ab9621b28641c999301.tar.gz |
Change more uses of sortLe to sortBy
Diffstat (limited to 'compiler/codeGen/CgStackery.lhs')
-rw-r--r-- | compiler/codeGen/CgStackery.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/codeGen/CgStackery.lhs b/compiler/codeGen/CgStackery.lhs index 2628760183..a869795caa 100644 --- a/compiler/codeGen/CgStackery.lhs +++ b/compiler/codeGen/CgStackery.lhs @@ -43,6 +43,7 @@ import OrdList import Outputable import Control.Monad +import Data.List \end{code} %************************************************************************ @@ -333,7 +334,7 @@ Explicitly free some stack space. freeStackSlots :: [VirtualSpOffset] -> Code freeStackSlots extra_free = do { stk_usg <- getStkUsage - ; let all_free = addFreeSlots (freeStk stk_usg) (sortLe (<=) extra_free) + ; let all_free = addFreeSlots (freeStk stk_usg) (sort extra_free) ; let (new_vsp, new_free) = trim (virtSp stk_usg) all_free ; setStkUsage (stk_usg { virtSp = new_vsp, freeStk = new_free }) } |