X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=advent16.hs;h=0c7bfbbf40c41588d11f7f35ff0a33005efcad22;hb=fd300170c824138ea4053ac30a18c25c5b5949e6;hp=80474b5ad8b6a392eb9fbd0ff0404251acaf243a;hpb=f9f0bc22576835cad53961170a64e7ffa0824fd8;p=advent-of-code-16.git

diff --git a/advent16.hs b/advent16.hs
index 80474b5..0c7bfbb 100644
--- a/advent16.hs
+++ b/advent16.hs
@@ -32,10 +32,7 @@ checksum :: String -> String
 checksum digits
     | odd $ length digits = digits
     | otherwise = checksum $ map (checksumPair) $ pairs digits
-
-
-checksumPair :: String -> Char
-checksumPair p = if (length $ nub p) == 1 then '1' else '0'
+        where checksumPair p = if (length $ nub p) == 1 then '1' else '0'
 
 
 pairs :: [a] -> [[a]]