diff --git a/dataflow.cabal b/dataflow.cabal
--- a/dataflow.cabal
+++ b/dataflow.cabal
@@ -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
diff --git a/src/DataFlow/DFD.hs b/src/DataFlow/DFD.hs
--- a/src/DataFlow/DFD.hs
+++ b/src/DataFlow/DFD.hs
@@ -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
     ]
   ]