From 079294e2df3a8cb3f72931dd920cda7037bdfdba Mon Sep 17 00:00:00 2001
From: Kiana Sheibani <kiana.a.sheibani@gmail.com>
Date: Wed, 25 Jan 2023 15:49:42 -0500
Subject: [PATCH] Fix orientation error

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

diff --git a/src/Game/State.hs b/src/Game/State.hs
index 0dd6f38..8039bd8 100644
--- a/src/Game/State.hs
+++ b/src/Game/State.hs
@@ -3,8 +3,8 @@ module Game.State where
 data Direction = U | D | L | R
 
 movePos :: Direction -> (Int, Int) -> (Int, Int)
-movePos U (x, y) = (x, y - 1)
-movePos D (x, y) = (x, y + 1)
+movePos U (x, y) = (x, y + 1)
+movePos D (x, y) = (x, y - 1)
 movePos L (x, y) = (x - 1, y)
 movePos R (x, y) = (x + 1, y)