diff options
Diffstat (limited to 'src/example-based/ExampleService.hs')
| -rw-r--r-- | src/example-based/ExampleService.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/example-based/ExampleService.hs b/src/example-based/ExampleService.hs index e4198a87b..ecead5425 100644 --- a/src/example-based/ExampleService.hs +++ b/src/example-based/ExampleService.hs @@ -1,4 +1,5 @@ module ExampleService(cgiMain,cgiMain',newPGFCache) where +import System.Random(newStdGen) import System.FilePath((</>),makeRelative) import Data.Map(fromList) import Data.Char(isDigit) @@ -33,7 +34,8 @@ doProvideExample root cwd cache environ = parsePGF <- readParsePGF cwd cache let adjpath path = root</>makeRelative "/" (makeRelative root cwd</>path) pgf <- liftIO . readCache cache . adjpath =<< getInp "grammar" - let Just (e,s) = E.provideExample environ fun parsePGF pgf lang + gen <- liftIO newStdGen + let Just (e,s) = E.provideExample gen environ fun parsePGF pgf lang res = (showExpr [] e,s) liftIO $ logError $ "proveExample ... = "++show res outputJSONP res |