Continue weapon effect chain refactor

src/Dodge/TestString.hs

@@ -1,6 +1,7 @@
 {-# OPTIONS_GHC -Wno-unused-imports #-}
 module Dodge.TestString where
 
+import Dodge.DoubleTree
 import Dodge.Data.DoubleTree
 import Dodge.Item.Grammar
 import Dodge.Item.Display
@@ -22,7 +23,8 @@ testStringInit :: Universe -> [String]
 testStringInit _ = mempty
 --testStringInit u = fromMaybe mempty $ do
 --    inv <- fmap invLDT $ u ^? uvWorld . cWorld . lWorld . creatures . ix 0 . crInv
---    return $ concatMap (prettyLDT (\(x,_,_,_) -> take 5 (show $ x ^. itType . iyBase))) inv
+--    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