Permalink
Browse files

turtle tests: fix warnings

  • Loading branch information...
Brent Yorgey
Brent Yorgey committed Jan 30, 2014
1 parent 8af4569 commit c545394efde76354690cbe9a8d2362b31e3d6953
Showing with 6 additions and 8 deletions.
  1. +6 −8 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 turn
- # forward x # left turn
- # forward x # left turn
+ t' = t # forward x # left 90
+ # forward x # left 90
+ # forward x # left 90
# 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 turn
- # forward x # right turn
- # forward x # right turn
+ t' = t # forward x # right 90
+ # forward x # right 90
+ # forward x # right 90
# forward x
(unp2 -> (startX, startY)) = penPos t
(unp2 -> (endX, endY)) = penPos t'

0 comments on commit c545394

Please sign in to comment.