Allow to log position of placement spot

src/Dodge/Room/LongDoor.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE TupleSections #-}
 -- | Rooms containing long doors, probably with a big reveal behind them.
 module Dodge.Room.LongDoor where
 
@@ -105,7 +106,8 @@ addButtonSlowDoor x h rm = do
   where
     theterminal =
         putMessageTerminal terminalColor (simpleTermMessage themessage)
-            & plSpot .~ rprBoolShift (isUnusedLnkType InLink) (shiftByV2 (V2 0 (-10)))
+            & plSpot .~ rprBoolShift (isUnusedLnkType InLink) 
+                (shiftByV2 (V2 0 (-10)) <&> (,S.singleton UsedPosLow))
     themessage =
         [ "WARNING:"
         , "LARGE BIOMASS DETECTED"