Cleanup

src/Dodge/TestString.hs

@@ -5,11 +5,21 @@ import Dodge.Data.Universe
 --import Data.Maybe
 --import ShortShow
 --import qualified Data.Map.Strict as M
-import qualified IntMapHelp as IM
-
+--import qualified IntMapHelp as IM
 testStringInit :: Universe -> [String]
-testStringInit u =
-     [  show $ IM.keys $ u ^?! uvWorld . cWorld . lWorld . creatures . ix 0 . crInv ]
+testStringInit u = 
+     [  showTimeFlow $ u ^. uvWorld . cWorld . timeFlow
+    ]
+
+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
+
 --    [ show $ u ^? uvScreenLayers . _head . scOffset
 --    ]
 --    ++ [  shortShow $ u ^?! uvWorld . cWorld . lWorld . creatures . ix 0 . crPos