Browse files

changed autoSize to fromToInteger $ fromEnum

  • Loading branch information...
1 parent 8a01896 commit 60a974081bc62398a63bcea693b8de7c122123b5 Chris Moline committed Jan 10, 2012
Showing with 1 addition and 3 deletions.
  1. +1 −3 src/AI/CV/OpenCV/HighGui.hsc
View
4 src/AI/CV/OpenCV/HighGui.hsc
@@ -82,11 +82,9 @@ type AutoSize = Bool
titledWindow :: String -> AutoSize -> IO Int
titledWindow s a
= do cs <- newCString s
- i <- cvNamedWindow cs (autoSize a)
+ i <- cvNamedWindow cs (fromToInteger $ fromEnum a)
return $ fromToInteger i
- where autoSize b = if b then 1 else 0
-
fromToInteger :: (Integral a, Num b) => a -> b
fromToInteger = fromInteger . toInteger

0 comments on commit 60a9740

Please sign in to comment.