Cleanup

src/Dodge/LevelGen.hs

@@ -57,8 +57,7 @@ layoutLevelFromSeed i seed = do
 
 drawTreeSubLabelling :: Tree TreeSubLabelling -> String
 drawTreeSubLabelling t = drawTree (fmap _topLabel t)
-    ++ concat
-    (map f $ flatten t)
+    ++ concatMap f (flatten t)
   where
     f (TreeSubLabelling _ Nothing) = ""
     f (TreeSubLabelling l (Just t')) = l ++ ":\n" ++ drawTreeSubLabelling t'