Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

changed autoSize to fromToInteger $ fromEnum

  • Loading branch information...
commit 60a974081bc62398a63bcea693b8de7c122123b5 1 parent 8a01896
@drull95 drull95 authored
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
Please sign in to comment.
Something went wrong with that request. Please try again.