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 =
(uncurry (cluster config symbolTable (Encoding.structure encoding)))
(zip [0..] (Part.toBlocks partition))
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"
in "digraph {\n" <> " compound=true;\n" <> clusters <>
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