1 files changed, 18 insertions, 1 deletions
diff --git a/lambda-calcul/haskell/src/Minilang/API.hs b/lambda-calcul/haskell/src/Minilang/API.hs
index 8082ac8..94976d2 100644
--- a/lambda-calcul/haskell/src/Minilang/API.hs
+++ b/lambda-calcul/haskell/src/Minilang/API.hs
@@ -16,11 +16,28 @@ import qualified Data.ByteString.Lazy as LBS
 import Data.Text (Text)
 import Data.Time (UTCTime)
 import GHC.Generics (Generic)
-import Servant (FromHttpApiData, Get, JSON, Post, QueryParam, Raw, ReqBody, StdMethod (POST), ToHttpApiData, Verb, parseUrlPiece, toUrlPiece, (:<|>), (:>))
+import Servant
+  ( Delete,
+    FromHttpApiData,
+    Get,
+    JSON,
+    Post,
+    QueryParam,
+    Raw,
+    ReqBody,
+    StdMethod (POST),
+    ToHttpApiData,
+    Verb,
+    parseUrlPiece,
+    toUrlPiece,
+    (:<|>),
+    (:>),
+  )
 import System.Random (StdGen, uniformList)
 
 type LambdaAPI =
   "api" :> "register" :> ReqBody '[JSON] User :> Verb 'POST 201 '[JSON] Token
+    :<|> "api" :> "register" :> QueryParam "token" Token :> Delete '[JSON] Score
     :<|> "api" :> "leaderboard" :> Get '[JSON] [Score]
     :<|> "api" :> "score" :> QueryParam "token" Token :> Get '[JSON] Score
     :<|> "api" :> "challenge" :> QueryParam "token" Token :> Get '[JSON] Challenge