GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-22 19:22:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

in initState report the error strictly. This allows to catch it easily

Browse Source
This commit is contained in:
kr.angelov
2008-06-05 11:26:48 +00:00
parent 1068fbc7cf
commit f5fd3aa603
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src-3.0/PGF.hs
View File

@@ -187,13 +187,13 @@ parseAll mgr cat = map snd . parseAllLang mgr cat
parseAllLang mgr cat s = parseAllLang mgr cat s =
[(lang,ts) | lang <- languages mgr, let ts = parse mgr lang cat s, not (null ts)] [(lang,ts) | lang <- languages mgr, let ts = parse mgr lang cat s, not (null ts)]
initState pgf lang cat = Incremental.initState pinfo catCId initState pgf lang cat =
case lookParser pgf langCId of
Just pinfo -> Incremental.initState pinfo catCId
_ -> error ("Unknown language: " ++ lang)
where where
langCId = mkCId lang langCId = mkCId lang
catCId = mkCId cat catCId = mkCId cat
pinfo = case lookParser pgf langCId of
Just pinfo -> pinfo
_ -> error ("Unknown language: " ++ lang)
extractExps state cat = Incremental.extractExps state (mkCId cat) extractExps state cat = Incremental.extractExps state (mkCId cat)