Add bangcone

src/Dodge/Item/Attachment.hs

@@ -4,6 +4,7 @@ module Dodge.Item.Attachment
     , changeFuse
     ) where
 import Dodge.Data
+import Dodge.ChainEffect
 import Dodge.Default
 
 import Control.Lens hiding ((|>),(<|))
@@ -38,12 +39,6 @@ decCharMode = itAttachment . itCharMode %~ cycleR
     cycleR (xs :|> x) = x <| xs
     cycleR xs = xs
 
-type ChainEffect = 
-    (Item -> Creature -> World -> World)
-    -> Item
-    -> Creature
-    -> World 
-    -> World
 charFiringStratI
     :: [(Char, ChainEffect)] -- ^ Different firing effects for different characters
     -> ChainEffect