diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-09-11 13:36:28 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-09-11 13:36:28 -0400 |
| commit | b0a86d81a39f25f2e57b0e4fd564acc70cbdf850 (patch) | |
| tree | fca828650876bfe16d6ef24cb0f2a516e1c390d9 /CmdLine/Seek.hs | |
| parent | de679a571cc4f8bf6a320222697e40900fd962cf (diff) | |
Promote file not found warning message to an error.
Diffstat (limited to 'CmdLine/Seek.hs')
| -rw-r--r-- | CmdLine/Seek.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/CmdLine/Seek.hs b/CmdLine/Seek.hs index 431b2e118..397a48118 100644 --- a/CmdLine/Seek.hs +++ b/CmdLine/Seek.hs @@ -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 |