diff options
Diffstat (limited to 'src/DefaultPlayer.hs')
-rw-r--r-- | src/DefaultPlayer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/DefaultPlayer.hs b/src/DefaultPlayer.hs index 49371dc..756ba88 100644 --- a/src/DefaultPlayer.hs +++ b/src/DefaultPlayer.hs @@ -26,7 +26,7 @@ instance Player DefaultPlayer where move = (x /= 0 || y /= 0) angle = if move then Just $ fromRational $ round ((atan2 y x)*1000000*180/pi)%1000000 else Nothing aangle = if (ax /= 0 || ay /= 0) then Just $ fromRational $ round ((atan2 ay ax)*1000000*180/pi)%1000000 else Nothing - in (DefaultPlayer keys aimx aimy False, angle, move, aangle, shoot) + in return (DefaultPlayer keys aimx aimy False, angle, move, aangle, shoot) handleEvent (DefaultPlayer keys aimx aimy shoot) ev | Just (KeyPressEvent key) <- fromEvent ev = DefaultPlayer (S.insert key keys) aimx aimy shoot |