Add stopWatch

src/Dodge/TestString.hs

@@ -13,13 +13,11 @@ testStringInit u =
 
 showTimeFlow :: TimeFlowStatus -> String
 showTimeFlow tfs = case tfs of
-    RewindingNow -> "RewindingNow"
     DeathTime i -> "DeathTime"++show i
-    RewindingLastFrame -> "RewindingLastFrame"
     NormalTimeFlow -> "NormalTimeFlow"
     ScrollTimeFlow {_reverseAmount = ra } -> "ScrollTimeFlow" ++ show ra
     RewindLeftClick {_reverseAmount = ra } -> "RewindLeftClick" ++ show ra
-
+    PausedTimeFlow {_timeFlowCharge = ra } -> "PausedTimeFlow" ++ show ra
 --    [ show $ u ^? uvScreenLayers . _head . scOffset
 --    ]
 --    ++ [  shortShow $ u ^?! uvWorld . cWorld . lWorld . creatures . ix 0 . crPos