Cleanup

src/Dodge/UseAll.hs

@@ -1,6 +1,8 @@
+{-# LANGUAGE TupleSections #-}
 module Dodge.UseAll where
 import Dodge.Data
 
+import Data.Tree
 import Control.Lens
 import qualified Data.Set as S
 
@@ -9,6 +11,9 @@ toOnward s rm
     | OnwardCluster `elem` rm ^?! rmClusterStatus . csLinks = Just ([s],rm)
     | otherwise = Nothing
 
+rToOnward :: Monad m => String -> Tree Room -> m (Room -> Maybe ([String],Room), Tree Room)
+rToOnward s = return . (toOnward s ,)
+
 toClusterLabel :: Int -> String ->  Room -> Maybe ([String],Room)
 toClusterLabel i s rm
     | LabelCluster i `elem` rm ^?! rmClusterStatus . csLinks = Just ([s],rm)