Skip to content

Commit ab6552b

Browse files
Removes trailing space
1 parent 6696f23 commit ab6552b

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

examples/raindrops/Raindrops.hs

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -57,12 +57,12 @@ main = do
5757

5858
-- Load with a mask
5959
drop <- load "data/cherry.png"
60-
t <- mapRGB (surfaceGetPixelFormat drop) 0 255 0
60+
t <- mapRGB (surfaceGetPixelFormat drop) 0 255 0
6161
setColorKey drop [SrcColorKey, RLEAccel] t
6262

6363
-- Load with a mask
6464
paddle <- load "data/player.png"
65-
t <- mapRGB (surfaceGetPixelFormat paddle) 0 255 0
65+
t <- mapRGB (surfaceGetPixelFormat paddle) 0 255 0
6666
setColorKey paddle [SrcColorKey, RLEAccel] t
6767

6868
-- Create window, no mouse
@@ -135,7 +135,7 @@ moveForward dt gs = gs { raindrops = movedRaindrops }
135135
raindropsPaddle :: GameState -> GameState
136136
raindropsPaddle gs = gs { raindrops = remainingRaindrops
137137
, points = points gs + pts
138-
}
138+
}
139139
where remainingRaindrops = filter (not.collidesWithPaddle) (raindrops gs)
140140
pts = length (raindrops gs) - length remainingRaindrops
141141
collidesWithPaddle (x,y) = (within x paddleXMin paddleXMax

0 commit comments

Comments
 (0)