From 4e35f7e5ecfebb2503a516c84e4b7d932731a94d Mon Sep 17 00:00:00 2001 From: krasimir Date: Wed, 9 Jun 2010 10:21:13 +0000 Subject: filter the duplications when doing 'l -table' --- src/runtime/haskell/PGF/Linearize.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/runtime/haskell/PGF/Linearize.hs') diff --git a/src/runtime/haskell/PGF/Linearize.hs b/src/runtime/haskell/PGF/Linearize.hs index 79da0e823..84b1b116f 100644 --- a/src/runtime/haskell/PGF/Linearize.hs +++ b/src/runtime/haskell/PGF/Linearize.hs @@ -63,7 +63,7 @@ type CncType = (CId, FId) -- concrete type is the abstract type (the category linTree :: PGF -> Language -> Expr -> [Array LIndex BracketedTokn] linTree pgf lang e = - [amapWithIndex (\label -> Bracket_ cat fid label [e]) lin | (_,((cat,fid),e,lin)) <- lin0 [] [] Nothing 0 e e] + nub [amapWithIndex (\label -> Bracket_ cat fid label [e]) lin | (_,((cat,fid),e,lin)) <- lin0 [] [] Nothing 0 e e] where cnc = lookMap (error "no lang") lang (concretes pgf) lp = lproductions cnc -- cgit v1.2.3