From f6dc3d1d5e5109c4196ad17ee69ccc7fc8b57b3b Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sun, 10 Jan 2016 21:38:08 +0000 Subject: Fixed issue: Ram usage explodes during tests --- spec/test/Thermoprint/PrintoutSpec.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'spec/test/Thermoprint') 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 -- cgit v1.2.3