@@ -193,10 +193,16 @@ expression (A region expr) =
193193 fields = zipWith (\n e -> (prop ("_" ++ show n), e)) [0..]
194194
195195 Markdown uid doc ->
196− return $ Var.value ["Text"] "markdown" `call` [ string md, string uid ]
197− where
198− pad = "<div style=\"height:0;width:0;\"> </div>"
199− md = pad ++ MD.toHtml doc ++ pad
196+ let text =
197+ obj ["Elm","Text","make"] <| ref localRuntime
198+
199+ pad =
200+ "<div style=\"height:0;width:0;\"> </div>"
201+
202+ md =
203+ pad ++ MD.toHtml doc ++ pad
204+ in
205+ return (DotRef () text (var "markdown") `call` [ string md, string uid ])
200206
201207 GLShader _uid src _tipe ->
202208 return $ ObjectLit () [(PropString () "src", literal (Str src))]