Fixed a type in 'skeletonize'

aleator · May 8, 2013 · 4baa436 · 4baa436
1 parent b5e60dd
commit 4baa436
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/CV/Morphology.chs b/CV/Morphology.chs
@@ -153,7 +153,7 @@ skeletonize :: Image GrayScale D8 -> Image GrayScale D8
 skeletonize i = fst . snd . head . dropWhile (\x -> fst x > 0) . iterate (skeletonize'.snd)
                 $ (1,(CV.Image.empty (getSize i),i))
 skeletonize' :: (Image GrayScale D8, Image GrayScale D8) -> (Int, (Image GrayScale D8, Image GrayScale D8))
-skeletonize' (skel,img) = (countNonZero tmp, (tmp, erode se 1 img))
+skeletonize' (skel,img) = (IM.countNonZero img, (tmp, erode se 1 img))
     where 
        tmp = unsafeOperateOn img $ openOp se #> IM.notOp #> IM.andOp img Nothing #> IM.orOp skel Nothing
        se = structuringElement (3,3) (1,1) CrossShape