summaryrefslogtreecommitdiff
path: root/compiler/codeGen/CgStackery.lhs
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2012-06-22 21:55:49 +0100
committerIan Lynagh <igloo@earth.li>2012-06-22 21:55:49 +0100
commit1a137b03472f3727ca7a6ab9621b28641c999301 (patch)
tree62fd397a54cf1f9fcb71bf3181abc6dd31876f39 /compiler/codeGen/CgStackery.lhs
parent0043f07ad8c9611a905379c2abd40bda0f39ebf9 (diff)
downloadhaskell-1a137b03472f3727ca7a6ab9621b28641c999301.tar.gz
Change more uses of sortLe to sortBy
Diffstat (limited to 'compiler/codeGen/CgStackery.lhs')
-rw-r--r--compiler/codeGen/CgStackery.lhs3
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 }) }