From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 21 Aug 2025 15:14:19 +0000 (-0400)
Subject: cleanup too long line
X-Git-Tag: archive/raspbian/10.20251029-1+rpi1~1^2~3^2~196
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=132f938a924a66d15e78d1a43e969ba4d1e2f8aa;p=git-annex.git

cleanup too long line
---

diff --git a/Test.hs b/Test.hs
index 7376b61348..5240d3497d 100644
--- a/Test.hs
+++ b/Test.hs
@@ -98,7 +98,7 @@ import qualified Utility.Gpg
 
 optParser :: Parser TestOptions
 optParser = TestOptions
-	<$> snd (tastyParser (tests 1 False (TestOptions mempty False False Nothing mempty False mempty)))
+	<$> snd (tastyParser (tests 1 False defaulttos))
 	<*> switch
 		( long "keep-failures"
 		<> help "preserve repositories on test failure"
@@ -129,6 +129,15 @@ optParser = TestOptions
 			( Git.Types.ConfigKey (encodeBS k)
 			, 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 opts = parallelTestRunner opts tests