Add text messages on loading screens

src/Dodge/TestString.hs

@@ -32,12 +32,7 @@ import Data.Foldable
 import Data.Monoid
 
 testStringInit :: Universe -> [String]
-testStringInit u =  [ show (u ^. uvConfig . windowX)
-    , show (u ^. uvConfig . windowY)
-    ,show $ fmap (
-     worldPosToScreen (u ^. uvWorld . wCam) )
-    $ u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . crPos . _xy
- ]
+testStringInit _ =  []
 --    [show $ foldMap (foldMap (Sum . length . (^. seObstacles))) 
 --    $ u ^. uvWorld . cWorld . incGraph]
     -- foldMap prettyShort $ u ^? uvWorld . cWorld . lWorld . machines . ix 0 . mcType . _McProxSensor
@@ -81,3 +76,4 @@ showTimeFlow tfs = case tfs of
     CameraScrollTimeFlow {_reverseAmount = ra } -> "CameraScrollTimeFlow" ++ show ra
     RewindLeftClick {_reverseAmount = ra } -> "RewindLeftClick" ++ show ra
     PausedTimeFlow {_timeFlowCharge = ra } -> "PausedTimeFlow" ++ show ra
+    PauseTimeMessage {} -> "PausedTimeMessage"