Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Add missing type signature.

  • Loading branch information...
commit 3ab440bc7ac9c8edf5573ff7ff6c6f5b8a985ee8 1 parent b92f724
@bernstein authored
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
Please sign in to comment.
Something went wrong with that request. Please try again.