@@ -159,7 +159,7 @@ instance (Pretty def, Pretty var, Var.ToString var) => Pretty (Expr' ann def var
160 Markdown _ _ _ -> P.text "[markdown| ... |]"
160 Markdown _ _ _ -> P.text "[markdown| ... |]"
162− GLShader _ _ _ -> P.text "[glShader| ... |]"
162+ GLShader _ _ _ -> P.text "[glsl| ... |]"
164 PortIn name _ -> P.text $ "<port:" ++ name ++ ">"
164 PortIn name _ -> P.text $ "<port:" ++ name ++ ">"