Fixed issue: Ram usage explodes during tests

1 files changed, 2 insertions, 4 deletions

diff --git a/spec/test/Thermoprint/PrintoutSpec.hs b/spec/test/Thermoprint/PrintoutSpec.hs
index b92d76a..7ba3656 100644
--- a/spec/test/Thermoprint/PrintoutSpec.hs
+++ b/spec/test/Thermoprint/PrintoutSpec.hs
@@ -9,8 +9,6 @@ import Thermoprint.Printout
 import Data.Aeson (fromJSON, ToJSON(..), Result(..))
 import Data.Function (on)
 
-import Control.DeepSeq (($!!), force)
-
 -- Equality via cotext on Block
 instance Eq Block where
   (==) = (==) `on` cotext
@@ -20,7 +18,7 @@ deriving instance Eq Chunk
 spec :: Spec
 spec = do
   prop "prop_text" prop_text
-  prop "json" prop_json
+  parallel $ prop "json" prop_json
   where
     prop_json :: Printout -> Bool
-    prop_json p = force $ (== Success p) . fromJSON . toJSON $!! p
+    prop_json p = (== Success p) . fromJSON . toJSON $ p