Permalink
Browse files

hasIsolated does not need to call hasItem.

  • Loading branch information...
1 parent 78c1659 commit 908755159096b7447fb5fb2b7f0d933833bbd25a @odf committed Jan 22, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 Graph.hs
View
@@ -58,7 +58,7 @@ hasInternal :: Reticular a ra => ra -> GraphItem a -> Bool
hasInternal g v = (hasItem g v) && (not $ hasSource g v) && (not $ hasSink g v)
hasIsolated :: Reticular a ra => ra -> GraphItem a -> Bool
-hasIsolated g v = (hasItem g v) && (hasSource g v) && (hasSink g v)
+hasIsolated g v = (hasSource g v) && (hasSink g v)
instance Eq a => Reticular a (GraphItem a) where

0 comments on commit 9087551

Please sign in to comment.