patrickaldis/garnet
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add pretty-simple to prelude

Browse Source
This commit is contained in:
George Thomas 2026-01-06 19:44:50 +00:00
parent 9246597b49
commit 99de1c4d40
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
haskell/Main.hs
View File

@ -15,7 +15,6 @@ import Puzzles.Day6 qualified as Day6
import Puzzles.Day7 qualified as Day7 import Puzzles.Day7 qualified as Day7
import Puzzles.Day8 qualified as Day8 import Puzzles.Day8 qualified as Day8
import Puzzles.Day9 qualified as Day9 import Puzzles.Day9 qualified as Day9
import Text.Pretty.Simple (pPrintForceColor)
main :: IO () main :: IO ()
main = do main = do

2
haskell/Pre.hs
View File

@ -37,6 +37,7 @@ module Pre (
module Text.Megaparsec, module Text.Megaparsec,
module Text.Megaparsec.Char, module Text.Megaparsec.Char,
module Text.Megaparsec.Char.Lexer, module Text.Megaparsec.Char.Lexer,
module Text.Pretty.Simple,
Puzzle (..), Puzzle (..),
digit, digit,
digitsToInt, digitsToInt,
@ -128,6 +129,7 @@ import Safe
import Text.Megaparsec hiding (Pos, State, Stream, many, some) import Text.Megaparsec hiding (Pos, State, Stream, many, some)
import Text.Megaparsec.Char import Text.Megaparsec.Char
import Text.Megaparsec.Char.Lexer (decimal) import Text.Megaparsec.Char.Lexer (decimal)
import Text.Pretty.Simple (pPrint, pPrintForceColor, pShow)
data Puzzle = forall input outputs. (KnownNat (Length outputs), NFData input) => Puzzle data Puzzle = forall input outputs. (KnownNat (Length outputs), NFData input) => Puzzle
{ number :: Word { number :: Word