From 1cdeaa759b838c07e9ca9e577e271edec8dd0cfa Mon Sep 17 00:00:00 2001
From: Willem Van Onsem <vanonsem.willem@gmail.com>
Date: Tue, 16 Mar 2021 00:01:25 +0100
Subject: [PATCH] remove redundant $ in Tetris.hs

---
 src/Tetris.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Tetris.hs b/src/Tetris.hs
index 61fed94..37743d1 100644
--- a/src/Tetris.hs
+++ b/src/Tetris.hs
@@ -205,7 +205,7 @@ clearFullRows = do
   modifying board $ M.filterWithKey $ \(V2 _ y) _ -> y `notElem` fullRows
   -- Shift cells above full rows
   modifying board $ M.mapKeysMonotonic $ over _y $ \y ->
-    y - (length $ filter (< y) fullRows)
+    y - length (filter (< y) fullRows)
   return $ length fullRows
 
 -- | Empties row on 0, otherwise appends value (just keeps consecutive information)