{-# LANGUAGE CPP #-}
module Test.Hspec.Core.Runner.Ext
( configAddAvailableFormatter
) where
import Prelude
import Test.Hspec.Core.Format (Format, FormatConfig)
import Test.Hspec.Core.Runner (Config(..))
configAddAvailableFormatter
:: String -> (FormatConfig -> IO Format) -> Config -> Config
#if MIN_VERSION_hspec_core(2,9,0)
configAddAvailableFormatter :: String -> (FormatConfig -> IO Format) -> Config -> Config
configAddAvailableFormatter String
name FormatConfig -> IO Format
format Config
config = Config
config
{ configAvailableFormatters :: [(String, FormatConfig -> IO Format)]
configAvailableFormatters =
Config -> [(String, FormatConfig -> IO Format)]
configAvailableFormatters Config
config [(String, FormatConfig -> IO Format)]
-> [(String, FormatConfig -> IO Format)]
-> [(String, FormatConfig -> IO Format)]
forall a. Semigroup a => a -> a -> a
<> [(String
name, FormatConfig -> IO Format
format)]
}
#else
configAddAvailableFormatter _ _ = id
#endif