Cleanup warnings

2021-05-17 22:39:18 +02:00
parent d7fcdbf550
commit 69f915a894
102 changed files with 1243 additions and 1185 deletions
@@ -1,14 +1,9 @@
-{-
-Helper functions for particles.
-}
+{- Helper functions for particles.  -}
 module Dodge.WorldEvent.HelperParticle
    where
-
 import Dodge.Data

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