Cleanup particles slightly

src/Dodge/Initialisation.hs

@@ -11,14 +11,14 @@ import Dodge.WorldEvent.Cloud
 import Dodge.SoundLogic
 import Dodge.SoundLogic.Synonyms
 import Geometry.Data
-import Dodge.GameRoom
-import Geometry
+--import Dodge.GameRoom
+--import Geometry
 
 import System.Random
 import qualified Data.Set as S
 import qualified Data.IntMap.Strict as IM
 import qualified Data.Map as M
-import Data.List (sortOn)
+--import Data.List (sortOn)
 
 firstWorld :: IO World
 firstWorld = do
@@ -53,10 +53,11 @@ initialWorld = defaultWorld
     , _worldState = M.empty
     }
 testStringInit :: World -> [String]
-testStringInit w = (show . _crPos $ _creatures w IM.! 0) 
-    : (map show . _grBound . last $ sortOn _grName grs) 
-    ++ closeRooms
-  where
-    closeRooms = map _grName $ filter (pointInOrOnPolygon p . _grBound) grs
-    grs = _gameRooms w
-    p = _cameraViewFrom w
+testStringInit _ = []
+--testStringInit w = (show . _crPos $ _creatures w IM.! 0) 
+--    : (map show . _grBound . last $ sortOn _grName grs) 
+--    ++ closeRooms
+--  where
+--    closeRooms = map _grName $ filter (pointInOrOnPolygon p . _grBound) grs
+--    grs = _gameRooms w
+--    p = _cameraViewFrom w