mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-24 03:52:50 -06:00
redesign the open-literals API
This commit is contained in:
@@ -1012,7 +1012,7 @@ allCommands env@(pgf, mos) = Map.fromList [
|
||||
_ -> fromExprs ts
|
||||
where
|
||||
(prs,bss) = unzip parses
|
||||
ts = [t | ParseResult ts <- prs, t <- ts]
|
||||
ts = [t | ParseOk ts <- prs, t <- ts]
|
||||
|
||||
returnFromExprs es = return $ case es of
|
||||
[] -> ([], "no trees found")
|
||||
|
||||
Reference in New Issue
Block a user