withStringResult :: IO (Ptr (TQString a)) -> IO String
withStringResult io
  = do 
    qs <- io
    s <- withQtWStringResult (qtc_QString_GetString qs)
    qtc_QString_Delete qs
    return s
withStringResult :: IO (Ptr (TQString a)) -> IO String
withStringResult io
  = do 
    qs <- io
    s <- withQtWStringResult (qtc_QString_GetString qs)
    qtc_QString_Delete qs
    return s
withStringResult io
  = do 
    qs <- io
    s <- withQtWStringResult (qtc_QString_GetString qs)
    qtc_QString_Delete qs
    return s