blob: 3542141738b95f499ff8e79cd47e8e2b2d309c3f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
From https://github.com/fpco/typed-process/pull/75
From: Simon Hengel <sol@typeful.net>
Date: Tue, 23 May 2023 18:14:12 +0700
Subject: [PATCH 1/2] Run tests in parallel + get rid of `-with-rtsopts=-N`
(fixes #59)
Signed-off-by: hololeap <hololeap@protonmail.com>
--- /dev/null
+++ b/test/SpecHook.hs
@@ -0,0 +1,7 @@
+module SpecHook where
+
+import Test.Hspec
+import GHC.Conc
+
+hook :: Spec -> Spec
+hook spec = runIO (getNumProcessors >>= setNumCapabilities) >> parallel spec
|
