Convert parallel list comprehension to zipWith3, #536.

GlideAngle · Apr 22, 2021 · 2041002 · 2041002
1 parent 3622a86
commit 2041002
Showing 1 changed file with 9 additions and 10 deletions.
diff --git a/lang-haskell/mask/library/Flight/Mask/Tag/Double.hs b/lang-haskell/mask/library/Flight/Mask/Tag/Double.hs
@@ -286,16 +286,15 @@ instance GeoTagInterpolate Double a => GeoTag Double a where
             yss' :: [[Crossing]]
             yss' = (fmap . fmap) unOrdCrossing yss
 
-            selected =
-                SelectedCrossings
-                [
-                    let prover = proveCrossing timecheck mark0 fixes
-                    in selectZoneCross prover selector ys
-
-                | timecheck <- timechecks
-                | selector <- selectors
-                | ys <- yss'
-                ]
+            selected = SelectedCrossings $
+                zipWith3
+                    (\timecheck selector ys ->
+                        let prover = proveCrossing timecheck mark0 fixes
+                        in selectZoneCross prover selector ys)
+
+                    timechecks
+                    selectors
+                    yss'
 
             fs =
                 (\x ->