diff options
| author | LLLL Colonq <llll@colonq> | 2024-05-07 14:21:13 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-05-07 14:21:13 -0400 |
| commit | a81c92dc2cdff02c55fdc197d943bc7a35c64be5 (patch) | |
| tree | c5c4039f1e81d8290859656f3a0d306e6af62053 /fig-emulator-gb/main/Main.hs | |
| parent | 82d4f5c55bdb1f160fe558bd9e413b726e36541b (diff) | |
fig-emulator-gb: Fix space leak
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 |