never executed always true always false

    1 {-# language MultiParamTypeClasses #-}
    2 {-# language TemplateHaskell #-}
    3 
    4 {-# OPTIONS_GHC -fno-warn-orphans #-}
    5 
    6 module OpenCV.Core.Types.Point
    7     ( Point
    8     , PointDim
    9     , IsPoint(..)
   10     , IsPoint2
   11     , IsPoint3
   12 
   13     , Point2i, Point2f, Point2d
   14     , Point3i, Point3f, Point3d
   15     ) where
   16 
   17 import "base" Data.Int ( Int32 )
   18 import "base" Foreign.C.Types
   19 import qualified "inline-c"     Language.C.Inline as C
   20 import qualified "inline-c-cpp" Language.C.Inline.Cpp as C ( using )
   21 import "this" OpenCV.Internal.C.Inline ( openCvCtx )
   22 import "this" OpenCV.Internal.C.Types
   23 import "this" OpenCV.Internal.Core.Types.Point
   24 import "this" OpenCV.Internal.Core.Types.Point.TH
   25 
   26 --------------------------------------------------------------------------------
   27 
   28 C.context openCvCtx
   29 C.include "opencv2/core.hpp"
   30 C.using "namespace cv"
   31 
   32 mkPointType "Point2i" 2 "Point_"  ''Int32   "int32_t"
   33 mkPointType "Point2f" 2 "Point_"  ''CFloat  "float"
   34 mkPointType "Point2d" 2 "Point_"  ''CDouble "double"
   35 
   36 mkPointType "Point3i" 3 "Point3_" ''Int32   "int32_t"
   37 mkPointType "Point3f" 3 "Point3_" ''CFloat  "float"
   38 mkPointType "Point3d" 3 "Point3_" ''CDouble "double"