desugarize exports

2018-02-18 10:19:12 -08:00
parent 2774c04689
commit 4f11058f4b
2 changed files with 128 additions and 17 deletions
@@ -11,11 +11,14 @@ import qualified Data.ByteString.Lazy as LBS

 import qualified Language.Wasm.Lexer as Lexer
 import qualified Language.Wasm.Parser as Parser
+import qualified Language.Wasm.Structure as Structure

 import qualified Debug.Trace as Debug

-isRight :: (Show b) => Either a b -> Bool
-isRight (Right x) = show x `seq` True
+instance NFData Structure.Module
+
+isRight :: (NFData b, Show b) => Either a b -> Bool
+isRight (Right x) = x `seq` True
 isRight _         = False

 main :: IO ()