Force Tasty to use colours in GHCID

This commit is contained in:
George Thomas 2025-12-02 09:30:39 +00:00
parent 1a75e65987
commit 90c5e2f0b2

View File

@ -11,13 +11,14 @@ import Data.Text.IO qualified as T
import Data.Void import Data.Void
import Test.Tasty import Test.Tasty
import Test.Tasty.Golden (goldenVsString) import Test.Tasty.Golden (goldenVsString)
import Test.Tasty.Ingredients.ConsoleReporter
import Text.Megaparsec hiding (Pos) import Text.Megaparsec hiding (Pos)
import Text.Megaparsec.Char import Text.Megaparsec.Char
import Text.Megaparsec.Char.Lexer qualified as Lex import Text.Megaparsec.Char.Lexer qualified as Lex
main :: IO () main :: IO ()
main = main =
defaultMain $ defaultMain . localOption (Always :: UseColor) $
testGroup testGroup
"tests" "tests"
[ puzzleTest puzzle1 [ puzzleTest puzzle1