dataflow 0.5.2.0 → 0.5.3.0

raw patch · 2 files changed

+3/−6 lines, 2 files

Files

dataflow.cabal +1/−1
src/DataFlow/DFD.hs +2/−5

dataflow.cabal view

@@ -1,5 +1,5 @@ name:                dataflow-version:             0.5.2.0+version:             0.5.3.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 output format

src/DataFlow/DFD.hs view

@@ -12,7 +12,7 @@ inAngleBrackets s = "<" ++ s ++ ">"  label :: String -> Attr-label "" Attr (ID "label") (ID "")+label "" = Attr (ID "label") (ID "") label s = Attr (ID "label") (ID $ inAngleBrackets s)  bold :: String -> String@@ -71,10 +71,7 @@     EdgeStmt (EdgeExpr (IDOperand (NodeID (ID i1) Nothing))                        Arrow                        (IDOperand (NodeID (ID i2) Nothing))) [-      label $-        let d = if null desc then ""-                             else -        in bold op ++ "<br/>" ++ d+      label $ bold op ++ "<br/>" ++ small desc     ]   ]