Aesthetic surgery.

wireapp · Dec 20, 2024 · f90ee92 · f90ee92
1 parent 26f8961
commit f90ee92
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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