Cleanup

src/Dodge/Room/Link.hs

@@ -62,9 +62,7 @@ randomiseAllLinks r = do
 {- Shuffle the order of all links of a room randomly. 
  - Note this does not change their types. -}
 shuffleLinks :: RandomGen g => Room -> State g Room
-shuffleLinks r = do
-    newLinks <- shuffle $ _rmLinks r
-    return $ r {_rmLinks = newLinks }
+shuffleLinks = rmLinks %%~ shuffle
 
 filterLinks :: RandomGen g => ((Point2,Float) -> Bool) -> Room -> State g Room
 filterLinks cond r = do