diff options
Diffstat (limited to 'fig-emulator-gb/main/Main.hs')
| -rw-r--r-- | fig-emulator-gb/main/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fig-emulator-gb/main/Main.hs b/fig-emulator-gb/main/Main.hs index 7a15c45..6284c6a 100644 --- a/fig-emulator-gb/main/Main.hs +++ b/fig-emulator-gb/main/Main.hs @@ -19,13 +19,13 @@ import Fig.Emulator.GB.Test.Instr data RunOptions = RunOptions { romPath :: !FilePath - , serialOut :: !FilePath + , serialOut :: !(Maybe FilePath) } deriving Show parseRunOptions :: Parser RunOptions parseRunOptions = do romPath <- argument str (metavar "PATH") - serialOut <- strOption (long "serial" <> metavar "PATH" <> help "Path to write link cable serial output") + serialOut <- optional $ strOption (long "serial" <> metavar "PATH" <> help "Path to write link cable serial output") pure RunOptions{..} newtype InstrTestOptions = InstrTestOptions |