Generalise weapon character modes

src/Dodge/Item/Attachment/Data.hs

@@ -5,6 +5,7 @@ module Dodge.Item.Attachment.Data
 import Geometry.Data
 
 import Control.Lens
+import qualified Data.Sequence as Seq
 
 data ItAttachment 
     = ItScope 
@@ -16,11 +17,7 @@ data ItAttachment
     | ItFuse {_itFuseTime :: Int}
     | ItPhaseV {_itPhaseV :: Float}
     | ItMode {_itMode :: Int}
-    | ItCharMode 
-        {_itCharMode    :: Char
-        ,_itUpChar      :: Char -> Char
-        ,_itDownChar    :: Char -> Char
-        }
+    | ItCharMode {_itCharMode :: Seq.Seq Char }
     | ItTargetPos { _itTargetPos :: Point2 }
 
 makeLenses ''ItAttachment