Added query

1 files changed, 6 insertions, 0 deletions

diff --git a/Spear/Scene/Scene.hs b/Spear/Scene/Scene.hs
index b58c149..57a9a40 100644
--- a/Spear/Scene/Scene.hs
+++ b/Spear/Scene/Scene.hs
@@ -10,6 +10,7 @@ module Spear.Scene.Scene
 ,   Spear.Scene.Scene.filter
     -- * Queries
 ,   find
+,   query
     -- * Update and render
 ,   update
 ,   updateM
@@ -75,6 +76,11 @@ find :: (obj -> Bool) -> Scene obj -> Maybe obj
 find pred (scene@ListScene {}) = L.find pred $ objects scene
 
 
+-- | Return all objects that satisfy the given predicate.
+query :: (obj -> Bool) -> Scene obj -> [obj]
+query pred (scene@ListScene {}) = L.filter pred $ objects scene
+
+
 type Update obj = obj -> obj