dataflow 0.3.1.0 → 0.3.2.0

raw patch · 3 files changed

+12/−10 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• dataflow.cabal +1/−1
• src/DataFlow/Core.hs +4/−4
• src/DataFlow/DFD.hs +7/−5

@@ -1,5 +1,5 @@ name:                dataflow-version:             0.3.1.0+version:             0.3.2.0 synopsis:            Generate Graphviz documents from a Haskell representation. description:         Outputs .dot files that can be processed by the dot                      command. Currently it only supports the DFD format.

@@ -71,8 +71,8 @@   writeln ">;"  tag :: String -> String -> Gen () -> Gen ()-tag t attrs contents = do-  write $ "<" ++ t ++ (if null attrs then "" else " " ++ attrs) ++ ">"+tag t a contents = do+  write $ "<" ++ t ++ (if null a then "" else " " ++ a) ++ ">"   contents   write $ "</" ++ t ++ ">" @@ -100,6 +100,6 @@   withIndent attributes   writeln [after] -useFont :: ID -> String -> Gen ()-useFont id' font = objectWith brackets id' $ writeln $ "fontname = \"" ++ font ++ "\";"+attrs :: ID -> String -> Gen ()+attrs id' = objectWith brackets id' . writeln 

@@ -21,9 +21,9 @@       mapM_ dfd objects       blank       writeln "fontsize = 10;"-      writeln "fontcolor = gray25;"+      writeln "fontcolor = grey30;"       label $ write name-      writeln "graph[style = dashed];"+      writeln "graph[style = dashed, color=grey30];"     writeln "}"    dfd (Process id' name) = objectWith brackets id' $ do@@ -53,14 +53,16 @@   dfd (Diagram title objects) = do     writeln $ "digraph \"" ++ title ++ "\" {"     withIndent $ do-      useFont "graph" "sans-serif"-      useFont "node" "sans-serif"-      useFont "edge" "sans-serif"+      attrs "graph" "fontname=\"sans-serif\""+      attrs "node" "fontname=\"sans-serif\""+      attrs "edge" "fontname=\"sans-serif\", fontsize=12"       blank        writeln "labelloc = \"t\";"       label $ bold $ write title+      writeln "fontsize = 20;" +      writeln "nodesep = 1;"       writeln "rankdir = LR;"        mapM_ dfd objects