@@ -77,15 +77,17 @@ subst old new expression =
7777 Record fields ->
7878 Record (map (second f) fields)
7979
80− Literal _ -> expression
80+ Literal _ ->
81+ expression
8182
82− GLShader _ _ _ -> expression
83+ GLShader _ _ _ ->
84+ expression
8385
84− Input name st ->
85− Input name st
86+ Input _ _ ->
87+ expression
8688
87− Output name st expr ->
88− Output name st (f expr)
89+ Output name tipe expr ->
90+ Output name tipe (f expr)
8991
9092 Loopback name tipe maybeExpr ->
9193 Loopback name tipe (fmap f maybeExpr)