From 1cf5b34d0739c31fb433336684f713c7b10c892f Mon Sep 17 00:00:00 2001 From: Ilya Rezvov Date: Sat, 28 Apr 2018 14:26:07 -0700 Subject: [PATCH] add output mode --- exec/Main.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/exec/Main.hs b/exec/Main.hs index 98bbd54..36a3699 100644 --- a/exec/Main.hs +++ b/exec/Main.hs @@ -1,8 +1,11 @@ module Main where +data OutputMode = WasmBinary | JSWrapper deriving (Show, Eq) + data WasmConfig = WasmConfig { inputFile :: String, - outputFile :: String + outputFile :: String, + outputMode :: OutputMode } deriving (Show, Eq) main :: IO ()