add output mode
This commit is contained in:
+4
-1
@@ -1,8 +1,11 @@
|
|||||||
module Main where
|
module Main where
|
||||||
|
|
||||||
|
data OutputMode = WasmBinary | JSWrapper deriving (Show, Eq)
|
||||||
|
|
||||||
data WasmConfig = WasmConfig {
|
data WasmConfig = WasmConfig {
|
||||||
inputFile :: String,
|
inputFile :: String,
|
||||||
outputFile :: String
|
outputFile :: String,
|
||||||
|
outputMode :: OutputMode
|
||||||
} deriving (Show, Eq)
|
} deriving (Show, Eq)
|
||||||
|
|
||||||
main :: IO ()
|
main :: IO ()
|
||||||
|
|||||||
Reference in New Issue
Block a user