Delete location double trees

src/Dodge/TestString.hs

@@ -61,20 +61,6 @@ showManObj (SelCloseItem x) = "CloseItem " ++ show x
 showManObj SortCloseButton = "SortCloseButton"
 showManObj (SelCloseButton x) = "CloseButton " ++ show x
 
-
---testStringInit u = fromMaybe mempty $ do
---    inv <- fmap invLDT $ u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . crInv
---    invitm <- inv ^? ix 1
---    return $ concatMap (prettyLDT (\(x,_,_,_) -> take 5 (show $ x ^. itType . iyBase))) [invitm]
-
---testStringInit u = maybe [] invTree (u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . crInv)
---    [fromMaybe "" $ do
---    cr <- u ^? uvWorld . cWorld . lWorld . creatures . ix 0
---    i <- cr ^? crManipulation . manObject . inInventory . ispItem
---    fmap (show . canAttachTargeting) (cr ^? crInv . ix i) 
---    ]
-
-
 showTimeFlow :: TimeFlowStatus -> String
 showTimeFlow tfs = case tfs of
     RespawnDelay i -> "Respawndelay"++show i