From 6543d5406c64bb00a58e74305ec9ca09a49faf0b Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 3 Apr 2013 03:52:41 -0400
Subject: hlint

---
 Seek.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Seek.hs')

diff --git a/Seek.hs b/Seek.hs
index 6f87e8e6c..70f5a907b 100644
--- a/Seek.hs
+++ b/Seek.hs
@@ -28,7 +28,7 @@ seekHelper a params = do
 		runSegmentPaths (\fs -> Git.Command.leaveZombie <$> a fs g) params
 	{- Show warnings only for files/directories that do not exist. -}
 	forM_ (map fst $ filter (null . snd) $ zip params ll) $ \p ->
-		unlessM (isJust <$> (liftIO $ catchMaybeIO $ getSymbolicLinkStatus p)) $
+		unlessM (isJust <$> liftIO (catchMaybeIO $ getSymbolicLinkStatus p)) $
 			fileNotFound p
 	return $ concat ll
 
-- 
cgit v1.2.3