Refactoring, add screen when generating level

src/Dodge/Room/Link.hs

@@ -43,13 +43,13 @@ filterLinks :: RandomGen g => ((Point2,Float) -> Bool) -> Room -> State g Room
 filterLinks cond r = do
     newLinks <- shuffle $ filter cond $ init $ _rmLinks r
     return $ r {_rmLinks = newLinks ++ [last $ _rmLinks r]}
-
+{- | Swaps the last link in the list with one that satisfies a given
+ - property (it might swap with itself). Unsafe. -}
 changeLinkTo :: RandomGen g => ((Point2,Float) -> Bool) -> Room -> State g Room
 changeLinkTo cond r = do
     l <- takeOne $ filter cond $ _rmLinks r
     let newLinks = delete l (_rmLinks r) ++ [l]
     return $ r {_rmLinks = newLinks}
-
 {- | Move a room so that the last link in '_rmLinks' lines up to 
 an external point and direction.
 This is intended to work when the external point is an outgoing link from another room.