diff --git a/src/AI/CV/OpenCV/HighGui.hsc b/src/AI/CV/OpenCV/HighGui.hsc
index 2f58ce3..84a5fd3 100644
--- 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