Define room link datatypes

2021-11-23 13:00:34 +00:00
parent f51a6a7216
commit 67b0d694af
6 changed files with 25 additions and 14 deletions
@@ -140,7 +140,7 @@ finalLinksUpdate :: Room -> Room
 finalLinksUpdate rm = case _rmLinks rm of
    (_:_) -> rm
        & rmLinks %~ init
-        & rmPos %~ ( (uncurry InLink (last thelnks) :) . (map (uncurry UnusedLink) (init thelnks) ++) )
+        & rmPos %~ ( (uncurry UsedInLink (last thelnks) :) . (map (uncurry UnusedLink) (init thelnks) ++) )
    _ -> rm
  where
    thelnks = _rmLinks rm