diff --git a/src/Compare/Preprocess.hs b/src/Compare/Preprocess.hs index 394e13a47ecf9f759fda72423d7a1bc960f1cc36..91653d95d2313db806dea9a7774c32b1160724be 100644 --- a/src/Compare/Preprocess.hs +++ b/src/Compare/Preprocess.hs @@ -34,12 +34,6 @@ renameIdle label | "/Idle" `T.isSuffixOf` label = "Idle" | otherwise = label --- edge :: Eq e => e -> Lens' (Graph n e) (Maybe (G.LEdge e)) --- edge lab = lens getter setter --- where --- getter g = find ((==lab) . view edgeLabel) (G.labEdges (g^._graph)) --- setter g Nothing = _ - -- | Rename the kickoff edge to the idle thread from "ABBx/kickoff" to "IdleKickoff" renameIdleKickoff :: Graph Text Text -> Graph Text Text renameIdleKickoff g = case find ((=="Idle") . G.edgeLabel) (g ^. _graph . to G.labEdges) of