gfse: supply information about what's defined in the exampe language to the server functions for example-based grammar writing

2011-11-02 16:54:22 +00:00
parent bed4395a3d
commit 366922aa0f
5 changed files with 23 additions and 8 deletions
--- a/src/example-based/ExampleDemo.hs
+++ b/src/example-based/ExampleDemo.hs
@@ -42,8 +42,8 @@ data Environ = Env {getTypeMap :: TypeMap,                  -- mapping between a
                    }


-getNext :: Environ -> ([MyFunc],[MyFunc])
-getNext env = 
+getNext :: Environ -> Environ -> ([MyFunc],[MyFunc])
+getNext env example_env = 
  let sgs = getSigs env
      allfuncs  = getAll env
      names = Set.fromList $ map getName $ concat $ Map.elems sgs