From 958cd52392185fc31333c1b208948046d7a9e635 Mon Sep 17 00:00:00 2001
From: Arnaud Bailly <arnaud@pankzsoft.com>
Date: Tue, 4 Nov 2025 22:02:53 +0100
Subject: Keep registered users

---
 lambda-calcul/haskell/src/Minilang/API.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lambda-calcul/haskell/src/Minilang/API.hs')

diff --git a/lambda-calcul/haskell/src/Minilang/API.hs b/lambda-calcul/haskell/src/Minilang/API.hs
index 0ae0784..e9eef6a 100644
--- a/lambda-calcul/haskell/src/Minilang/API.hs
+++ b/lambda-calcul/haskell/src/Minilang/API.hs
@@ -20,9 +20,9 @@ import Servant (Get, JSON, Raw, ReqBody, StdMethod (POST), Verb, (:<|>), (:>))
 import System.Random (StdGen, uniformList)
 
 data Score = Score
-  { name :: String,
+  { user :: User,
     grade :: Int,
-    lastTest :: UTCTime
+    lastTest :: Maybe UTCTime
   }
   deriving (Eq, Show, Generic, ToJSON, FromJSON)
 
-- 
cgit v1.3.1