basic parsing stub using optparse-applicative

2018-04-28 14:39:00 -07:00
parent c5daf5b187
commit 23ad2539e4
4 changed files with 47 additions and 3 deletions
@@ -0,0 +1,26 @@
+module Wasm.WasmParser where
+
+import Options.Applicative
+import Data.Semigroup ((<>))
+
+data WasmParser = WasmParser
+  { hello      :: String
+  , quiet      :: Bool
+  , enthusiasm :: Int }
+
+sample :: Parser WasmParser
+sample = WasmParser
+      <$> strOption
+          ( long "hello"
+         <> metavar "TARGET"
+         <> help "Target for the greeting" )
+      <*> switch
+          ( long "quiet"
+         <> short 'q'
+         <> help "Whether to be quiet" )
+      <*> option auto
+          ( long "enthusiasm"
+         <> help "How enthusiastically to greet"
+         <> showDefault
+         <> value 1
+         <> metavar "INT" )