diff --git a/src/Day2501.hs b/src/Day2501.hs
index e2a4400..77b2202 100644
--- a/src/Day2501.hs
+++ b/src/Day2501.hs
@@ -21,7 +21,7 @@ part2 = go 50 . convertToInts . lines
     edgeCase = if x < 0 && p' `mod` 100 == 0 then 1 else 0
              + if x < 0 && p  `mod` 100 == 0 then -1 else 0
 
-    p' = (p + x)
+    p' = p + x
 
 main :: IO ()
 main = do