dataflow-0.5.0.0: examples/legend.hs

module Main where

import DataFlow.Core
import DataFlow.Graphviz.Renderer
import DataFlow.DFD

main :: IO ()
main = putStr $ renderGraphviz $ asDFD $
  Diagram Nothing [
    TrustBoundary "trust" "TrustBoundary" [
      Function "function" "Function",
      Database "database" "Database",
      InputOutput "io" "InputOutput"
    ],
    Flow "function" "io" "Flow" "",
    Flow "io" "function" "Flow" "(backwards)",
    Flow "function" "database" "Flow" ""
  ]