나는 웹 요청을 수락하고 (필요에 따라 데이터베이스를 컨설팅) 응답을 빌드하는 기능 app :: Request -> H.Session H.Postgres IO Response
을 썼다. 이 새로운를 생성하기 때문에이 정말 나쁜 runSettings appSettings $ runApp pgSettings sessSettings
을 : 실제로 응답을
PostgreSQL에서 변수를 설정하기 위해 Hasql을 사용하여 매개 변수화 된 명령문을 작성하려고합니다. import qualified Hasql.Encoders as E
import qualified Hasql.Decoders as D
setOrganization :: Query Int64()
setOrganization = statement
Hasql에 "select ... where in"쿼리에 대한 목록을 인코딩하려고합니다. 내가 contravariant-extras에서 contramany을 사용하면 typechecks하지만 런타임에 구문 오류가 발생합니다. import qualified Database.Encoders as E
import Contravariant.Extras
get
인코딩합니다. Hasql을 사용하여 다음 sum 유형을 인코딩하는 방법은 무엇입니까? 인코더 sumValue :: Value SumValue을 만들려고했지만 패턴 일치가 불가능합니다. 예 : SumBool을 Hasql.Encoders.bool으로, SumChar을 Hasql.Encoders.char으로 인코딩하고 싶습니다. data SumValue