sandwich 0.1.3.0 → 0.1.3.1

raw patch · 3 files changed

+8/−3 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGELOG.md +3/−1
• sandwich.cabal +1/−1
• src/Test/Sandwich/ArgParsing.hs +4/−1

@@ -1,6 +1,8 @@ # Changelog for sandwich -## Unreleased changes+## 0.1.3.1++* Fix #61 (options not being passed from configured TUI formatter when `--tui` flag is used)  ## 0.1.3.0 

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           sandwich-version:        0.1.3.0+version:        0.1.3.1 synopsis:       Yet another test framework for Haskell description:    Please see the <https://codedownio.github.io/sandwich documentation>. category:       Testing

@@ -14,6 +14,7 @@ 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 @@       -- 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