Promote file not found warning message to an error.

This commit is contained in:
Joey Hess 2014-09-11 13:36:28 -04:00
parent 79deba1f51
commit 9ed63d1545
5 changed files with 7 additions and 20 deletions

View file

@ -189,10 +189,9 @@ seekHelper :: ([FilePath] -> Git.Repo -> IO ([FilePath], IO Bool)) -> [FilePath]
seekHelper a params = do
ll <- inRepo $ \g ->
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)) $
fileNotFound p
error $ p ++ " not found"
return $ concat ll
notSymlink :: FilePath -> IO Bool