src/Darcs/Repository/Internal.hs line~397:
findRepository :: WorkRepo -> IO (Either String ())
findRepository (WorkRepoURL d) | isFile d =
do setCurrentDirectory d `catchall` fail ("can't set directory
to "++d)
findRepository WorkRepoCurrentDir
findRepository (WorkRepoDir d) =
do setCurrentDirectory d `catchall` fail ("can't set directory
to "++d)
findRepository WorkRepoCurrentDir
findRepository _ = maybe (Right ()) id <$> seekRepo
that first case (with the guard) looks stupid - C&P? It should
presumably just fail, since a repo can't be "in" a file...
I'm in the middle of a de-lint session, so recording this for later
|