diff options
| author | krasimir <krasimir@chalmers.se> | 2009-10-23 12:16:29 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-10-23 12:16:29 +0000 |
| commit | b8df9c92bb71fc4c136dc35ce98e524cc392c7de (patch) | |
| tree | 98159749df61dc0a8e01266ac9c4059738988f30 | |
| parent | d5f4669aec26c6a580a28b05a6005425ad663555 (diff) | |
fix typo
| -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
|