msyds/haskell-wasm
1
0
Fork 0
forked from GitHub/haskell-wasm
Code Pull Requests Activity

fix tests

Browse Source
This commit is contained in:
Ilya Rezvov
2018-02-18 10:20:24 -08:00
parent 4f11058f4b
commit f6a2daefcc
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/Test.hs
+1 -3
View File
@@ -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