Cleanup enough to make haddock work

2021-04-04 16:39:58 +02:00
parent 3b417c4966
commit 654479da36
4 changed files with 17 additions and 17 deletions
@@ -67,7 +67,7 @@ wallsFromTree t =
 --    createInnerWalls 
    divideWalls 
    . assignKeys 
-    . foldr cutWalls [] -- $ map (map (g . roundPoint2)) 
+    . foldr cutWalls [] -- map (map (g . roundPoint2)) 
 --    . map (map roundPoint2)
    $ (concatMap _rmPolys $ flatten t)
  where