Typo
[packages/base.git] / tests / list002.hs
1 -- !!! Test that List.sortBy is stable.
2
3 import Data.List
4
5 main = print (sortBy (\(a,b) (a',b')->compare a a')
6 ([1,1,1,1,1,1,1,1,1,1]`zip`[1..10]))