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

tense update for lib/resource/english

Browse Source
This commit is contained in:
aarne
2005-01-30 14:45:01 +00:00
parent 8947c49066
commit ca6dfea53e
2 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
grammars/database/DatabaseI.gf
View File

@@ -2,7 +2,7 @@
incomplete concrete DatabaseI of Database = open Prelude, Resource in { incomplete concrete DatabaseI of Database = open Prelude, Resource in {
flags lexer=text ; unlexer=text ; flags lexer=text ; unlexer=text ; startcat=Query ;
lincat lincat
Query = Phr ; Query = Phr ;

1
src/GF/Compile/CheckGrammar.hs
View File

@@ -609,6 +609,7 @@ pattContext env typ p = case p of
case typ' of case typ' of
RecType t -> do RecType t -> do
let pts = [(ty,tr) | (l,tr) <- r, Just ty <- [lookup l t]] let pts = [(ty,tr) | (l,tr) <- r, Just ty <- [lookup l t]]
----- checkWarn $ prt p ++++ show pts ----- debug
mapM (uncurry (pattContext env)) pts >>= return . concat mapM (uncurry (pattContext env)) pts >>= return . concat
_ -> prtFail "record type expected for pattern instead of" typ' _ -> prtFail "record type expected for pattern instead of" typ'
PT t p' -> do PT t p' -> do