Correct room link position numbering

2021-11-22 16:42:19 +00:00
parent b4759e4a27
commit 5d9ea4b733
23 changed files with 184 additions and 85 deletions
@@ -62,7 +62,7 @@ placeSpotUsingLink w rm plmnt extract eff fallback = case searchedPoss (_rmPos r
        Nothing -> ((w,rm),[plmnt])
        Just plmnt' -> placeSpot (w,rm) plmnt'
  where
-    searchedPoss [] = error "no correct pos type for lnk placement"
+    searchedPoss [] = Nothing
    searchedPoss (pos:poss) = case extract pos of
        Nothing -> second (pos:) <$> searchedPoss poss
        Just (ps,rmpos) -> Just ( ps,rmpos:poss)