src/library/Category/TypedGraph/FinalPullbackComplement.hs
Avoid restricted qualification Open
Open
import Data.Graphs as G
- Read upRead up
- Create a ticketCreate a ticket
- Exclude checks
Found
import Data.Graphs as G
Perhaps
import Data.Graphs as Graph
Applying this change:
- may break the code
Move guards forward Open
Open
edgesFromA = [(edgeId e, u, v) |
e <- orphanTypedEdges m,
u <- nodeIdsFromDomain edgesL',
v <- nodeIdsFromDomain edgesL',
sourceId e == applyNodeIdUnsafe edgesL' u,
- Read upRead up
- Create a ticketCreate a ticket
- Exclude checks
Found
[(edgeId e, u, v) | e <- orphanTypedEdges m,
u <- nodeIdsFromDomain edgesL', v <- nodeIdsFromDomain edgesL',
sourceId e == applyNodeIdUnsafe edgesL' u,
targetId e == applyNodeIdUnsafe edgesL' v]
Perhaps
[(edgeId e, u, v) | e <- orphanTypedEdges m,
u <- nodeIdsFromDomain edgesL',
sourceId e == applyNodeIdUnsafe edgesL' u,
v <- nodeIdsFromDomain edgesL',
targetId e == applyNodeIdUnsafe edgesL' v]