Cleanup

2022-05-20 21:47:18 +01:00
parent da302aad0c
commit 61fe9b7df4
11 changed files with 36 additions and 30 deletions
@@ -67,11 +67,11 @@ anoToRoomTree anos = case anos of
        let lr = fst lr'
        keyroom' <- fromJust $ lookup ii ks
        let keyroom = fst keyroom'
-        (return $ overwriteLabel 0 UseNone lr [keyroom]
-            ) <&> (,TreeSubLabelling ("PassthroughLockKeyLists-"++show ii) 
+        return (overwriteLabel 0 UseNone lr [keyroom]
+            ,TreeSubLabelling ("PassthroughLockKeyLists-"++show ii) 
                (Just $ treeFromPost [snd lr'] (snd keyroom'))
                )
-    _ -> (,TreeSubLabelling "" Nothing) <$> anoToRoomTree' anos
+    _ -> (,TreeSubLabelling "no label" Nothing) <$> anoToRoomTree' anos

 {- | Create a random room tree structure from a list of annotations.  -}
 anoToRoomTree' :: [Annotation] -> State StdGen (SubCompTree Room)