From 312e602dfe69fc6d391d58d715fccad6c1ed1023 Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Wed, 2 Nov 2011 16:54:22 +0000
Subject: gfse: supply information about what's defined in the exampe language
 to the server functions for example-based grammar writing

---
 src/example-based/ExampleDemo.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/example-based/ExampleDemo.hs')

diff --git a/src/example-based/ExampleDemo.hs b/src/example-based/ExampleDemo.hs
index 2f344f0a3..1d5fabcaf 100644
--- 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
-- 
cgit v1.2.3