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.Size
    7     ( Size
    8     , IsSize(..)
    9 
   10     , Size2i, Size2f, Size2d
   11     ) where
   12 
   13 import "base" Data.Int ( Int32 )
   14 import "base" Foreign.C.Types
   15 import qualified "inline-c"     Language.C.Inline as C
   16 import qualified "inline-c-cpp" Language.C.Inline.Cpp as C ( using )
   17 import "this" OpenCV.Internal.C.Inline ( openCvCtx )
   18 import "this" OpenCV.Internal.C.Types
   19 import "this" OpenCV.Internal.Core.Types.Size
   20 import "this" OpenCV.Internal.Core.Types.Size.TH
   21 
   22 --------------------------------------------------------------------------------
   23 
   24 C.context openCvCtx
   25 C.include "opencv2/core.hpp"
   26 C.using "namespace cv"
   27 
   28 mkSizeType "Size2i" ''Int32   "int32_t"
   29 mkSizeType "Size2f" ''CFloat  "float"
   30 mkSizeType "Size2d" ''CDouble "double"