Drop unneeded info from GLShader in optimized AST
commitc987f07744522a47f1d19082d28123d93ed4bc1f
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateTue 28 Mar 2017, 13:45 (10 years ago)
parent30261e2
src/AST/Expression/Optimized.hs+1−1
@@ -68,7 +68,7 @@ data Expr
6868 | OutgoingPort Text Type.Canonical
6969 | IncomingPort Text Type.Canonical
7070 | Program Can.Main Expr
71− | GLShader Text Text Literal.Shader
71+ | GLShader Text
7272 | Crash ModuleName.Canonical R.Region (Maybe Expr)
7373
7474
src/Generate/JavaScript/Expression.hs+1−1
@@ -206,7 +206,7 @@ generateCode expr =
206206 Program kind body ->
207207 generateProgram kind body
208208
209− GLShader _uid src _tipe ->
209+ GLShader src ->
210210 jsExpr $ JS.Object [(JS.StringProp "src", Literal.literal (L.Str src))]
211211
212212 Crash home region maybeBranchProblem ->
src/Optimize.hs+2−2
@@ -291,8 +291,8 @@ optimizeExpr context annExpr@(A.A region expression) =
291291 Can.SaveEnv _ _ ->
292292 error "save_the_environment should never make it to optimization phase"
293293
294− Can.GLShader uid src gltipe ->
295− pure (Opt.GLShader uid src gltipe)
294+ Can.GLShader _ src _ ->
295+ pure (Opt.GLShader src)
296296
297297
298298
src/Optimize/Inline.hs+2−2
@@ -165,7 +165,7 @@ count expression =
165165 Program _ expr ->
166166 count expr
167167
168− GLShader _ _ _ ->
168+ GLShader _ ->
169169 Map.empty
170170
171171 Crash _ _ maybeBranchProblem ->
@@ -276,7 +276,7 @@ replace substitutions expression =
276276 Program kind expr ->
277277 Program kind (go expr)
278278
279− GLShader _ _ _ ->
279+ GLShader _ ->
280280 expression
281281
282282 Crash home region maybeBranchProblem ->