Cleanup

src/Dodge/UseAll.hs

@@ -8,9 +8,13 @@ import qualified Data.Set as S
 
 toOnward :: String -> Room -> Maybe ([String],Room)
 toOnward s rm
-    | OnwardCluster `elem` rm ^?! rmClusterStatus . csLinks = Just ([s],rm)
+    | OnwardCluster `elem` rm ^?! rmClusterStatus . csLinks 
+        = Just ([s],rm & rmClusterStatus . csLinks . at OnwardCluster .~ Nothing)
     | otherwise = Nothing
 
+toOnward' :: Room -> Maybe Room
+toOnward' = fmap snd . toOnward ""
+
 rToOnward :: Monad m => String -> Tree Room -> m (Room -> Maybe ([String],Room), Tree Room)
 rToOnward s = return . (toOnward s ,)