Fix rotating I shapes

samtay · Jul 3, 2017 · 6a3764f · 6a3764f
1 parent 99d6a9c
commit 6a3764f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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]