                                   (castFunPtrToPtr cCallback)
     where _ = {# call file_query_info_async #}
 
+fileQueryInfoFinish :: FileClass file
+                    => file
+                    -> AsyncResult
+                    -> IO FileInfo
+fileQueryInfoFinish file asyncResult =
+    propagateGError ({#call file_query_info_finish #} (toFile file) asyncResult) >>= takeGObject
+
 fileQueryExists :: FileClass file
                 => file
                 -> Maybe Cancellable

        propagateGError (g_file_query_filesystem_info cFile cAttributes cCancellable) >>=
        takeGObject
    where _ = {# call file_query_filesystem_info #}

    fileReplaceFinish,
    fileQueryInfo,
    fileQueryInfoAsync,
    fileQueryInfoFinish,
    fileQueryExists,
    fileQueryFilesystemInfo,
    fileQueryFilesystemInfoAsync,
    fileQueryFilesystemInfoFinish,
    fileQueryDefaultHandler,
    fileFindEnclosingMount,
    fileFindEnclosingMountAsync,
    fileFindEnclosingMountFinish,
    fileEnumerateChildren,
    fileEnumerateChildrenAsync,
    fileEnumerateChildrenFinish,
    fileSetDisplayName,
    fileSetDisplayNameAsync,
    fileSetDisplayNameFinish,
    fileDelete,
    fileTrash,
    ) where

import Control.Monad
