diff options
Diffstat (limited to 'app/Example/CircleThatMoves.hs')
| -rw-r--r-- | app/Example/CircleThatMoves.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/app/Example/CircleThatMoves.hs b/app/Example/CircleThatMoves.hs index 9d9aa8b..d173a3d 100644 --- a/app/Example/CircleThatMoves.hs +++ b/app/Example/CircleThatMoves.hs @@ -16,4 +16,12 @@ circSprite = NewSprite ( 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 ()) |