From 6a3764fa9ae9982c463db34e218f45a2b524002c Mon Sep 17 00:00:00 2001
From: Sam Tay <sam.chong.tay@gmail.com>
Date: Mon, 3 Jul 2017 00:30:52 -0400
Subject: [PATCH] Fix rotating I shapes

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

diff --git a/src/Tetris.hs b/src/Tetris.hs
index 3a60248..cf10723 100644
--- a/src/Tetris.hs
+++ b/src/Tetris.hs
@@ -110,7 +110,7 @@ rotate' b@(Block s o@(V2 xo yo) cs)
     rotateWith dir   = b & extra %~ fmap dir
     clockwise        = (+ o) . (cwperp) . (subtract o)
     counterclockwise = (+ o) . LV.perp . (subtract o)
-    cwperp (V2 x y)  = V2 x (-y)
+    cwperp (V2 x y)  = V2 y (-x)
 
 -- | Get coordinates of entire block
 coords :: Block -> [Coord]