Oops! Amended version.
Mon Nov 19 05:13:26 CET 2007 Eric Kow <[EMAIL PROTECTED]>
* Simplify getCurrentDirectorySansDarcs out of existence.
It was buggy and needlessly complicated.
New patches:
[Simplify getCurrentDirectorySansDarcs out of existence.
Eric Kow <[EMAIL PROTECTED]>**20071119041326
It was buggy and needlessly complicated.
] {
hunk ./src/Darcs/Lock.lhs 36
-import Data.List ( isPrefixOf, inits )
hunk ./src/Darcs/Lock.lhs 63
-#include "impossible.h"
hunk ./src/Darcs/Lock.lhs 175
- look_for_tmp [] = try_directory "/tmp" getCurrentDirectorySansDarcs
+ look_for_tmp [] = try_directory "/tmp" (sansDarcs `fmap` getCurrentDirectory)
hunk ./src/Darcs/Lock.lhs 180
-getCurrentDirectorySansDarcs :: IO FilePath
-getCurrentDirectorySansDarcs = do
- c <- getCurrentDirectory
- case drop 5 $ reverse $ takeWhile no_darcs $ inits c of
- [] -> impossible
- (d:_) -> return d
- where no_darcs x = not $ "_darcs" `isPrefixOf` x
+sansDarcs :: FilePath -> FilePath
+sansDarcs "" = ""
+sansDarcs ('/':'_':'d':'a':'r':'c':'s':_) = ""
+sansDarcs (x:xs) = x : sansDarcs xs
}
Context:
[TAG darcs unstable 2007-11-04
Eric Kow <[EMAIL PROTECTED]>**20071104235616]
Patch bundle hash:
7ce6830afbed903a55c05dc1fb803b2143481e1d
_______________________________________________
darcs-devel mailing list
darcs-devel@darcs.net
http://lists.osuosl.org/mailman/listinfo/darcs-devel
