Yan, приветствую. Создал statement :: Statement TertiaryUser TertiaryUser, надо подвести это под servant функцию TertiaryUser -> Handler TertiaryUser. Есть какие то методы для реализации этого великолепия?
userStatement :: Statement TertiaryUser TertiaryUser
f :: TertiaryUser -> Handler TertiaryUser
f user = do
result <- liftIO $
Hasql.run (Hasql.statement userStatement)
case result of
Right value -> pure value
Left queryError -> throwM err500
это же тривиально пишется, ты как будто изучаешь хаскель с нуля через приложение на серванте