Modularise code concerning items

2021-03-12 02:29:24 +01:00
parent 9bdc6fddd7
commit 22275beb89
9 changed files with 339 additions and 292 deletions
@@ -126,6 +126,7 @@ noBoundClip = not . boundClip

 connectRoom :: a -> Tree (Either a a)
 connectRoom r = Node (Right r) [] 
+
 deadRoom :: a -> Tree (Either a a)
 deadRoom r = Node (Left r) []