From 224c8cf70c5eca2b8e7ab6460d63e2c926298fc3 Mon Sep 17 00:00:00 2001
From: Bill Ewanick <bill@ewanick.com>
Date: Fri, 20 Oct 2023 12:30:14 -0400
Subject: [PATCH] pedantic

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

diff --git a/src/projectEuler/question4.hs b/src/projectEuler/question4.hs
index c27fe1c..b2f60d5 100644
--- a/src/projectEuler/question4.hs
+++ b/src/projectEuler/question4.hs
@@ -17,9 +17,9 @@ threeDigitProducts =  [ n*m | n <- [100..999], m <- [n..999] ]
 isPalindrome :: Integer -> Bool
 isPalindrome n = all (== True) $ zipWith (==) half half'
   where
-    (half, half'') = splitAt h n'
+    (half, half'') = splitAt l n'
     half' = reverse half''
-    h     = length n' `div` 2
+    l     = length n' `div` 2
     n'    = show n
     -- n' = trace (show n) $ show n