Remove No-UserTag-Support-Error
authorJoachim Breitner <mail@joachim-breitner.de>
Sat, 30 May 2009 12:19:02 +0000 (14:19 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Sat, 30 May 2009 12:19:02 +0000 (14:19 +0200)
src/Lseed/Grammar/Compile.hs
src/main.hs

index 21ef502..07d1d9c 100644 (file)
@@ -17,11 +17,11 @@ compileGrammarRule rule plant =
 
 
 conformsTo :: AnnotatedPlant -> Condition -> Bool
-conformsTo (Plant {pData = si}) = go
+conformsTo (Plant {pData = si, pUserTag = ut}) = go
   where go (Always b)     = b
        go (c1 `And` c2)  = go c1 && go c2
        go (c1 `Or` c2)   = go c1 || go c2
-       go (UserTagIs ut) = error "UserTags are not supported yet"
+       go (UserTagIs ut') = ut' == ut
        go (NumCond what how val) = doCompare how (getMatchable what) val
        
        getMatchable MatchLength    = siLength si
index b0b9687..42153f0 100644 (file)
@@ -30,4 +30,4 @@ readArgs doit = do
                
 main = readArgs $ \garden -> do
        obs <- cairoObserver
-       lseedMainLoop True obs 1 garden
+       lseedMainLoop True obs 30 garden