1 files changed, 3 insertions, 0 deletions
diff --git a/Seek.hs b/Seek.hs
index cfcab430e..a531d2247 100644
--- a/Seek.hs
+++ b/Seek.hs
@@ -127,3 +127,6 @@ notSymlink f = liftIO $ not . isSymbolicLink <$> getSymbolicLinkStatus f
 
 whenNotDirect :: CommandSeek -> CommandSeek
 whenNotDirect a params = ifM isDirect ( return [] , a params )
+
+whenDirect :: CommandSeek -> CommandSeek
+whenDirect a params = ifM isDirect ( a params, return [] )