diff options
| -rw-r--r-- | src/PGF/Parsing/FCFG/Incremental.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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
|