Refactor

src/Dodge/Room/Boss.hs

@@ -19,10 +19,10 @@ import Data.Tree
 import Control.Monad.State
 import Control.Lens
 import System.Random
-roomOctogon
+roomGlassOctogon
     :: Float    -- ^ Size
     -> Room
-roomOctogon x = Room
+roomGlassOctogon x = Room
     { _rmPolys = [rectNSWE x (-x) (-x) x
                  ,rectNSWE 0 (-(x + 40)) (-20) 20
                  ]
@@ -63,7 +63,7 @@ armouredChasers = do
 
 randomMediumRoom :: RandomGen g => State g Room
 randomMediumRoom = takeOne 
-    [ roomOctogon 300
+    [ roomGlassOctogon 300
     , roomCross 180 300
     , roomShuriken 200 300
     , roomTwistCross 230 300 0