never executed always true always false

    1 -- GENERATED by C->Haskell Compiler, version 0.28.8 Switcheroo, 25 November 2017 (Haskell)
    2 -- Edit the ORIGNAL .chs file instead!
    3 
    4 
    5 module QuantLib.TermStructure
    6   (
    7     TermStructure
    8   , GenTermStructure
    9   , asTermStructure
   10   , referenceDate
   11   , maxDate
   12   ) where
   13 import qualified Foreign.C.Types as C2HSImp
   14 import qualified Foreign.ForeignPtr as C2HSImp
   15 import qualified Foreign.Ptr as C2HSImp
   16 
   17 
   18 import QuantLib.Internal hiding(maxDate)
   19 import QuantLib.Internal.Type
   20 
   21 
   22 
   23 
   24 
   25 
   26 
   27 
   28 
   29 
   30 -- |the date at which discount = 1.0 and/or variance = 0.0
   31 referenceDate :: (GenTermStructure t) -> IO ((Day))
   32 referenceDate a1 =
   33   withTermStructure a1 $ \a1' -> 
   34   preErrorCheck $ \a2' -> 
   35   referenceDate'_ a1' a2' >>= \res ->
   36   let {res' = toDay res} in
   37   errorCheck  a2'>>
   38   return (res')
   39 
   40 
   41 
   42 -- |the latest date for which the curve can return values
   43 maxDate :: (GenTermStructure t) -> IO ((Day))
   44 maxDate a1 =
   45   withTermStructure a1 $ \a1' -> 
   46   preErrorCheck $ \a2' -> 
   47   maxDate'_ a1' a2' >>= \res ->
   48   let {res' = toDay res} in
   49   errorCheck  a2'>>
   50   return (res')
   51 
   52 
   53 
   54 -- vim: set ff=unix ts=8 sts=2 sw=2 et:
   55 
   56 foreign import ccall safe "QuantLib/TermStructure.chs.h qlTermStructureReferenceDate"
   57   referenceDate'_ :: ((C2HSImp.Ptr (CTermStructure')) -> ((C2HSImp.Ptr (C2HSImp.Ptr C2HSImp.CChar)) -> (IO C2HSImp.CInt)))
   58 
   59 foreign import ccall safe "QuantLib/TermStructure.chs.h qlTermStructureMaxDate"
   60   maxDate'_ :: ((C2HSImp.Ptr (CTermStructure')) -> ((C2HSImp.Ptr (C2HSImp.Ptr C2HSImp.CChar)) -> (IO C2HSImp.CInt)))