From d6181313f9d286e8e3f88ef4109d0857b4407eb8 Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Sat, 21 Mar 2015 19:17:37 +0900
Subject: add some test scores data from last Friday afternoon

---
 src/Data/Classes.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/src/Data/Classes.hs b/src/Data/Classes.hs
index 19a5bd8..328a8b0 100644
--- a/src/Data/Classes.hs
+++ b/src/Data/Classes.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE TupleSections #-}
 
 module Data.Classes ( zeroScores
+                    , testScores
                     , lookupSariulClass) where
 
 import Types.Classes
@@ -34,3 +35,15 @@ lookupSariulClass grade theClass = do
     case classes of
         []     -> Nothing
         (x:xs) -> Just x
+
+--- test data
+
+testScores :: ScoresList
+testScores = zip sariulClasses
+             [ Score 408 7
+             , Score 455 7
+             , Score 383 91
+             , Score 256 56
+             , Score 277 101
+             , Score 308 43
+             , Score 303 2]
-- 
cgit v1.2.3