GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 00:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

record order bug fix

Browse Source
This commit is contained in:
aarne
2006-10-11 20:44:18 +00:00
parent 72699f446f
commit c3cefb4d48
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))