Force Tasty to use colours in GHCID
This commit is contained in:
parent
1a75e65987
commit
90c5e2f0b2
@ -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
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user