Stop bullets drawing over extended top of walls

src/Loop.hs

@@ -85,17 +85,10 @@ doLoop setup window startWorld
     newParams <- worldSideEffects (setup & currentTime .~ startLoopTicks) startWorld
     glSwapWindow window
     endSideTicks <- ticks
-    --worldSideEffects setup updatedWorld
     events <- pollEvents
-    --let-- maybeUpdatedWorld :: Maybe (WorldView world0)
-    --    maybeUpdatedWorld = applyEvents eventFn startWorld events worldUpdate
     maybeUpdatedWorld <- applyEventsIO eventFn startWorld events
     case maybeUpdatedWorld >>= worldUpdate of
         Just updatedWorld -> do 
-            --GL.clear [GL.ColorBuffer,GL.DepthBuffer]
-            --worldSideEffects setup updatedWorld
-            --glSwapWindow window
-            --GL.flush
             endSimTicks <- ticks
             performGC
             endLoopTicks <- ticks -- it might be better to use System.Clock (monotonic)