diff --git a/haskell/Main.hs b/haskell/Main.hs
index e804462..84c0572 100644
--- a/haskell/Main.hs
+++ b/haskell/Main.hs
@@ -15,7 +15,6 @@ import Puzzles.Day6 qualified as Day6
 import Puzzles.Day7 qualified as Day7
 import Puzzles.Day8 qualified as Day8
 import Puzzles.Day9 qualified as Day9
-import Text.Pretty.Simple (pPrintForceColor)
 
 main :: IO ()
 main = do
diff --git a/haskell/Pre.hs b/haskell/Pre.hs
index 002a0f5..e03416b 100644
--- a/haskell/Pre.hs
+++ b/haskell/Pre.hs
@@ -37,6 +37,7 @@ module Pre (
     module Text.Megaparsec,
     module Text.Megaparsec.Char,
     module Text.Megaparsec.Char.Lexer,
+    module Text.Pretty.Simple,
     Puzzle (..),
     digit,
     digitsToInt,
@@ -128,6 +129,7 @@ import Safe
 import Text.Megaparsec hiding (Pos, State, Stream, many, some)
 import Text.Megaparsec.Char
 import Text.Megaparsec.Char.Lexer (decimal)
+import Text.Pretty.Simple (pPrint, pPrintForceColor, pShow)
 
 data Puzzle = forall input outputs. (KnownNat (Length outputs), NFData input) => Puzzle
     { number :: Word