Move side effects into world (may be slower)

src/Loop.hs

@@ -8,6 +8,7 @@ This module sets up an SDL window which may be updated using a simple game loop.
 module Loop
     ( setupLoop
     , setupMiniLoop
+    , setupLoop'
     ) where
 import qualified Data.Text as T
 import Control.Concurrent