From e578da5c4f19af7446a48a9d78f45de51383d4ac Mon Sep 17 00:00:00 2001
From: Benjamin Barenblat <bbaren@mit.edu>
Date: Thu, 2 May 2013 21:21:22 -0400
Subject: Forum: Add upvote button

---
 forum/score.ur | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'forum/score.ur')

diff --git a/forum/score.ur b/forum/score.ur
index 48bbc01..a966a4d 100644
--- a/forum/score.ur
+++ b/forum/score.ur
@@ -15,3 +15,8 @@ val undecided = 0
 val inane = -1
 
 fun toInt s = s
+
+fun withUnits s base =
+    show s ^ " " ^ (case s of
+			1 => base
+		      | _ => base ^ "s")
-- 
cgit v1.2.3