cstringFromPtr :: Ptr (TQByteArray a) -> IO String
cstringFromPtr qptr
  = do s <- withQtStringResult (qtc_QByteArray_GetByteArray qptr)
       qtc_QByteArray_Delete qptr
       return s
cstringFromPtr :: Ptr (TQByteArray a) -> IO String
cstringFromPtr qptr
  = do s <- withQtStringResult (qtc_QByteArray_GetByteArray qptr)
       qtc_QByteArray_Delete qptr
       return s
cstringFromPtr qptr
  = do s <- withQtStringResult (qtc_QByteArray_GetByteArray qptr)
       qtc_QByteArray_Delete qptr
       return s