eventloop-0.2.1.1: src/Eventloop/Module/DrawTrees/Types.hs

module Eventloop.Module.DrawTrees.Types where

import Eventloop.Module.Websocket.Canvas.Types
import Eventloop.Utility.Trees.GeneralTree


data DrawTreesOut = DrawTrees CanvasId [Tree]
                  deriving (Show, Eq)

data Tree = TParseTree ParseTree
          | TRBTree RBTree
          | TRoseTree RoseTree
          deriving (Show, Eq)

               
data ParseTree = ParseNode String [ParseTree]
                deriving (Show, Eq)
             
          
data NodeColor = NodeRed
               | NodeBlack
               | NodeGrey
               deriving (Show, Eq)

data RBTree = RBNode NodeColor String [RBTree]
            deriving (Show, Eq)
            
            
data RoseTree = RoseNode String [RoseTree]
                deriving (Show, Eq)