msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

record order bug fix

Browse Source
This commit is contained in:
aarne
2006-10-11 20:44:18 +00:00
parent 9747837a5a
commit 5c4438409d
2 changed files with 4 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/GF/Compile/GrammarToCanon.hs
View File

@@ -156,9 +156,6 @@ redTerm :: Type -> Err G.Exp
redTerm t = return $ rtExp t
-- to normalize records and record types
sortByLabel :: (a -> Label) -> [a] -> [a]
sortByLabel f = sortBy (\ x y -> compare (f x) (f y))
sortByFst :: Ord a => [(a,b)] -> [(a,b)]
sortByFst = sortBy (\ x y -> compare (fst x) (fst y))