Revert "Turn Shape into a stream"

This reverts commit c7e720248d.

src/Dodge/Item/Weapon/BulletGun/Cane.hs

@@ -31,7 +31,6 @@ import Shape
 import Sound.Data
 import LensHelp
 
-import qualified Data.Vector.Fusion.Stream.Monadic as VS
 --import qualified Data.Map.Strict as M
 --import qualified Data.Sequence as Seq
 --import Control.Lens
@@ -303,8 +302,7 @@ miniGunXPict i spin _ =
     )
   where
     aBarrel = translateSH (V3 15 2 2) baseCaneShape
-    barrels = VS.concatMap (\an -> aBarrel & rotateSHx (2*pi * fromIntegral an / fromIntegral i)) 
-        $ VS.fromList [1..i]
+    barrels = concatMap (\an -> aBarrel & rotateSHx (2*pi * fromIntegral an / fromIntegral i)) [1..i]
     a = fromIntegral spin / 100
     --x = fromIntegral am / 10
 --    clip y z = translateSH (V3 0 (-1) z) (rotateSHx (negate $ pi/4)