From 97e494a7c5a105bba6a48f5025e71a376fc8673d Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sun, 8 Mar 2015 13:26:52 +0100
Subject: Save round durations

---
 src/Model/Round.elm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 src/Model/Round.elm

(limited to 'src/Model/Round.elm')

diff --git a/src/Model/Round.elm b/src/Model/Round.elm
new file mode 100644
index 0000000..d5210d5
--- /dev/null
+++ b/src/Model/Round.elm
@@ -0,0 +1,19 @@
+module Model.Round
+  ( Round
+  , roundOrder
+  ) where
+
+import Time (Time)
+
+type alias Round =
+  { duration : Time
+  , score : Int
+  }
+
+roundOrder : Round -> Round -> Order
+roundOrder round1 round2 =
+  if round1.score == round2.score
+    then
+      compare round2.duration round1.duration
+    else
+      compare round1.score round2.score
-- 
cgit v1.2.3