From f6a2daefcc8b6a5f7cc0a3cb30de8eea9676bd81 Mon Sep 17 00:00:00 2001 From: Ilya Rezvov Date: Sun, 18 Feb 2018 10:20:24 -0800 Subject: [PATCH] fix tests --- tests/Test.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/tests/Test.hs b/tests/Test.hs index fb7ceae..f59d567 100644 --- a/tests/Test.hs +++ b/tests/Test.hs @@ -15,9 +15,7 @@ import qualified Language.Wasm.Structure as Structure import qualified Debug.Trace as Debug -instance NFData Structure.Module - -isRight :: (NFData b, Show b) => Either a b -> Bool +isRight :: (Show b) => Either a b -> Bool isRight (Right x) = x `seq` True isRight _ = False