Work on windows

src/Dodge/Room/Boss.hs

@@ -19,10 +19,7 @@ import RandomHelp
 import Control.Monad
 
 -- pathing needs to be done
-roomGlassOctogon ::
-    -- | Size
-    Float ->
-    Room
+roomGlassOctogon :: Float -> Room
 roomGlassOctogon x =
 --    createPathGrid $
         defaultRoom
@@ -48,7 +45,7 @@ roomGlassOctogon x =
             , _rmName = "glass8gon"
             }
   where
-    fx = 4 * x / 5
+    fx = 5 * x / 6
     lnks' = map (uncurry outLink) (init lnks) ++ [uncurry inLink $ last lnks]
     lnks =
         [ (V2 0 x, 0)