diff --git a/app/Main.hs b/app/Main.hs index 8a7937a..8087bc9 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -11,13 +11,14 @@ import Data.Text.IO qualified as T import Data.Void import Test.Tasty import Test.Tasty.Golden (goldenVsString) +import Test.Tasty.Ingredients.ConsoleReporter import Text.Megaparsec hiding (Pos) import Text.Megaparsec.Char import Text.Megaparsec.Char.Lexer qualified as Lex main :: IO () main = - defaultMain $ + defaultMain . localOption (Always :: UseColor) $ testGroup "tests" [ puzzleTest puzzle1