Permalink
Browse files

Fixed typos

  • Loading branch information...
1 parent 76d71e7 commit ca581f2f4bda81aa455d6902c9d4efb18cc46b0a @blastrock blastrock committed Oct 1, 2013
Showing with 2 additions and 2 deletions.
  1. +2 −2 2012/2012-01-17-declarative-game-logic-afrp.md
@@ -169,7 +169,7 @@ bottomWall = 590
-- Ball bounce events for horizontal and vertical bounce
data BallBounce = HBounce | VBounce
--- Multiple a vector by a scalar
+-- Multiply a vector by a scalar
vecMul :: Int -> (Int, Int) -> (Int, Int)
vecMul c (x,y) = (x*c,y*c)
@@ -184,7 +184,7 @@ bounce (dx,dy) b = case b of
VBounce -> (dx,-dy)
```
-Now we can define the ball position in terms on bounce events:
+Now we can define the ball position in terms of bounce events:
```haskell
ballPos :: Coroutine (Event BallBounce) BallPos

0 comments on commit ca581f2

Please sign in to comment.