Add AddBranch to Grammar
[L-seed.git] / src / Lseed / Grammar.hs
index b126d23..caa49c1 100644 (file)
@@ -1,6 +1,8 @@
 -- | Grammer-like representation for a plant genome
 module Lseed.Grammar where
 
+import Lseed.Data
+
 -- | A complete grammar file
 type GrammarFile = [ GrammarRule ]
 
@@ -53,7 +55,7 @@ data Condition
         
 data GrammarAction
        = SetLength LengthDescr (Maybe UserTag)
--- TODO        | AddBranch Double Angle (Maybe (UserTag, UserTag, UserTag))
+       | AddBranch Double Angle Double (Maybe (UserTag, UserTag, UserTag))
        deriving (Read,Show)
 
 data LengthDescr = Absolute Double