outputResult opts (Right results) = putStrLn [i|digraph {#{unl $ concatMap graph (filter crit ung)}}|]
  where
  unl s = "\n" ++ unlines (map ("\t" ++) s)
  ung   = if (flatten opts) then N.flatten results else results
  rt    = concatMap refs ung
  crit  = criteria (edges opts) rt
outputResult opts (Right results) = putStrLn [i|digraph {#{unl $ concatMap graph (filter crit ung)}}|]
  where
  unl s = "\n" ++ unlines (map ("\t" ++) s)
  ung   = if (flatten opts) then N.flatten results else results
  rt    = concatMap refs ung
  crit  = criteria (edges opts) rt
outputResult opts (Right results) = putStrLn [i|digraph {#{unl $ concatMap graph (filter crit ung)}}|]
  where
  unl s = "\n" ++ unlines (map ("\t" ++) s)
  ung   = if (flatten opts) then N.flatten results else results
  rt    = concatMap refs ung
  crit  = criteria (edges opts) rt