20 lines
485 B
Haskell
20 lines
485 B
Haskell
module Dodge.Room.LockAndKeyList
|
|
where
|
|
import Dodge.LevelGen.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
|
|
)
|
|
]
|