uuagc-0.9.5: src-derived/Interfaces.hs

-- UUAGC 0.9.5 (Interfaces.ag)
module Interfaces where

import CommonTypes
import SequentialTypes
-- IRoot -------------------------------------------------------
{-
   alternatives:
      alternative IRoot:
         child inters         : Interfaces
-}
data IRoot = IRoot (Interfaces) 
-- Interface ---------------------------------------------------
{-
   alternatives:
      alternative Interface:
         child nt             : {Nonterminal}
         child cons           : {[Constructor]}
         child seg            : Segments
-}
data Interface = Interface (Nonterminal) ([Constructor]) (Segments) 
-- Interfaces --------------------------------------------------
{-
   alternatives:
      alternative Cons:
         child hd             : Interface
         child tl             : Interfaces
      alternative Nil:
-}
type Interfaces = [Interface]
-- Segment -----------------------------------------------------
{-
   alternatives:
      alternative Segment:
         child inh            : {[Vertex]}
         child syn            : {[Vertex]}
-}
data Segment = Segment ([Vertex]) ([Vertex]) 
-- Segments ----------------------------------------------------
{-
   alternatives:
      alternative Cons:
         child hd             : Segment
         child tl             : Segments
      alternative Nil:
-}
type Segments = [Segment]