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

finnish the patterns in the case statement

Browse Source
This commit is contained in:
Krasimir Angelov
2026-09-15 11:57:54 +02:00
parent 465a1919d6
commit 28cf82c18d
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/runtime/haskell/PGF.hs
+4 -2
View File
@@ -257,8 +257,10 @@ parse_ :: PGF -> Language -> Type -> Maybe Int -> String -> (ParseOutput [Expr],
parse_ gr (CId lang) cat dp sent = parse_ gr (CId lang) cat dp sent =
case Map.lookup lang (PGF2.languages gr) of case Map.lookup lang (PGF2.languages gr) of
Just cnc -> case (PGF2.parse cnc cat sent,dp) of Just cnc -> case (PGF2.parse cnc cat sent,dp) of
(ParseOk ts, Just n) -> (ParseOk (map fst (take n ts)),noBS) (ParseOk ts, Just n) -> (ParseOk (map fst (take n ts)),noBS)
--(res, ) -> res (ParseOk ts, Nothing) -> (ParseOk (map fst ts),noBS)
(ParseFailed pos,_ ) -> (ParseFailed pos,noBS)
(ParseIncomplete,_ ) -> (ParseIncomplete,noBS)
Nothing -> error ("Unknown language: " ++ lang) Nothing -> error ("Unknown language: " ++ lang)
complete :: PGF -> Language -> Type -> String -> String -> (BracketedString,String,Map.Map Token [CId]) complete :: PGF -> Language -> Type -> String -> String -> (BracketedString,String,Map.Map Token [CId])