From a81c92dc2cdff02c55fdc197d943bc7a35c64be5 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Tue, 7 May 2024 14:21:13 -0400 Subject: fig-emulator-gb: Fix space leak --- fig-emulator-gb/main/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'fig-emulator-gb/main') 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 -- cgit v1.2.3