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

interpret "foo bar" as ["foo bar"], silently

Browse Source
This commit is contained in:
aarne
2008-05-24 08:03:42 +00:00
parent f4bafe3d5a
commit 472f6ed14f
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src-3.0/GF/Compile/CheckGrammar.hs
View File

@@ -502,10 +502,13 @@ inferLType gr trm = case trm of
K s -> do K s -> do
if elem ' ' s if elem ' ' s
then checkWarn ("WARNING: space in token \"" ++ s ++ then do
"\". Lexical analysis may fail.") let ss = foldr C Empty (map K (words s))
else return () ----- removed irritating warning AR 24/5/2008
return (trm, typeStr) ----- checkWarn ("WARNING: token \"" ++ s ++
----- "\" converted to token list" ++ prt ss)
return (ss, typeStr)
else return (trm, typeStr)
EInt i -> return (trm, typeInt) EInt i -> return (trm, typeInt)