This commit is contained in:
2022-06-09 11:34:34 +01:00
parent e4e7122070
commit 5aa55b3c86
39 changed files with 0 additions and 43 deletions
-1
View File
@@ -14,7 +14,6 @@ import Geometry
import Picture
import qualified Data.IntMap.Strict as IM
import Control.Monad.State
{- | A passage with a switch that opens forward access while closing backwards access. -}
airlock :: RandomGen g => State g Room
airlock = takeOne [airlock0,airlock90,airlockCrystal,airlockZ]