never executed always true always false

    1 {-# language ConstraintKinds #-}
    2 {-# language MultiParamTypeClasses #-}
    3 {-# language TemplateHaskell #-}
    4 
    5 {-# OPTIONS_GHC -fno-warn-orphans #-}
    6 
    7 module OpenCV.Core.Types.Vec
    8     ( Vec
    9     , VecDim
   10     , IsVec(..)
   11 
   12     , Vec2i, Vec2f, Vec2d
   13     , Vec3i, Vec3f, Vec3d
   14     , Vec4i, Vec4f, Vec4d
   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.Vec
   24 import "this" OpenCV.Internal.Core.Types.Vec.TH
   25 
   26 --------------------------------------------------------------------------------
   27 
   28 C.context openCvCtx
   29 C.include "opencv2/core.hpp"
   30 C.using "namespace cv"
   31 
   32 mkVecType "Vec2i" 2 ''Int32   "int32_t"
   33 mkVecType "Vec2f" 2 ''CFloat  "float"
   34 mkVecType "Vec2d" 2 ''CDouble "double"
   35 
   36 mkVecType "Vec3i" 3 ''Int32   "int32_t"
   37 mkVecType "Vec3f" 3 ''CFloat  "float"
   38 mkVecType "Vec3d" 3 ''CDouble "double"
   39 
   40 mkVecType "Vec4i" 4 ''Int32   "int32_t"
   41 mkVecType "Vec4f" 4 ''CFloat  "float"
   42 mkVecType "Vec4d" 4 ''CDouble "double"