IHP能否用于具有JWT身份验证的应用程序后端？

是的，IHP可以用于具有JWT身份验证的应用程序后端。以下是一个简单的示例：

首先，在.config/routes文件中添加以下路由：

module Web.Routes where

...

routes :: ByteString -> Router
routes jwtSecret =
    ...

    -- JWT Authentication Example
    "/api/authenticate" # case POST => \_ -> jwtAuthenticate jwtSecret

    -- Protected API routes
    "/api" # applicationRouter jwtSecret

    ...

然后，在.app/Application.hs文件中，您可以编写一个名为jwtAuthenticate的函数来处理JWT身份验证：

{-# LANGUAGE OverloadedStrings #-}
module Application where

...

import Control.Monad (when)

jwtAuthenticate :: ByteString -> Action WebApplication ()
jwtAuthenticate jwtSecret = do
    -- Decode the JWT token from the request body
    decodedToken <- requireJsonBody :: ActionT WebApplication (Maybe JwtToken)

    case decodedToken of
        Nothing -> json $ object ["success" .= False, "message" .= ("Invalid JWT token" :: Text)]
        Just token -> do
            -- Verify the JWT token
            verified <- verifyJwt jwtSecret token

            when (not verified) $
                json $ object ["success" .= False, "message" .= ("Invalid JWT token" :: Text)]

            -- Return a success response with the JWT token
            json $ object ["success" .= True, "token" .= token]

这个函数会将包含JWT令牌的请求体解码为一个名为JwtToken的类型，然后使用verifyJwt函数验证令牌。

最后，在.app/Controller/API目录中，您可以编写您的API控制器，例如：

module Controller.API where

...

data ApiJWTController = ApiJWTController

-- Require JWT authentication for all endpoints in this controller
instance Controller ApiJWTController where
    beforeAction = jwtAuthenticateAction jwtSecret

-- Define the API endpoints
instance HasPath ApiJWTController where
    path _ = "/api"

instance CanRoute ApiJWTController where
    parseRoute' = do
        _ <- string "/api"
        controller <- parseRoute' @(NestedController ApiJWT