Skip to content

Commit 80440b3

Browse files
committed
Added explicit type signature for GHC >= 7.10.
1 parent 5ea4a97 commit 80440b3

File tree

1 file changed

+2
-1
lines changed

1 file changed

+2
-1
lines changed

src/Graphics/Rendering/OpenGL/GL/Texturing/Environments.hs

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -320,7 +320,8 @@ argAlpha n = arg (argNumToOperandAlpha n) (argNumToSrcAlpha n)
320320

321321
arg :: TextureEnvParameter -> TextureEnvParameter -> StateVar Arg
322322
arg op src = combineArg (textureEnvOperand op) (textureEnvSrc src)
323-
where combineArg v w = makeStateVar
323+
where combineArg :: StateVar BlendingFactor -> StateVar Src -> StateVar Arg
324+
combineArg v w = makeStateVar
324325
(liftM2 Arg (get v) (get w))
325326
(\(Arg x y) -> do v $= x; w $= y)
326327

0 commit comments

Comments
 (0)