Permalink
Browse files

Add missing type signature.

  • Loading branch information...
1 parent b92f724 commit 3ab440bc7ac9c8edf5573ff7ff6c6f5b8a985ee8 @bernstein committed Jul 29, 2012
Showing with 2 additions and 0 deletions.
  1. +2 −0 src/Main.hs
View
2 src/Main.hs
@@ -125,8 +125,10 @@ brickHit p ballPos frame = once response
c = whenE (colliding brickPic p ballPic <$> ballPos) frame
response = (r2.second (negate.abs).unr2) <$ c
+smash :: Behavior t P2 -> Event t () -> [Event t (Velocity -> Velocity)]
smash ballPos frame = map (\p -> brickHit p ballPos frame) brickPositions
+bricks :: [Event t (Velocity -> Velocity)] -> Behavior t Picture
bricks smashed = mconcat $ zipWith brick brickPositions smashed
ceilingPic :: Picture

0 comments on commit 3ab440b

Please sign in to comment.