From 604c6e44f2a5fca9dfef95de95bbb6fba59e38ca Mon Sep 17 00:00:00 2001 From: krasimir Date: Fri, 23 Oct 2009 12:16:29 +0000 Subject: [PATCH] fix typo --- src/PGF/Parsing/FCFG/Incremental.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/PGF/Parsing/FCFG/Incremental.hs b/src/PGF/Parsing/FCFG/Incremental.hs index dbb87556d..296a0d33b 100644 --- a/src/PGF/Parsing/FCFG/Incremental.hs +++ b/src/PGF/Parsing/FCFG/Incremental.hs @@ -146,7 +146,7 @@ recoveryStates open_types (EState pgf pinfo chart) = -- limited by the category specified, which is usually -- the same as the startup category. extractTrees :: ParseState -> Type -> [Tree] -extractTrees (State pgf pinfo chart items) ty@(DTyp _ start _) = +extractTrees (PState pgf pinfo chart items) ty@(DTyp _ start _) = nubsort [e1 | e <- exps, Right e1 <- [checkExpr pgf e ty]] where (mb_agenda,acc) = TMap.decompose items