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