From 51194425997225de7b7ca83e26b76b9a82f0e10d Mon Sep 17 00:00:00 2001 From: Arnaud Bailly Date: Tue, 4 Nov 2025 08:09:35 +0100 Subject: Scaffold RESTish API for challenge --- lambda-calcul/haskell/src/Minilang/App.hs | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 lambda-calcul/haskell/src/Minilang/App.hs (limited to 'lambda-calcul/haskell/src/Minilang/App.hs') 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] -- cgit v1.3.1