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.Matx
    7     ( -- * Abstract Matx
    8       Matx
    9     , MatxDimR
   10     , MatxDimC
   11     , IsMatx(..)
   12 
   13       -- * Matx's of specific sizes
   14     , Matx12f, Matx12d
   15     , Matx13f, Matx13d
   16     , Matx14f, Matx14d
   17     , Matx16f, Matx16d
   18     , Matx21f, Matx21d
   19     , Matx22f, Matx22d
   20     , Matx23f, Matx23d
   21     , Matx31f, Matx31d
   22     , Matx32f, Matx32d
   23     , Matx33f, Matx33d
   24     , Matx34f, Matx34d
   25     , Matx41f, Matx41d
   26     , Matx43f, Matx43d
   27     , Matx44f, Matx44d
   28     , Matx51f, Matx51d
   29     , Matx61f, Matx61d
   30     , Matx66f, Matx66d
   31 
   32       -- * Constructors
   33     , newMatx12f, newMatx12d
   34     , newMatx13f, newMatx13d
   35     , newMatx14f, newMatx14d
   36     , newMatx16f, newMatx16d
   37     , newMatx21f, newMatx21d
   38     , newMatx22f, newMatx22d
   39     , newMatx23f, newMatx23d
   40     , newMatx31f, newMatx31d
   41     , newMatx32f, newMatx32d
   42     , newMatx33f, newMatx33d
   43     , newMatx34f, newMatx34d
   44     , newMatx41f, newMatx41d
   45     , newMatx43f, newMatx43d
   46     , newMatx44f, newMatx44d
   47     , newMatx51f, newMatx51d
   48     , newMatx61f, newMatx61d
   49     ) where
   50 
   51 import "base" Foreign.C.Types
   52 import qualified "inline-c"     Language.C.Inline as C
   53 import qualified "inline-c-cpp" Language.C.Inline.Cpp as C ( using )
   54 import "this" OpenCV.Internal.C.Inline ( openCvCtx )
   55 import "this" OpenCV.Internal.C.Types
   56 import "this" OpenCV.Internal.Core.Types.Matx
   57 import "this" OpenCV.Internal.Core.Types.Matx.TH
   58 
   59 --------------------------------------------------------------------------------
   60 
   61 C.context openCvCtx
   62 C.include "opencv2/core.hpp"
   63 C.include "haskell_opencv_matx_typedefs.hpp"
   64 C.using "namespace cv"
   65 
   66 mkMatxType "Matx12f" 1 2 ''CFloat  "float"
   67 mkMatxType "Matx12d" 1 2 ''CDouble "double"
   68 mkMatxType "Matx13f" 1 3 ''CFloat  "float"
   69 mkMatxType "Matx13d" 1 3 ''CDouble "double"
   70 mkMatxType "Matx14f" 1 4 ''CFloat  "float"
   71 mkMatxType "Matx14d" 1 4 ''CDouble "double"
   72 mkMatxType "Matx16f" 1 6 ''CFloat  "float"
   73 mkMatxType "Matx16d" 1 6 ''CDouble "double"
   74 mkMatxType "Matx21f" 2 1 ''CFloat  "float"
   75 mkMatxType "Matx21d" 2 1 ''CDouble "double"
   76 mkMatxType "Matx22f" 2 2 ''CFloat  "float"
   77 mkMatxType "Matx22d" 2 2 ''CDouble "double"
   78 mkMatxType "Matx23f" 2 3 ''CFloat  "float"
   79 mkMatxType "Matx23d" 2 3 ''CDouble "double"
   80 mkMatxType "Matx31f" 3 1 ''CFloat  "float"
   81 mkMatxType "Matx31d" 3 1 ''CDouble "double"
   82 mkMatxType "Matx32f" 3 2 ''CFloat  "float"
   83 mkMatxType "Matx32d" 3 2 ''CDouble "double"
   84 mkMatxType "Matx33f" 3 3 ''CFloat  "float"
   85 mkMatxType "Matx33d" 3 3 ''CDouble "double"
   86 mkMatxType "Matx34f" 3 4 ''CFloat  "float"
   87 mkMatxType "Matx34d" 3 4 ''CDouble "double"
   88 mkMatxType "Matx41f" 4 1 ''CFloat  "float"
   89 mkMatxType "Matx41d" 4 1 ''CDouble "double"
   90 mkMatxType "Matx43f" 4 3 ''CFloat  "float"
   91 mkMatxType "Matx43d" 4 3 ''CDouble "double"
   92 mkMatxType "Matx44f" 4 4 ''CFloat  "float"
   93 mkMatxType "Matx44d" 4 4 ''CDouble "double"
   94 mkMatxType "Matx51f" 5 1 ''CFloat  "float"
   95 mkMatxType "Matx51d" 5 1 ''CDouble "double"
   96 mkMatxType "Matx61f" 6 1 ''CFloat  "float"
   97 mkMatxType "Matx61d" 6 1 ''CDouble "double"
   98 mkMatxType "Matx66f" 6 6 ''CFloat  "float"
   99 mkMatxType "Matx66d" 6 6 ''CDouble "double"