diff options
| author | Arnaud Bailly <arnaud@pankzsoft.com> | 2025-11-04 08:09:35 +0100 |
|---|---|---|
| committer | Arnaud Bailly <arnaud@pankzsoft.com> | 2025-11-04 08:09:35 +0100 |
| commit | 51194425997225de7b7ca83e26b76b9a82f0e10d (patch) | |
| tree | 7faf74f783ea4ddf2e08fe6be3b536e6e7a8500f /lambda-calcul/haskell/src/Minilang/App.hs | |
| parent | 46d312450863eb8eb82fd8c33f7f80705de52cdb (diff) | |
| download | lambda-nantes-51194425997225de7b7ca83e26b76b9a82f0e10d.tar.gz | |
Scaffold RESTish API for challenge
Diffstat (limited to 'lambda-calcul/haskell/src/Minilang/App.hs')
| -rw-r--r-- | lambda-calcul/haskell/src/Minilang/App.hs | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lambda-calcul/haskell/src/Minilang/App.hs b/lambda-calcul/haskell/src/Minilang/App.hs new file mode 100644 index 0000000..2d21961 --- /dev/null +++ b/lambda-calcul/haskell/src/Minilang/App.hs @@ -0,0 +1,14 @@ +module Minilang.App where + +import Minilang.API (LambdaAPI, Score (..)) +import Servant.Server (Handler, Server) +import Data.Time (getCurrentTime) +import Control.Monad.IO.Class (liftIO) + +lambdaApp :: Server LambdaAPI +lambdaApp = getLeaderboard + +getLeaderboard :: Handler [Score] +getLeaderboard = do + now <- liftIO getCurrentTime + pure [Score "Alice" 95 now, Score "Bob" 88 now] |