diff --git a/src/Compare/Preprocess.hs b/src/Compare/Preprocess.hs index 97de5efa3b62d04f33b5313bd62e55d3c8d0a982..394e13a47ecf9f759fda72423d7a1bc960f1cc36 100644 --- a/src/Compare/Preprocess.hs +++ b/src/Compare/Preprocess.hs @@ -15,10 +15,11 @@ import Compare.Types.Lenses import Compare.SSEGraph import Search.EpsilonElimination -preprocess :: Graph Text SSEEdgeLabel -> Graph Text Text +preprocess :: Graph Int SSEEdgeLabel -> Graph Text Text preprocess g = g & eliminateEpsilons & _graph %~ (G.emap _unSSEEdgeLabel) & _graph %~ (G.emap (renameIdle . renameStartOS . stripArgument)) + & _graph %~ (G.nmap (T.pack . show)) & renameIdleKickoff -- | Rename the startOSEdge from "ABBx/StartOS" to "StartOS"