reorganizing code

src/Test.hs

@@ -5,6 +5,7 @@ import Affection as A hiding (get)
 import SDL (get, ($=))
 import qualified SDL
 import qualified Graphics.Rendering.OpenGL as GL hiding (get)
+import NanoVG hiding (V2(..))
 
 import Control.Monad (when, unless, void)
 import Control.Monad.IO.Class (liftIO)
@@ -16,12 +17,6 @@ import Data.Matrix as M
 import Data.Ecstasy as E
 import Data.Maybe
 
-import NanoVG hiding (V2(..))
-
-import Types
-
-import Floorplan
-
 import Linear
 
 import Foreign.C.Types (CFloat(..))
@@ -32,13 +27,15 @@ import Debug.Trace
 
 import Interior
 import Util
+import Types
+import Floorplan
 
 loadMap :: Affection UserData ()
 loadMap = do
   ud <- getAffection
   let fc = FloorConfig
         (20, 20)
-        [] -- [(5,5), (35, 35)]
+        [(5,5), (35, 35)]
         (50,75)
       (Subsystems _ m) = subsystems ud
   (mat, gr) <- liftIO $ buildHallFloorIO fc