@@ -224,7 +224,7 @@ generateCode expr =
224 generateCode (Data "no-flags" [body])
224 generateCode (Data "no-flags" [body])
226 Expr.Flags tipe ->
226 Expr.Flags tipe ->
227− generateCode (Data "flags" [Foreign.decode tipe, body])
227+ generateCode (Data "flags" [body, Foreign.decode tipe])
229 GLShader _uid src _tipe ->
229 GLShader _uid src _tipe ->
230 jsExpr $ ObjectLit () [(PropString () "src", Literal.literal (L.Str src))]
230 jsExpr $ ObjectLit () [(PropString () "src", Literal.literal (L.Str src))]