Turn Shape into a stream

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

@@ -31,6 +31,7 @@ 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
@@ -302,7 +303,8 @@ miniGunXPict i spin _ =
     )
   where
     aBarrel = translateSH (V3 15 2 2) baseCaneShape
-    barrels = concatMap (\an -> aBarrel & rotateSHx (2*pi * fromIntegral an / fromIntegral i)) [1..i]
+    barrels = VS.concatMap (\an -> aBarrel & rotateSHx (2*pi * fromIntegral an / fromIntegral i)) 
+        $ VS.fromList [1..i]
     a = fromIntegral spin / 100
     --x = fromIntegral am / 10
 --    clip y z = translateSH (V3 0 (-1) z) (rotateSHx (negate $ pi/4)