Update other binary to not use L.Grammar.Compile
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 13 Jun 2009 13:21:32 +0000 (15:21 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 13 Jun 2009 13:21:32 +0000 (15:21 +0200)
src/dbclient.hs
src/dbscorer.hs
src/fastScorer.hs

index cd63adc..dbce6ce 100644 (file)
@@ -1,7 +1,6 @@
 import Lseed.Data
 import Lseed.Data.Functions
 import Lseed.DB
-import Lseed.Grammar.Compile
 import Lseed.Grammar.Parse
 import Lseed.Mainloop
 import Lseed.Renderer.Cairo
@@ -9,7 +8,7 @@ import Control.Applicative
 import Control.Monad
 import Text.Printf
 
-getGarden = spread <$> map (either (error.show) compileGrammarFile . parseGrammar "" . dbcCode)
+getGarden = spread <$> map (either (error.show) id . parseGrammar "" . dbcCode)
                   <$> getCodeToRun
   where spread gs = zipWith (\g p -> Planted ((fromIntegral p + 0.5) / l) p g inititalPlant) gs [0..]
          where l = fromIntegral (length gs)
index d8666fa..a1677ee 100644 (file)
@@ -1,7 +1,6 @@
 import Lseed.Data
 import Lseed.Data.Functions
 import Lseed.DB
-import Lseed.Grammar.Compile
 import Lseed.Grammar.Parse
 import Lseed.Mainloop
 import Control.Applicative
@@ -16,7 +15,7 @@ getGarden = spread <$> map compileDBCode
 compileDBCode dbc =
        case  parseGrammar "" (dbcCode dbc) of
                Left err          -> error (show err)
-               Right grammarFile -> (dbcUserID dbc, compileGrammarFile grammarFile)
+               Right grammarFile -> (dbcUserID dbc, grammarFile)
 
 scoringObs = nullObserver {
        obFinished = \garden -> do
index 8a6171f..fcc5bb4 100644 (file)
@@ -1,6 +1,5 @@
 import Lseed.Data
 import Lseed.Data.Functions
-import Lseed.Grammar.Compile
 import Lseed.Grammar.Parse
 import Lseed.Constants
 import Lseed.Mainloop
@@ -15,7 +14,7 @@ import Text.Printf
 parseFile filename = do
        content <- readFile filename
        let result = parseGrammar filename content
-       return $ either (error.show) compileGrammarFile result
+       return $ either (error.show) id result
 
 readArgs doit = do
        args <- getArgs