Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Removing @deprecated constructs.

  • Loading branch information...
commit f2f32285d4b308b4df91d3adaa92465dc6bbcf67 1 parent ff2db73
@akoprow akoprow authored
View
1  src/main.opa
@@ -25,7 +25,6 @@ resources = @static_include_directory("img")
urls : Parser.general_parser(http_request -> resource) =
parser
- | {Rule.debug_parse_string(s -> jlog("URL: {s}"))} Rule.fail -> error("")
| "/favicon." .* -> _req ->
@static_resource("./img/favicon.png")
| result={Server.resource_map(resources)} -> _req ->
View
4 src/msg.opa
@@ -71,9 +71,9 @@ Msg = {{
| ~{ user } -> User.ref_to_anchor(user)
content = List.map(render_segment, parse(msg))
date = WDatePrinter.html(WDatePrinter.default_config,
- uniq(), Msg.get_creation_date(msg))
+ Dom.fresh_id(), Msg.get_creation_date(msg))
author = Msg.get_author(msg)
- id = uniq()
+ id = Dom.fresh_id()
classes = ["msg" | if mode == {new} then ["hidden"] else []]
ready(_) = match mode with
| {new} ->
View
4 src/msg_box.opa
@@ -50,13 +50,13 @@ import widgets.{core,button}
[]
counter_xhtml = <span>{remaining}</>
|> apply_css(counter_css, _)
- do exec([#{get_counter_id(id)} <- counter_xhtml])
+ do Dom.transform([#{get_counter_id(id)} <- counter_xhtml])
preview =
if remaining > 0 then
mk_msg(content) |> Msg.render(_, {preview})
else
MSG_TOO_LONG_WARNING
- do exec([#{get_preview_id(id)} <- preview])
+ do Dom.transform([#{get_preview_id(id)} <- preview])
enabled = not(String.is_empty(content) || remaining < 0)
do WButton.set_enabled_state(submit_button_cfg, get_submit_button_id(id),
enabled)
View
4 src/pages.opa
@@ -22,7 +22,7 @@ Pages = {{
("Twopenny", unimplemented, empty_style)
@client show_new_message(~{newmsg}) =
- exec([#msgs -<- Msg.render(newmsg, {new})])
+ Dom.transform([#msgs -<- Msg.render(newmsg, {new})])
@client setup_msg_updates(_) =
chan = Session.make_callback(show_new_message)
@@ -32,7 +32,7 @@ Pages = {{
@client setup_newmsg_box(user)(_) =
xhtml = WMsgBox.html("msgbox", Msg.create(user, _), MsgFactory.submit)
- exec([#newmsg <- xhtml])
+ Dom.transform([#newmsg <- xhtml])
user_page(user_ref : User.ref) =
user_string = User.ref_to_string(user_ref)
View
2  src/user.opa
@@ -120,7 +120,7 @@ User =
}
mk_passwd(pass : string) : passwd =
- md5(pass)
+ Crypto.Hash.md5(pass)
}}
Please sign in to comment.
Something went wrong with that request. Please try again.