We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 1facd81 commit ed76729Copy full SHA for ed76729
src/Graphics/Rendering/OpenGL/GL/Evaluators.hs
@@ -78,7 +78,7 @@ totalComponents1 :: MapDescriptor d -> Int
78
totalComponents1 (MapDescriptor _ stride order numComp) =
79
fromIntegral stride * (fromIntegral order - 1) + fromIntegral numComp
80
81
-totalComponents2 :: Domain d => MapDescriptor d -> MapDescriptor d -> Int
+totalComponents2 :: MapDescriptor d -> MapDescriptor d -> Int
82
totalComponents2 uDescriptor vDescriptor@(MapDescriptor _ _ _ numComp) =
83
totalComponents1 uDescriptor + totalComponents1 vDescriptor - fromIntegral numComp
84
0 commit comments