Commit before generalising FromWest/South etc

src/Dodge/Annotation.hs

@@ -7,7 +7,7 @@ module Dodge.Annotation
 import Dodge.UseAll
 import RandomHelp
 import Dodge.Tree
---import Dodge.Data
+import Dodge.Data
 import Dodge.Annotation.Data
 import LensHelp
 
@@ -16,7 +16,8 @@ import Data.Maybe
 
 annoToRoomTree :: Annotation -> State (StdGen,Int) MTRS
 annoToRoomTree an = case an of
-    SpecificRoom r -> zoom _1 r 
+    AnTree t -> zoom _1 t 
+    AnRoom r -> MTree "SingleRoom" . NodeTree . pure . (rmClusterStatus . csLinks . at OnwardCluster ?~ ())  <$> zoom _1 r <*> return []
     OnwardList ans -> do
         mts <- mapM annoToRoomTree ans
         return $ foldr1 attachOnward mts