Fix bug not adding last positioned room to list

2021-11-23 12:50:15 +00:00
parent 05bb1961c0
commit f51a6a7216
6 changed files with 33 additions and 21 deletions
@@ -34,6 +34,9 @@ safeHead :: [a] -> Maybe a
 safeHead (x:_) = Just x
 safeHead _ = Nothing

+errorHead :: String -> [a] -> a
+errorHead _ (x:_) = x
+errorHead s [] = error s

 you :: World -> Creature
 you w = _creatures w IM.! _yourID w