From c3cefb4d48e8e2680a2e167c65f1143bdb101823 Mon Sep 17 00:00:00 2001 From: aarne Date: Wed, 11 Oct 2006 20:44:18 +0000 Subject: record order bug fix --- src/GF/Compile/GrammarToCanon.hs | 3 --- 1 file changed, 3 deletions(-) (limited to 'src/GF/Compile') 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)) -- cgit v1.2.3