Modularise shockwaves, stop landing self damage when blinking

app/Main.hs

@@ -26,7 +26,7 @@ import Control.Concurrent
 import Control.Lens
 import Foreign (Word32)
 
-import Control.Monad (when)
+import Control.Monad (when,void)
  
 import System.Random
 
@@ -53,7 +53,7 @@ main = do
         (fmap (setWindowSize sizex sizey keyConfig) firstWorld)
         ( \preData w -> do
             startTicks <- SDL.ticks
-            doDrawing (_renderData preData) w
+            void $ doDrawing (_renderData preData) w
             playSoundQueue (_soundData preData) (_soundQueue w)
             newSoundData <- playAndUpdate (_sounds w) (_soundData preData)