c987f07 · elk · git.iko.soy

src/AST/Expression/Optimized.hs+1−1

compare with master

unifiedsplit

@@ -68,7 +68,7 @@ data Expr

68 | OutgoingPort Text Type.Canonical

69 | IncomingPort Text Type.Canonical

70 | Program Can.Main Expr

71− | GLShader Text Text Literal.Shader

71+ | GLShader Text

72 | Crash ModuleName.Canonical R.Region (Maybe Expr)

73

74

src/Generate/JavaScript/Expression.hs+1−1

@@ -206,7 +206,7 @@ generateCode expr =

206 Program kind body ->

207 generateProgram kind body

208

209− GLShader _uid src _tipe ->

209+ GLShader src ->

210 jsExpr $ JS.Object [(JS.StringProp "src", Literal.literal (L.Str src))]

211

212 Crash home region maybeBranchProblem ->

src/Optimize.hs+2−2

@@ -291,8 +291,8 @@ optimizeExpr context annExpr@(A.A region expression) =

291 Can.SaveEnv _ _ ->

292 error "save_the_environment should never make it to optimization phase"

293

294− Can.GLShader uid src gltipe ->

294+ Can.GLShader _ src _ ->

295− pure (Opt.GLShader uid src gltipe)

295+ pure (Opt.GLShader src)

296

297

298

src/Optimize/Inline.hs+2−2

@@ -165,7 +165,7 @@ count expression =

165 Program _ expr ->

166 count expr

167

168− GLShader _ _ _ ->

168+ GLShader _ ->

169 Map.empty

170

171 Crash _ _ maybeBranchProblem ->

@@ -276,7 +276,7 @@ replace substitutions expression =

276 Program kind expr ->

277 Program kind (go expr)

278

279− GLShader _ _ _ ->

279+ GLShader _ ->

280 expression

281

282 Crash home region maybeBranchProblem ->