Hlinting

2021-04-27 11:45:43 +02:00
parent f8351fb150
commit 64b5b9e2a5
34 changed files with 974 additions and 761 deletions
@@ -1,8 +1,14 @@
+{-
+Helper functions for particles.
+-}
 module Dodge.WorldEvent.HelperParticle
    where

 import Dodge.Data

-ptTimer' :: Int -> World -> Particle' -> (World, Maybe Particle')
+{-
+A simple timer update for particles.
+-}
+ptTimer' :: Int -> World -> Particle -> (World, Maybe Particle)
 ptTimer' 0 w pt = (w, Nothing)
 ptTimer' n w pt = (w, Just $ pt {_ptUpdate' = ptTimer' (n-1)})