Commit e00fce23 authored by Bastian Kauschke's avatar Bastian Kauschke
Browse files

use empty string for start state

parent 0f8709f4
...@@ -78,7 +78,7 @@ dot config symbolTable encoding maybePartition = ...@@ -78,7 +78,7 @@ dot config symbolTable encoding maybePartition =
(uncurry (cluster config symbolTable (Encoding.structure encoding))) (uncurry (cluster config symbolTable (Encoding.structure encoding)))
(zip [0..] (Part.toBlocks partition)) (zip [0..] (Part.toBlocks partition))
withOrigin Nothing = "" withOrigin Nothing = ""
withOrigin (Just i) = " start[label=\"start\", shape=plaintext]\n" <> withOrigin (Just i) = " start[label=\"\", shape=plaintext]\n" <>
" start -> s" <> Build.decimal i <> "\n" " start -> s" <> Build.decimal i <> "\n"
in "digraph {\n" <> " compound=true;\n" <> clusters <> in "digraph {\n" <> " compound=true;\n" <> clusters <>
withOrigin (Encoding.initState encoding) <> withOrigin (Encoding.initState encoding) <>
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment