We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 5ea4a97 commit 80440b3Copy full SHA for 80440b3
src/Graphics/Rendering/OpenGL/GL/Texturing/Environments.hs
@@ -320,7 +320,8 @@ argAlpha n = arg (argNumToOperandAlpha n) (argNumToSrcAlpha n)
320
321
arg :: TextureEnvParameter -> TextureEnvParameter -> StateVar Arg
322
arg op src = combineArg (textureEnvOperand op) (textureEnvSrc src)
323
- where combineArg v w = makeStateVar
+ where combineArg :: StateVar BlendingFactor -> StateVar Src -> StateVar Arg
324
+ combineArg v w = makeStateVar
325
(liftM2 Arg (get v) (get w))
326
(\(Arg x y) -> do v $= x; w $= y)
327
0 commit comments