dot2graphml 0.1.0.0 → 0.1.0.1
raw patch · 2 files changed
+5/−5 lines, 2 filesdep ~graphviz
Dependency ranges changed: graphviz
Files
- dot2graphml.cabal +2/−2
- dot2graphml.hs +3/−3
dot2graphml.cabal view
@@ -1,5 +1,5 @@ name: dot2graphml-version: 0.1.0.0+version: 0.1.0.1 synopsis: Converter from GraphViz .dot format to yEd GraphML description: This package contains a converter from DOT format used by GraphViz (http://graphviz.org) to variant of GraphML@@ -21,7 +21,7 @@ build-depends: base > 4 && < 5, containers >= 0.4, hxt >= 9.2,- graphviz,+ graphviz >= 2999.16.0.0, text >= 0.11.2.3 Source-repository head
dot2graphml.hs view
@@ -153,7 +153,7 @@ mkqelem geometry [sattr "height" "30.0", sattr "width" "30.0", sattr "x" "0.0", sattr "y" "0.0"] [], mkqelem fill [clrAttr color, sattr "transparent" "false"] [], mkqelem border [sattr "color" "#000000", sattr "type" "line", sattr "width" "1.0"] [],- mkqelem shape [sattr "type" "rectangle"] [],+ mkqelem shape [sattr "type" "ellipse"] [], mkqelem nodeLabel [sattr "alignment" "center", sattr "autoSizePolicy" "content", sattr "hasBackgroundColor" "false",@@ -177,7 +177,7 @@ sattr "closedHeight" "50.0", sattr "closedWidth" "50.0", sattr "innerGraphDisplayEnabled" "false"] [],- mkqelem shape [sattr "type" "rectangle"] [],+ mkqelem shape [sattr "type" "ellipse"] [], lbl ], mkqelem groupNode [] [@@ -211,7 +211,7 @@ getColor attrs = case concat [clr | Color clr <- attrs] of [] -> Nothing- (RGB r g b:_) -> Just $ printf "#%02x%02x%02x" r g b+ (WC (RGB r g b) _:_) -> Just $ printf "#%02x%02x%02x" r g b _ -> Nothing main :: IO ()