addply linter

smatting · smatting · commit 3c3ca13070da · 2023-04-27T15:00:59.000+02:00
diff --git a/integration/Setup.hs b/integration/Setup.hs
@@ -117,7 +117,7 @@ testHooks hooks =
                   "allTests :: [(String, String, String, String, App ())]",
                   "allTests =",
                   "  [",
-                  "    " <> intercalate ",\n    " (map (\(m, n, s, f) -> "(" <> intercalate ", " [show m, show n, show s, show f, (m <> "." <> n)] <> ")") tests),
+                  "    " <> intercalate ",\n    " (map (\(m, n, s, f) -> "(" <> intercalate ", " [show m, show n, show s, show f, m <> "." <> n] <> ")") tests),
                   "  ]"
                 ]
             )

Original file line number	Diff line number	Diff line change
`@@ -117,7 +117,7 @@ testHooks hooks =`
`117`	`117`	`"allTests :: [(String, String, String, String, App ())]",`
`118`	`118`	`"allTests =",`
`119`	`119`	`" [",`
`120`		`- " " <> intercalate ",\n " (map (\(m, n, s, f) -> "(" <> intercalate ", " [show m, show n, show s, show f, (m <> "." <> n)] <> ")") tests),`
	`120`	`+ " " <> intercalate ",\n " (map (\(m, n, s, f) -> "(" <> intercalate ", " [show m, show n, show s, show f, m <> "." <> n] <> ")") tests),`
`121`	`121`	`" ]"`
`122`	`122`	`]`
`123`	`123`	`)`