Skip to content
Snippets Groups Projects
Commit c5c3c842 authored by Hans-Peter Deifel's avatar Hans-Peter Deifel
Browse files

Remove unused function

parent 2dc8fe1a
No related branches found
No related tags found
No related merge requests found
...@@ -34,12 +34,6 @@ renameIdle label ...@@ -34,12 +34,6 @@ renameIdle label
| "/Idle" `T.isSuffixOf` label = "Idle" | "/Idle" `T.isSuffixOf` label = "Idle"
| otherwise = label | 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" -- | Rename the kickoff edge to the idle thread from "ABBx/kickoff" to "IdleKickoff"
renameIdleKickoff :: Graph Text Text -> Graph Text Text renameIdleKickoff :: Graph Text Text -> Graph Text Text
renameIdleKickoff g = case find ((=="Idle") . G.edgeLabel) (g ^. _graph . to G.labEdges) of renameIdleKickoff g = case find ((=="Idle") . G.edgeLabel) (g ^. _graph . to G.labEdges) of
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment