module Dodge.Room.LockAndKeyList
    where
import Dodge.Room.Data
import Dodge.Room.RoadBlock
import Dodge.Room.Boss

import Control.Monad.State
import System.Random
import Data.Tree

lockAndKeyRoomList :: RandomGen g => 
    [   (State g (Tree (Either Room Room))
        ,State g (Tree (Either Room Room))
        )                                   ]
lockAndKeyRoomList =
    [   ( fmap (pure . Right) armouredCorridor
        , fmap (fmap Left) armouredChasers
        )
    ]