Move towards more usable placements

src/Dodge/Default/Room.hs

@@ -3,7 +3,6 @@ module Dodge.Default.Room
 import Geometry.Data
 import Dodge.Room.Data
 
-import qualified Data.IntMap.Strict as IM
 defaultRoom :: Room
 defaultRoom = Room
     { _rmPolys  = []
@@ -11,8 +10,8 @@ defaultRoom = Room
     , _rmPos    = []
     , _rmPath   = []
     , _rmPmnts  = []
-    , _rmTriggerPmnts = IM.empty
-    , _rmTriggers = IM.empty
+    , _rmPartialPmnt    = Nothing
+    , _rmExtendedPmnt   = Nothing
     , _rmBound  = []
     , _rmFloor  = []
     , _rmName   = "defaultRoom"