@@ -77,15 +77,17 @@ subst old new expression =
77 Record fields ->
77 Record fields ->
78 Record (map (second f) fields)
78 Record (map (second f) fields)
80− Literal _ -> expression
81+ expression
82− GLShader _ _ _ -> expression
83+ GLShader _ _ _ ->
84− Input name st ->
86+ Input _ _ ->
85− Input name st
87+ expression
87− Output name st expr ->
89+ Output name tipe expr ->
88− Output name st (f expr)
90+ Output name tipe (f expr)
90 Loopback name tipe maybeExpr ->
92 Loopback name tipe maybeExpr ->
91 Loopback name tipe (fmap f maybeExpr)
93 Loopback name tipe (fmap f maybeExpr)