servant

    0

    2답변

    이상한 오류가 발생하여 문제를 해결할 수 없습니다. 서번트를 사용하고 있으며 일반 인증 라이브러리 (예 : 백엔드가 없음)를 빌드하려고합니다. type TokenProtect auth = AuthProtect "auth-token" type instance AuthServerData (TokenProtect auth) = Id auth Id 다른 유형

    1

    2답변

    나는 ZonedTime의 Aeson 및 Servant 전환 수에 의해 befuzzled. 내 Servant 앱으로 URL에 시간을 좀주세요 : .../2016-12-18T07:51:00+03:00/.... Servant은 ... :> Capture "zt" ZonedTime :> ...으로 쉽게 ZonedTime으로 변환합니다. 내 응용 프로그램에서 몇 가

    4

    1답변

    커스텀 모나드 (리더와 함께)를 사용하여 DB 풀과 같은 데이터를 핸들러에 쉽게 전달할 수 있습니다 (fn 인수로 연결을 전달하는 데 사용했던 커스텀 모나드를 사용하기 전에). 이 내가 내 사용자 지정 모나드를 정의한 방법입니다 newtype Controller a = Controller { runController :: ReaderT Server

    1

    1답변

    servant 라이브러리를 사용하여 웹 API에 대한 클라이언트 바인딩을 만들려고합니다. JSON 개체를 보내고 싶습니다. Couldn't match type ‘a0’ with ‘a’ because type variable ‘a’ would escape its scope This (rigid, skolem) type variable is

    2

    1답변

    간단한 증명 증명 서번트 API를 설정하는 중에 문제가 있습니다.이 data User = User { id :: Int, first_name :: String, last_name :: String } deriving (Eq, Show, Generic) instance FromRow User instance ToRow User $(deriveJSON d

    1

    1답변

    json api 및 static file serving에 각각 servant 및 Network.Wai.Application.Static을 사용하고 있습니다. 이 두 가지에 합류하기를 원합니다. 즉, staticApp이 제공되지 않으면 요청은 jsonApp으로 진행되어야합니다. 나는 websocketsOr이 그것을 어떻게하는지 알아 내고 읽는 것을 시도했다.

    2

    1답변

    저는 Servant를 배우고 간단한 서비스를 작성하고 있습니다. {-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveGeneriC#-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE TypeOperators #-} {-# LANGUAGE RankNTypes #-} module BigMama

    0

    1답변

    나는 서번트와 함께 persistent-postgresql을 사용하려고합니다. 나는 User 모델을 가지고 있습니다. id를 사용하여 해당 ID를 가진 사용자를 반환하는 끝점을 갖고 싶습니다. 다른 답변에 따르면 나는 get에 공급하는 Key 내로 Int64을 설정하는 toSqlKey를 사용할 수 있습니다. oneUser :: Int64 -> App (En

    1

    1답변

    나는 정의의 종 처리기 type ServiceSet = TVar (M.Map String [MicroService]) type LocalHandler = ReaderT ServiceSet IO 을 생성하지만 난 다음 함수에서 클라이언트에 발견 된 404-없는 상태 코드를 응답 할 수있는 방법을 찾지 못했습니다 : getService :: String

    2

    1답변

    그래서 하인 서버에 2 개의 미들웨어를 추가하고 싶습니다. 정적 파일 제공 용 미들웨어 1 개와 로깅 용 미들웨어 1 개 내 API는 (router)에 정의가 있고 이것이 내가 내 서버 시작하는 방법입니다 : 여기 webServer :: IO() webServer = run 80 (middleware $ router) 을 그리고 내가 정의하는 방법입니