From f90ee926544b549fdd512eba647029276716995e Mon Sep 17 00:00:00 2001 From: Matthias Fischmann Date: Fri, 20 Dec 2024 14:43:50 +0100 Subject: [PATCH] Aesthetic surgery. --- integration/test/Testlib/ModService.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/integration/test/Testlib/ModService.hs b/integration/test/Testlib/ModService.hs index 40338685ec3..7378402cb4d 100644 --- a/integration/test/Testlib/ModService.hs +++ b/integration/test/Testlib/ModService.hs @@ -50,7 +50,7 @@ import Prelude withModifiedBackend :: (HasCallStack) => ServiceOverrides -> ((HasCallStack) => String -> App a) -> App a withModifiedBackend overrides k = - startDynamicBackends [overrides] (\domains -> k (head domains)) + startDynamicBackends [overrides] (\[domains] -> k domains) copyDirectoryRecursively :: FilePath -> FilePath -> IO () copyDirectoryRecursively from to = do