diff options
| author | Juan J. Martinez <jjm@usebox.net> | 2023-04-16 11:20:19 +0100 |
|---|---|---|
| committer | Juan J. Martinez <jjm@usebox.net> | 2023-04-16 11:20:33 +0100 |
| commit | 3eb66a2125caefe61729c0999c8813c3847957cd (patch) | |
| tree | 03c1a34abce15444ee26e162574ecdb6c6317e4d /src/Game/Toaster.hs | |
| parent | 9ac5ca2ad326667a182686aa48c4a4da45f4f5ce (diff) | |
| download | space-plat-hs-3eb66a2125caefe61729c0999c8813c3847957cd.tar.gz space-plat-hs-3eb66a2125caefe61729c0999c8813c3847957cd.zip | |
Removed unnecessary $
Diffstat (limited to 'src/Game/Toaster.hs')
| -rw-r--r-- | src/Game/Toaster.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Game/Toaster.hs b/src/Game/Toaster.hs index e3fbc69..75907eb 100644 --- a/src/Game/Toaster.hs +++ b/src/Game/Toaster.hs @@ -44,9 +44,9 @@ update t = case t.current of where updateToast :: Int -> Toast -> Maybe Toast updateToast height toast - | toast.y > height && toast.delay > 0 = Just $ toast {y = toast.y - 1} - | toast.delay > 0 = Just $ toast {delay = toast.delay - 1} - | toast.y < t.gameHeight = Just $ toast {y = toast.y + 1} + | toast.y > height && toast.delay > 0 = Just toast {y = toast.y - 1} + | toast.delay > 0 = Just toast {delay = toast.delay - 1} + | toast.y < t.gameHeight = Just toast {y = toast.y + 1} | otherwise = Nothing render :: SDL.Renderer -> Toaster -> IO () |