diff options
| author | peb <unknown> | 2004-05-26 18:44:40 +0000 |
|---|---|---|
| committer | peb <unknown> | 2004-05-26 18:44:40 +0000 |
| commit | e3e0da73ac68efd2748c321bf0796dc8faa3aba9 (patch) | |
| tree | 4919d5d3c7d18bcbe01b25f84fc79f55c6e575c1 /src/GF/UseGrammar/Parsing.hs | |
| parent | 2945d9bcb8fea2ddf07c60ff45f5fcd600378b14 (diff) | |
*** empty log message ***
Diffstat (limited to 'src/GF/UseGrammar/Parsing.hs')
| -rw-r--r-- | src/GF/UseGrammar/Parsing.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/GF/UseGrammar/Parsing.hs b/src/GF/UseGrammar/Parsing.hs index 5d601bc58..91e811f22 100644 --- a/src/GF/UseGrammar/Parsing.hs +++ b/src/GF/UseGrammar/Parsing.hs @@ -60,7 +60,9 @@ parseStringC opts0 sg cat s tokens2trms :: Options ->StateGrammar ->Ident -> CFParser -> [CFTok] -> Check [Tree] tokens2trms opts sg cn parser as = do let res@(trees,info) = parser as - ts0 <- return $ nub (cfParseResults res) + ts0 <- return $ cfParseResults res -- removed nub, peb 25/5-04 + -- ts0 <- return $ nub (cfParseResults res) -- nub gives quadratic behaviour! + -- SortedList.nubsort is O(n log n) ts <- case () of _ | null ts0 -> checkWarn "No success in cf parsing" >> return [] _ | raw -> do |