simplify function parsing code

2018-01-23 11:14:17 -08:00
parent 23aa6d5238
commit e9e59f1a9b
2 changed files with 41 additions and 29 deletions
@@ -15,7 +15,7 @@ import qualified Language.Wasm.Parser as Parser
 import qualified Debug.Trace as Debug

 isRight :: (Show b) => Either a b -> Bool
-isRight (Right x) = length (show x) > 0
+isRight (Right x) = show x `seq` True
 isRight _         = False

 main :: IO ()