Dot.hs

-- Note: this is an automatically generated file. Do not edit.
-- | A model from the Graphviz DOT graph description language. Based on the grammar at https://graphviz.org/doc/info/lang.html

module Hydra.Graphviz.Dot where
import qualified Hydra.Core as Core
import Prelude hiding  (Enum, Ordering, decodeFloat, encodeFloat, fail, map, pure, sum)
import qualified Data.Scientific as Sci
newtype Id =
  Id {
    unId :: String}
  deriving (Eq, Ord, Read, Show)
_Id = Core.Name "hydra.graphviz.dot.Id"
data Graph =
  Graph {
    graphStrict :: Bool,
    graphDirected :: Bool,
    graphId :: (Maybe Id),
    graphStatements :: [Stmt]}
  deriving (Eq, Ord, Read, Show)
_Graph = Core.Name "hydra.graphviz.dot.Graph"
_Graph_strict = Core.Name "strict"
_Graph_directed = Core.Name "directed"
_Graph_id = Core.Name "id"
_Graph_statements = Core.Name "statements"
data Stmt =
  StmtNode NodeStmt |
  StmtEdge EdgeStmt |
  StmtAttr AttrStmt |
  StmtEquals EqualityPair |
  StmtSubgraph Subgraph
  deriving (Eq, Ord, Read, Show)
_Stmt = Core.Name "hydra.graphviz.dot.Stmt"
_Stmt_node = Core.Name "node"
_Stmt_edge = Core.Name "edge"
_Stmt_attr = Core.Name "attr"
_Stmt_equals = Core.Name "equals"
_Stmt_subgraph = Core.Name "subgraph"
data EqualityPair =
  EqualityPair {
    equalityPairLeft :: Id,
    equalityPairRight :: Id}
  deriving (Eq, Ord, Read, Show)
_EqualityPair = Core.Name "hydra.graphviz.dot.EqualityPair"
_EqualityPair_left = Core.Name "left"
_EqualityPair_right = Core.Name "right"
data AttrStmt =
  AttrStmt {
    attrStmtType :: AttrType,
    attrStmtAttributes :: AttrList}
  deriving (Eq, Ord, Read, Show)
_AttrStmt = Core.Name "hydra.graphviz.dot.AttrStmt"
_AttrStmt_type = Core.Name "type"
_AttrStmt_attributes = Core.Name "attributes"
data AttrType =
  AttrTypeGraph |
  AttrTypeNode |
  AttrTypeEdge
  deriving (Eq, Ord, Read, Show)
_AttrType = Core.Name "hydra.graphviz.dot.AttrType"
_AttrType_graph = Core.Name "graph"
_AttrType_node = Core.Name "node"
_AttrType_edge = Core.Name "edge"
newtype AttrList =
  AttrList {
    unAttrList :: [[EqualityPair]]}
  deriving (Eq, Ord, Read, Show)
_AttrList = Core.Name "hydra.graphviz.dot.AttrList"
data EdgeStmt =
  EdgeStmt {
    edgeStmtLeft :: NodeOrSubgraph,
    edgeStmtRight :: [NodeOrSubgraph],
    edgeStmtAttributes :: (Maybe AttrList)}
  deriving (Eq, Ord, Read, Show)
_EdgeStmt = Core.Name "hydra.graphviz.dot.EdgeStmt"
_EdgeStmt_left = Core.Name "left"
_EdgeStmt_right = Core.Name "right"
_EdgeStmt_attributes = Core.Name "attributes"
data NodeOrSubgraph =
  NodeOrSubgraphNode NodeId |
  NodeOrSubgraphSubgraph Subgraph
  deriving (Eq, Ord, Read, Show)
_NodeOrSubgraph = Core.Name "hydra.graphviz.dot.NodeOrSubgraph"
_NodeOrSubgraph_node = Core.Name "node"
_NodeOrSubgraph_subgraph = Core.Name "subgraph"
data NodeStmt =
  NodeStmt {
    nodeStmtId :: NodeId,
    nodeStmtAttributes :: (Maybe AttrList)}
  deriving (Eq, Ord, Read, Show)
_NodeStmt = Core.Name "hydra.graphviz.dot.NodeStmt"
_NodeStmt_id = Core.Name "id"
_NodeStmt_attributes = Core.Name "attributes"
data NodeId =
  NodeId {
    nodeIdId :: Id,
    nodeIdPort :: (Maybe Port)}
  deriving (Eq, Ord, Read, Show)
_NodeId = Core.Name "hydra.graphviz.dot.NodeId"
_NodeId_id = Core.Name "id"
_NodeId_port = Core.Name "port"
data Port =
  Port {
    portId :: (Maybe Id),
    portPosition :: (Maybe CompassPt)}
  deriving (Eq, Ord, Read, Show)
_Port = Core.Name "hydra.graphviz.dot.Port"
_Port_id = Core.Name "id"
_Port_position = Core.Name "position"
data Subgraph =
  Subgraph {
    subgraphSubgraphId :: (Maybe SubgraphId),
    subgraphStatements :: [Stmt]}
  deriving (Eq, Ord, Read, Show)
_Subgraph = Core.Name "hydra.graphviz.dot.Subgraph"
_Subgraph_subgraphId = Core.Name "subgraphId"
_Subgraph_statements = Core.Name "statements"
newtype SubgraphId =
  SubgraphId {
    unSubgraphId :: (Maybe Id)}
  deriving (Eq, Ord, Read, Show)
_SubgraphId = Core.Name "hydra.graphviz.dot.SubgraphId"
data CompassPt =
  CompassPtN |
  CompassPtNe |
  CompassPtE |
  CompassPtSe |
  CompassPtS |
  CompassPtSw |
  CompassPtW |
  CompassPtNw |
  CompassPtC |
  CompassPtNone
  deriving (Eq, Ord, Read, Show)
_CompassPt = Core.Name "hydra.graphviz.dot.CompassPt"
_CompassPt_n = Core.Name "n"
_CompassPt_ne = Core.Name "ne"
_CompassPt_e = Core.Name "e"
_CompassPt_se = Core.Name "se"
_CompassPt_s = Core.Name "s"
_CompassPt_sw = Core.Name "sw"
_CompassPt_w = Core.Name "w"
_CompassPt_nw = Core.Name "nw"
_CompassPt_c = Core.Name "c"
_CompassPt_none = Core.Name "none"