flaw-visual/Flaw/Visual/Geometry/Basic.hs
Move map inside list comprehension Open
Open
vertices = VG.fromList $ map (uncurry f)
[ ( fromIntegral i * meridianCoef
, fromIntegral j * parallelCoef
)
| i <- [0 .. meridiansCount]
- Read upRead up
- Exclude checks
Found
map (uncurry f)
[(fromIntegral i * meridianCoef, fromIntegral j * parallelCoef) |
i <- [0 .. meridiansCount], j <- [0 .. (parallelsCount - 1)]]
Perhaps
[(uncurry f)
(fromIntegral i * meridianCoef, fromIntegral j * parallelCoef)
| i <- [0 .. meridiansCount], j <- [0 .. (parallelsCount - 1)]]