[darcs-users] darcs patch: Roll back the getSymbolicLinkStatus work... (and 3 more)

[Petr Rockai]

Eric Kow <kowey at darcs.net> writes:

> Slightly refactor test machinery in Setup.lhs.
> ----------------------------------------------
>> Petr Rockai <me at mornfall.net>**20090714134119
>>  Ignore-this: 32206a331658d407d9c0fb3b48405db6
>> ] hunk ./Setup.lhs 286
>>      createDirectory ".darcs"
>>      when (not $ null fmt) $ appendFile ".darcs/defaults" $ "ALL " ++ fmt ++ "\n"
>>      putStrLn $ "Running tests for format: " ++ fmt
>> -    exec
>> - where exec = do
>> -         fs <- case tests of
>> -                  [] -> sort `fmap` getDirectoryContents "."
>> -                  x -> return x
>> -         cwd <- getCurrentDirectory
>> -         let run = filter isTest fs
>> -         res <- Harness.runTests (Just darcs_path) cwd run
>> -         when ((not res) && (k /= Bug)) $ fail "Tests failed"
>> -         return ()
>
> I wonder what the intention behind this original helper function was.
Me too! (I wrote it.)

Yours,
   Petr.