path: root/testsuite/tests/ghc-regress/lib/should_run/list002.hs

-- !!! Test that List.sortBy is stable.

import Data.List

main = print (sortBy (\(a,b) (a',b')->compare a a')
		([1,1,1,1,1,1,1,1,1,1]`zip`[1..10]))