flaw-visual/Flaw/Visual/Geometry/Basic.hs

Summary

Maintainability
Test Coverage

Move map inside list comprehension
Open

  vertices = VG.fromList $ map (uncurry f)
    [ ( fromIntegral i * meridianCoef
      , fromIntegral j * parallelCoef
      )
    | i <- [0 .. meridiansCount]

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)]]

There are no issues that match your filters.

Category
Status