|  |  |  | @ -96,11 +96,11 @@ | 
		
	
		
			
				|  |  |  |  |                 -[:permission {type:{type}}]- | 
		
	
		
			
				|  |  |  |  |                 (s)) AS is_public") | 
		
	
		
			
				|  |  |  |  | 
 | 
		
	
		
			
				|  |  |  |  | (defn has-user-permission? [type schema-uuid user-uuid] | 
		
	
		
			
				|  |  |  |  | (defn has-user-permission? [perm-type schema-uuid user-uuid] | 
		
	
		
			
				|  |  |  |  |   (let [permissions (first (neo4j/exec-query! schema-permissions | 
		
	
		
			
				|  |  |  |  |                                               {:schema_uuid schema-uuid | 
		
	
		
			
				|  |  |  |  |                                                :user_uuid user-uuid | 
		
	
		
			
				|  |  |  |  |                                                :type type})) | 
		
	
		
			
				|  |  |  |  |                                                :type perm-type})) | 
		
	
		
			
				|  |  |  |  |         public? (neo4j/bool (:is_public permissions)) | 
		
	
		
			
				|  |  |  |  |         user? (neo4j/bool (:user_has_permission permissions))] | 
		
	
		
			
				|  |  |  |  |     (or public? user?))) | 
		
	
	
		
			
				
					|  |  |  | 
 |