diff options
| author | Mikkel Thestrup <mithe24@student.sdu.dk> | 2025-12-27 19:11:26 +0100 |
|---|---|---|
| committer | Mikkel Thestrup <mithe24@student.sdu.dk> | 2025-12-29 21:44:36 +0100 |
| commit | b345e38e36377d9767ef68276f64884ece92c996 (patch) | |
| tree | 20558e9ff9df698d932ac9b186e287f829d87fb7 /app/Example | |
| parent | 48d5c26eece77ee46be346ef35da88d7e8ead6ec (diff) | |
| download | scratchy-b345e38e36377d9767ef68276f64884ece92c996.tar.gz scratchy-b345e38e36377d9767ef68276f64884ece92c996.zip | |
Style(*): Changed code style to use 2 spcae indent and more.
Diffstat (limited to '')
| -rw-r--r-- | app/Example/CircleThatMoves.hs | 39 |
1 files changed, 22 insertions, 17 deletions
diff --git a/app/Example/CircleThatMoves.hs b/app/Example/CircleThatMoves.hs index d173a3d..077ee1e 100644 --- a/app/Example/CircleThatMoves.hs +++ b/app/Example/CircleThatMoves.hs @@ -8,20 +8,25 @@ circSprite = NewSprite (15,15) (Color green $ circleSolid (cellSize * 0.6)) (\s -> - OnKeyEvent (Char 'w') - ( OnTargetReached s - (\cl -> SetTarget s (nextCell U cl) (Pure ())) - $ Pure () ) - $ OnKeyEvent (Char 's') - ( OnTargetReached s - (\cl -> SetTarget s (nextCell D cl) (Pure ())) - $ Pure () ) - $ OnKeyEvent (Char 'a') - ( OnTargetReached s - (\cl -> SetTarget s (nextCell L cl) (Pure ())) - $ Pure () ) - $ OnKeyEvent (Char 'd') - ( OnTargetReached s - (\cl -> SetTarget s (nextCell R cl) (Pure ())) - $ Pure () ) - $ Pure ()) + OnKeyEvent (Char 'w') + ( OnTargetReached s + (\cl -> SetTarget s (nextCell U cl) (Pure ())) $ + Pure () + ) $ + OnKeyEvent (Char 's') + ( OnTargetReached s + (\cl -> SetTarget s (nextCell D cl) (Pure ())) $ + Pure () + ) $ + OnKeyEvent (Char 'a') + ( OnTargetReached s + (\cl -> SetTarget s (nextCell L cl) (Pure ())) $ + Pure () + ) $ + OnKeyEvent (Char 'd') + ( OnTargetReached s + (\cl -> SetTarget s (nextCell R cl) (Pure ())) $ + Pure () + ) $ + Pure () + ) |