src/library/Data/TypedGraph/Partition/FromVerigraph.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
Redundant bracket Open
Open
injEdges = filter (\x -> (all (\e' -> TGM.applyEdgeIdUnsafe n e' /= x) (TG.edgeIds $ TGM.domainGraph n))) (TG.edgeIds $ TGM.codomainGraph n)
- Read upRead up
- Create a ticketCreate a ticket
- Exclude checks
Found
\ x ->
(all (\ e' -> TGM.applyEdgeIdUnsafe n e' /= x)
(TG.edgeIds $ TGM.domainGraph n))
Perhaps
\ x ->
all (\ e' -> TGM.applyEdgeIdUnsafe n e' /= x)
(TG.edgeIds $ TGM.domainGraph n)
Redundant bracket Open
Open
injNodes = filter (\x -> (all (\n' -> TGM.applyNodeIdUnsafe n n' /= x) (TG.nodeIds $ TGM.domainGraph n))) (TG.nodeIds $ TGM.codomainGraph n)
- Read upRead up
- Create a ticketCreate a ticket
- Exclude checks
Found
\ x ->
(all (\ n' -> TGM.applyNodeIdUnsafe n n' /= x)
(TG.nodeIds $ TGM.domainGraph n))
Perhaps
\ x ->
all (\ n' -> TGM.applyNodeIdUnsafe n n' /= x)
(TG.nodeIds $ TGM.domainGraph n)