Cleanup, only commented out char sequence scrolling code

src/Dodge/Base/You.hs

@@ -2,16 +2,16 @@ module Dodge.Base.You
     (you
 --    , yourScopeInvID
     , yourInv
-    , yourScrollAttachment
+--    , yourScrollAttachment
     , yourItem
     )where
 
 import Dodge.Data.World
-import Dodge.HeldScroll
+--import Dodge.HeldScroll
 import qualified IntMapHelp as IM
 --import qualified Data.Map.Strict as M
 import Control.Lens
-import Control.Monad
+--import Control.Monad
 --import Data.Maybe
 
 you :: World -> Creature
@@ -22,13 +22,13 @@ yourItem w = do
     i <- you w ^? crManipulation . manObject . inInventory . ispItem
     _crInv (you w) IM.!? i
 
-yourScrollAttachment :: World -> Maybe (Int,ScrollAttachParams)
-yourScrollAttachment w = do
-    i <- you w ^? crManipulation . manObject . inInventory . ispItem
-    itm <- _crInv (you w) IM.!? i
-    atparams <- you w ^? crInv . ix (i - 1) . itUse . attachParams . scrollAttachParams
-    guard (canHeldScrollAttach itm atparams)
-    return (i - 1, atparams)
+--yourScrollAttachment :: World -> Maybe (Int,ScrollAttachParams)
+--yourScrollAttachment w = do
+--    i <- you w ^? crManipulation . manObject . inInventory . ispItem
+--    itm <- _crInv (you w) IM.!? i
+--    atparams <- you w ^? crInv . ix (i - 1) . itUse . attachParams . scrollAttachParams
+--    guard (canHeldScrollAttach itm atparams)
+--    return (i - 1, atparams)
 
 --yourScopeInvID :: World -> Maybe Int
 --yourScopeInvID w = do