Modify analyser sounds

src/Dodge/Room/Boss.hs

@@ -16,10 +16,10 @@ import Dodge.RandomHelp
 import Dodge.Tree
 import Dodge.LevelGen.StaticWalls
 import Geometry
+import LensHelp
 
 import Data.Tree
 import Control.Monad.State
-import Control.Lens
 import System.Random
 roomGlassOctogon
     :: Float    -- ^ Size
@@ -56,7 +56,7 @@ roomGlassOctogon x = createPathGrid $ defaultRoom
         ]
 
 bossRoom :: RandomGen g => Creature -> State g Room
-bossRoom cr = randomMediumRoom <&> rmPmnts %~ ( sPS (V2 0 100) (negate $ pi/2) (PutCrit cr) :)
+bossRoom cr = randomMediumRoom <&> rmPmnts .:~ sPS (V2 0 100) (negate $ pi/2) (PutCrit cr)
 
 armouredChasers :: RandomGen g => State g (Tree Room)
 armouredChasers = do