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)