changed autoSize to fromToInteger $ fromEnum

sinelaw · Jan 10, 2012 · 60a9740 · 60a9740
1 parent 8a01896
commit 60a9740
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/src/AI/CV/OpenCV/HighGui.hsc b/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