dataflow 0.5.1.0 → 0.5.2.0

raw patch · 2 files changed

+9/−2 lines, 2 files

Files

• dataflow.cabal +1/−1
• src/DataFlow/DFD.hs +8/−1

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

@@ -12,14 +12,21 @@ inAngleBrackets s = "<" ++ s ++ ">"  label :: String -> Attr+label "" Attr (ID "label") (ID "") label s = Attr (ID "label") (ID $ inAngleBrackets s)  bold :: String -> String+bold "" = "" bold s = "<b>" ++ s ++ "</b>"  italic :: String -> String+italic "" = "" italic s = "<i>" ++ s ++ "</i>" +small :: String -> String+small "" = ""+small s = "<font point-size=\"10\">" ++ s ++ "</font>"+ convertObject :: C.Object -> StmtList  convertObject (C.InputOutput id' name) = [@@ -66,7 +73,7 @@                        (IDOperand (NodeID (ID i2) Nothing))) [       label $         let d = if null desc then ""-                             else "<font point-size=\"10\">" ++ desc ++ "</font>"+                             else          in bold op ++ "<br/>" ++ d     ]   ]