From 70270dbbcedcd0af1e488ab4adb363d747adf6f1 Mon Sep 17 00:00:00 2001
From: Willem Van Onsem <vanonsem.willem@gmail.com>
Date: Mon, 15 Mar 2021 23:47:38 +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..73e2ea6 100644
--- a/src/Tetris.hs
+++ b/src/Tetris.hs
@@ -178,7 +178,7 @@ initGame lvl = do
     }
 
 isGameOver :: Game -> Bool
-isGameOver g = blockStopped g && g ^. block ^. origin == startOrigin
+isGameOver g = blockStopped g && g ^. (block . origin) == startOrigin
 
 -- | The main game execution, this is executed at each discrete time step
 timeStep :: MonadIO m => TetrisT m ()