codedownio/sandwich
1
1
Fork 0
mirror of https://github.com/codedownio/sandwich.git synced 2024-08-16 15:20:26 +03:00
Code Issues Projects Releases Wiki Activity

Fix #61

Browse Source
This commit is contained in:
Tom McLaughlin 2023-04-06 15:45:46 -07:00
parent ecff0756a7
commit 85e0acaf34
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
sandwich/src/Test/Sandwich/ArgParsing.hs
View File

@ -14,6 +14,7 @@ import Data.Time.Clock.POSIX
import Data.Typeable
import Options.Applicative
import qualified Options.Applicative as OA
import Safe
import Test.Sandwich.Formatters.FailureReport
import Test.Sandwich.Formatters.MarkdownSummary
import Test.Sandwich.Formatters.Print.Types
@ -243,7 +244,9 @@ addOptionsFromArgs baseOptions (CommandLineOptions {..}) = do
-- Seems like the best default is just the print formatter.
return $ Just printFormatter
#ifndef mingw32_HOST_OS
(_, TUI) -> return $ Just $ SomeFormatter $ defaultTerminalUIFormatter { terminalUILogLevel = optLogLevel }
(_, TUI) -> do
let mainTerminalUiFormatter = headMay [x | SomeFormatter (cast -> Just x@(TerminalUIFormatter {})) <- optionsFormatters baseOptions]
return $ Just $ SomeFormatter $ (fromMaybe defaultTerminalUIFormatter mainTerminalUiFormatter) { terminalUILogLevel = optLogLevel }
#endif
(_, Print) -> return $ Just printFormatter
(_, PrintFailures) -> return $ Just failureReportFormatter