mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

cleanup too long line

Browse source
This commit is contained in:
Joey Hess 2025-08-21 11:14:19 -04:00
commit 132f938a92
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Test.hs
View file

@ -98,7 +98,7 @@ import qualified Utility.Gpg
optParser :: Parser TestOptions optParser :: Parser TestOptions
optParser = TestOptions optParser = TestOptions
<$> snd (tastyParser (tests 1 False (TestOptions mempty False False Nothing mempty False mempty))) <$> snd (tastyParser (tests 1 False defaulttos))
<*> switch <*> switch
( long "keep-failures" ( long "keep-failures"
<> help "preserve repositories on test failure" <> help "preserve repositories on test failure"
@ -129,6 +129,15 @@ optParser = TestOptions
( Git.Types.ConfigKey (encodeBS k) ( Git.Types.ConfigKey (encodeBS k)
, Git.Types.ConfigValue (encodeBS (drop 1 v)) , Git.Types.ConfigValue (encodeBS (drop 1 v))
) )
defaulttos = TestOptions
{ tastyOptionSet = mempty
, keepFailuresOption = False
, fakeSsh = False
, concurrentJobs = Nothing
, testGitConfig = mempty
, testDebug = False
, internalData = mempty
}
runner :: TestOptions -> IO () runner :: TestOptions -> IO ()
runner opts = parallelTestRunner opts tests runner opts = parallelTestRunner opts tests