Add basic prompt

src/Dodge/Layout.hs

@@ -13,7 +13,7 @@ import Dodge.Default
 import Geometry
 import Dodge.Room.Link
 import qualified IntMapHelp as IM
-import Dodge.Debug.LinkDecoration
+--import Dodge.Debug.LinkDecoration
 
 import Control.Monad.State
 import Control.Lens
@@ -27,8 +27,8 @@ import qualified Data.Map as M
 generateLevelFromRoomList :: State StdGen [Room] -> World -> World
 generateLevelFromRoomList gr w = updateWallZoning 
     . placeSpots plmnts
-    . addRoomPolyDecorations rs
-    . addRoomLinkDecorations rs
+--    . addRoomPolyDecorations rs
+--    . addRoomLinkDecorations rs
     $ w { _walls = wallsFromRooms rs
         }
   where