Linting

2021-04-23 11:10:45 +02:00
parent c740ca0844
commit ffe4a8083b
14 changed files with 329 additions and 286 deletions
@@ -156,8 +156,8 @@ addPolyWall (p1,p2) walls =
    p3 = 0.5 *.* (p1 +.+ p2)
    p4 = p3 +.+ 10000 *.* vNormal (p2 -.- p1)
    maybeWs = -- listToMaybe .
-              fmap fst
-              . fmap unzip
+              fmap (fst . unzip)
+--              . fmap unzip
              . listToMaybe
              $ groupBy ((==) `on` (dist p3 . snd))
                wlsP