withQListDouble :: [Double] -> (CInt -> Ptr CDouble -> IO b) -> IO b
withQListDouble xs f
  = withArray (map toCDouble xs) $ \carr ->
    f (toCInt (length xs)) carr
withQListDouble :: [Double] -> (CInt -> Ptr CDouble -> IO b) -> IO b
withQListDouble xs f
  = withArray (map toCDouble xs) $ \carr ->
    f (toCInt (length xs)) carr
withQListDouble xs f
  = withArray (map toCDouble xs) $ \carr ->
    f (toCInt (length xs)) carr