hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

PRELUDE: fix spelling

Browse Source
This commit is contained in:
hasufell 2015-01-08 01:38:46 +01:00
parent 79175d7fa0
commit ede0d6eccf
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
MyPrelude.hs
View File

@ -32,7 +32,7 @@ removeItem :: (Eq a) => a -> [a] -> [a]
removeItem x = foldr (\x' y -> if x' == x then y else x':y) [] removeItem x = foldr (\x' y -> if x' == x then y else x':y) []
-- |Sort a liste of tuples lexicographically. -- |Sort a list of tuples lexicographically.
sortLex :: (Ord a) => [(a, a)] -> [(a, a)] sortLex :: (Ord a) => [(a, a)] -> [(a, a)]
sortLex = sortLex =
sortBy (\(x1, y1) (x2, y2) -> case compare x1 x2 of sortBy (\(x1, y1) (x2, y2) -> case compare x1 x2 of