diff options
| author | Arnaud Bailly <arnaud@pankzsoft.com> | 2025-11-04 22:02:53 +0100 |
|---|---|---|
| committer | Arnaud Bailly <arnaud@pankzsoft.com> | 2025-11-04 22:02:53 +0100 |
| commit | 958cd52392185fc31333c1b208948046d7a9e635 (patch) | |
| tree | f4688c6c4b48a775596b0dc1766aeabe3627ffb7 /lambda-calcul/haskell/src/Minilang/API.hs | |
| parent | db4ecd7a93086585937b9b45970f4f4c4e1838a3 (diff) | |
| download | lambda-nantes-958cd52392185fc31333c1b208948046d7a9e635.tar.gz | |
Keep registered users
Diffstat (limited to 'lambda-calcul/haskell/src/Minilang/API.hs')
| -rw-r--r-- | lambda-calcul/haskell/src/Minilang/API.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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) |