Parse PRIORITY
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 12 Jun 2009 12:55:31 +0000 (14:55 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 12 Jun 2009 12:55:31 +0000 (14:55 +0200)
src/Lseed/Grammar/Parse.hs

index b0cd673..00ba8a4 100644 (file)
@@ -12,7 +12,7 @@ import Lseed.Data
 lexer       = P.makeTokenParser $ javaStyle
        { P.reservedNames = ["RULE", "WHEN", "SET", "Tag", "Light", "Branch", "At",
                             "Length", "Light", "Sublength", "Sublight", "Direction", "Angle",
-                            "BY", "TO", "IMPORTANCE", "WEIGHT", "Blossom"]
+                            "BY", "TO", "PRIORITY", "WEIGHT", "Blossom"]
        }
 
 parens      = P.parens lexer
@@ -54,7 +54,7 @@ pRule = do
        action <- pAction
        -- maybe (return ()) fail (actionIsInvalid action)
        priority <- option 1 $ do
-               reserved "IMPORTANCE"
+               reserved "PRIORITY"
                fromIntegral `fmap` natural
        weight <- option 1 $ do
                reserved "WEIGHT"