diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-10-11 20:44:18 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-10-11 20:44:18 +0000 |
| commit | c3cefb4d48e8e2680a2e167c65f1143bdb101823 (patch) | |
| tree | 19412f8d3f4b1a0dd998d17add455f15ecad2a1d /src/GF/Compile | |
| parent | 72699f446f21e014989af8f31e7a554ffa0359a8 (diff) | |
record order bug fix
Diffstat (limited to 'src/GF/Compile')
| -rw-r--r-- | src/GF/Compile/GrammarToCanon.hs | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/src/GF/Compile/GrammarToCanon.hs b/src/GF/Compile/GrammarToCanon.hs index e7da9281d..9cf8a519f 100644 --- a/src/GF/Compile/GrammarToCanon.hs +++ b/src/GF/Compile/GrammarToCanon.hs @@ -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)) |