Split lines for DFD output

sonyxperiadev · Aug 20, 2015 · c011656 · c011656
1 parent dd80d70
commit c011656
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/DataFlow/DFD.hs b/src/DataFlow/DFD.hs
@@ -84,7 +84,7 @@ convertFlow (C.Flow i1 i2 attrs) = do
     let stepStr = color "#3184e4" $ bold $ printf "(%d) " s
 
         asRows :: C.Value -> [String]
-        asRows (C.String s) = [s]
+        asRows (C.String s) = lines s
         asRows (C.Array vs) = concatMap asRows vs
 
         rowsToTable :: [String] -> String