Start to migrate all old level generation to MetaTrees

src/Dodge/UseAll.hs

@@ -1,6 +1,14 @@
-{-# LANGUAGE TupleSections #-}
-module Dodge.UseAll where
+--{-# LANGUAGE TupleSections #-}
+module Dodge.UseAll 
+    ( toOnward'
+    , toLabel'
+    , cleatOnward
+    , cleatSide
+    , rToOnward
+    , cleatLabel
+    ) where
 import Dodge.Data
+import Dodge.Tree.Compose
 import Dodge.Tree.Compose.Data
 
 import Data.Tree
@@ -13,8 +21,6 @@ toOnward s rm
         = Just ([s],rm & rmClusterStatus . csLinks . at OnwardCluster .~ Nothing)
     | otherwise = Nothing
 
-toOnward' :: Room -> Maybe Room
-toOnward' = fmap snd . toOnward ""
 
 toLabel' :: Int -> Room -> Maybe Room
 toLabel' i rm
@@ -24,8 +30,6 @@ toLabel' i rm
 rToOnward :: Monad m => String -> Tree Room -> m (MetaTree Room)
 rToOnward s t = return $ MTree s (tToBTree t) []
 
-tToBTree :: Tree Room -> MetaTree Room
-tToBTree (Node r ts) = BTree (_rmName r) r $ map tToBTree ts
 
 toClusterLabel :: Int -> String ->  Room -> Maybe ([String],Room)
 toClusterLabel i s rm