turtle tests: fix warnings

diagrams · Jan 30, 2014 · c545394 · c545394
1 parent 8af4569
commit c545394
Showing 1 changed file with 6 additions and 8 deletions.
diff --git a/tests/Diagrams/TwoD/Path/Turtle/Tests.hs b/tests/Diagrams/TwoD/Path/Turtle/Tests.hs
@@ -84,10 +84,9 @@ movesLeft t = isPenDown t ==>
   && abs(endY - startY) < 0.0001
  where
   x                          = 2.0
-  turn                       = 90
+  t'                         = t # forward x # left 90
-  t'                         = t # forward x # left turn
+                                 # forward x # left 90
-                                 # forward x # left turn
+                                 # forward x # left 90
-                                 # forward x # left turn
                                  # forward x
   (unp2 -> (startX, startY)) = penPos t
   (unp2 -> (endX, endY))     = penPos t'
@@ -100,10 +99,9 @@ movesRight t = isPenDown t ==>
   && abs(endY - startY) < 0.0001
  where
   x                          = 2.0
-  turn                       = 90
+  t'                         = t # forward x # right 90
-  t'                         = t # forward x # right turn
+                                 # forward x # right 90
-                                 # forward x # right turn
+                                 # forward x # right 90
-                                 # forward x # right turn
                                  # forward x
   (unp2 -> (startX, startY)) = penPos t
   (unp2 -> (endX, endY))     = penPos t'