language-dot 0.0.9 → 0.1.0

raw patch · 2 files changed

+18/−18 lines, 2 files

Files

language-dot.cabal +1/−1
src/Language/Dot/Syntax.hs +17/−17

language-dot.cabal view

@@ -1,5 +1,5 @@ name:         language-dot-version:      0.0.9+version:      0.1.0 category:     Language synopsis:     A library for the analysis and creation of Graphviz DOT files description:  A library for the analysis and creation of Graphviz DOT files.

src/Language/Dot/Syntax.hs view

@@ -4,17 +4,17 @@  data Graph   = Graph GraphStrictness GraphDirectedness (Maybe Id) [Statement]-  deriving (Eq, Show)+  deriving (Eq, Ord, Show)  data GraphStrictness   = StrictGraph   | UnstrictGraph-  deriving (Eq, Show)+  deriving (Eq, Ord, Show, Enum, Bounded)  data GraphDirectedness   = DirectedGraph   | UndirectedGraph-  deriving (Eq, Show)+  deriving (Eq, Ord, Show, Enum, Bounded)  data Id   = NameId    String@@ -22,7 +22,7 @@   | IntegerId Integer   | FloatId   Float   | XmlId     Xml-  deriving (Eq, Show)+  deriving (Eq, Ord, Show)  data Statement   = NodeStatement       NodeId [Attribute]@@ -30,63 +30,63 @@   | AttributeStatement  AttributeStatementType [Attribute]   | AssignmentStatement Id Id   | SubgraphStatement   Subgraph-  deriving (Eq, Show)+  deriving (Eq, Ord, Show)  data AttributeStatementType   = GraphAttributeStatement   | NodeAttributeStatement   | EdgeAttributeStatement-  deriving (Eq, Show)+  deriving (Eq, Ord, Show, Enum, Bounded)  data Attribute   = AttributeSetTrue  Id   | AttributeSetValue Id Id-  deriving (Eq, Show)+  deriving (Eq, Ord, Show)  data NodeId   = NodeId Id (Maybe Port)-  deriving (Eq, Show)+  deriving (Eq, Ord, Show)  data Port   = PortI Id (Maybe Compass)   | PortC Compass-  deriving (Eq, Show)+  deriving (Eq, Ord, Show)  data Compass   = CompassN  | CompassE  | CompassS  | CompassW   | CompassNE | CompassNW | CompassSE | CompassSW-  deriving (Eq, Show)+  deriving (Eq, Ord, Show)  data Subgraph   = NewSubgraph (Maybe Id) [Statement]   | SubgraphRef Id-  deriving (Eq, Show)+  deriving (Eq, Ord, Show)  data Entity   = ENodeId   EdgeType NodeId   | ESubgraph EdgeType Subgraph-  deriving (Eq, Show)+  deriving (Eq, Ord, Show)  data EdgeType   = NoEdge   | DirectedEdge   | UndirectedEdge-  deriving (Eq, Show)+  deriving (Eq, Ord, Show, Enum, Bounded)  data Xml   = XmlEmptyTag XmlName [XmlAttribute]   | XmlTag      XmlName [XmlAttribute] [Xml]   | XmlText     String-  deriving (Eq, Show)+  deriving (Eq, Ord, Show)  data XmlName   = XmlName String-  deriving (Eq, Show)+  deriving (Eq, Ord, Show)  data XmlAttribute   = XmlAttribute XmlName XmlAttributeValue-  deriving (Eq, Show)+  deriving (Eq, Ord, Show)  data XmlAttributeValue   = XmlAttributeValue String-  deriving (Eq, Show)+  deriving (Eq, Ord, Show)