From cabaf3f321844e83f27141f71fdd8874ff3c306f Mon Sep 17 00:00:00 2001
From: Bill Ewanick <bill@ewanick.com>
Date: Tue, 12 Sep 2023 16:05:20 -0400
Subject: [PATCH] Formatting

---
 src/projectEuler/question4.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/projectEuler/question4.hs b/src/projectEuler/question4.hs
index a234eaf..d5ba537 100644
--- a/src/projectEuler/question4.hs
+++ b/src/projectEuler/question4.hs
@@ -3,15 +3,15 @@
 import           Debug.Trace (trace)
 
 twoDigitProducts :: [Integer]
-twoDigitProducts = [ n*m | n <- [10..99], m <- [n..99] ]
+twoDigitProducts =  [ n*m | n <- [10..99], m <- [n..99] ]
 
 isPalindrome :: Integer -> Bool
 isPalindrome n = all (== True) $ zipWith (==) half half'
   where
     (half, half'') = splitAt h n'
     half' = reverse half''
-    h  = length n' `div` 2
-    n' = show n
+    h     = length n' `div` 2
+    n'    = show n
     -- n' = trace (show n) $ show n
 
 solve :: Integer