From b2dc3a9199369af04cf3ee9db0d1ebb5576a594b Mon Sep 17 00:00:00 2001 From: Benjamin Barenblat Date: Tue, 30 Apr 2013 13:38:02 -0400 Subject: Forum: Rename “asker” to “author” MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- forum/author.ur | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 forum/author.ur (limited to 'forum/author.ur') diff --git a/forum/author.ur b/forum/author.ur new file mode 100644 index 0000000..e0b1989 --- /dev/null +++ b/forum/author.ur @@ -0,0 +1,26 @@ +type author = option string + +val eq_author = Option.eq + +val show_author = + mkShow ( + fn nameOpt => + case nameOpt of + None => "Anonymous" + | Some nam => nam + ) + +val read_author = + let fun parse text = + case text of + "Anonymous" => None + | nam => Some nam + in + mkRead parse (compose Some parse) + end + +val sql_author = sql_option_prim + +val anonymous = None + +val namedAuthor = Some -- cgit v1.2.3