Browse files

Fix read_dir to exclude trashed files

  • Loading branch information...
1 parent c49b354 commit d787cf7c39b42c6806d19f7ff9d3a07f04f40ca2 @astrada committed Jul 15, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/docs.ml
View
2 src/docs.ml
@@ -676,7 +676,7 @@ let read_dir path =
Utils.log_message "Getting folder content (path=%s)\n%!" path;
get_resource path >>= fun resource ->
get_folder_id path >>= fun folder_id ->
- let q = Printf.sprintf "'%s' in parents" folder_id in
+ let q = Printf.sprintf "'%s' in parents and trashed = false" folder_id in
get_all_files q >>= fun files ->
Utils.log_message "Done getting folder content (path=%s)\n%!" path;
SessionM.return (files, resource)

0 comments on commit d787cf7

Please sign in to comment.