В моем приложении Servant / Wai я хочу перенаправить все запросы с «domain.com» на «www.domain.com» {-# LANGUAGE OverloadedStrings #-} --....... app :: Application app req respond = do case requestHeaderHost req of Just host -> do...

После того, как я посмотрел хороший доклад Джорджа Уилсона ( MTL следующего уровня https://github.com/gwils/next-level-mtl-with-classy-optics/blob/master/Slides.pdf ) Я пытаюсь создать приложение который использует дизайн в стиле MTL и решил...

Данный: λ: >import Servant.HTML.Lucid Я создал newtype : λ: >newtype Foo = Foo String Однако не похоже, что в области видимости есть класс типов ToHtml Foo : λ: >instance ToHtml Foo <interactive>:3:10: warning:...

Я изучаю Servant и пишу простой сервис. Вот исходный код: {-# LANGUAGE DataKinds #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE LambdaCase #-} {-# LANGUAGE TypeOperators #-} {-# LANGUAGE RankNTypes #-} module BigMama where import...

Я нашел много вопросов, связанных с CORS, но ни один из них не решил мою проблему. Поскольку я новичок в веб-разработке, я был бы признателен за любую помощь в настройке и запуске инфраструктуры моего проекта. Мое приложение состоит из двух частей:...

Как реализовать API загрузки файлов с помощью Servant ? Я пытаюсь обработать «стандартный» multipart/form-data , но не могу понять, как объявить его в Servant. Это, очевидно, не работает, поскольку не может обрабатывать составные части: type...

Я хочу выполнить операцию удаления в Servant и вернуть ошибку или (). Вот мой код: del :: Int -> ExceptT ServantErr IO () del myId = liftIO $ do cn <- getConnection a <- execute cn "delete from table1 where id = ?" [myId] case a...

Я пытаюсь изучить руководство для servant , веб-DSL на уровне типов. Библиотека широко использует DataKind . языковое расширение. В начале этого руководства мы находим следующую строку, определяющую конечную точку веб-службы: type...

Я пытаюсь использовать persistent с MongoDB в API веб-сервисов Servant. Ниже приведен код моей модели ( Model.hs ) let mongoSettings = (mkPersistSettings (ConT ''MongoContext)) in share [mkPersist mongoSettings, mkMigrate "migrateAll"]...

Я работаю над интеграцией API, которая игнорирует существование XML или JSON в пользу простого добавления символьных данных. (Формат Metro2 , если интересно) Я упрощаю, но представьте, что человека нужно сериализовать так: В позиции 0, 4...

Может ли кто-нибудь предоставить мне минимальный пример файлов cookie с сервером-сервером, вай, варпом и т. Д.? Например, файл cookie с одним полем «язык» со значением «en». Есть ли простой способ, например, happstack-lite addCookies и...

Я создаю API с помощью Servant, и, похоже, он работает очень хорошо. И в соответствии с лучшими практиками я пишу для него несколько тестов, следуя официальному руководству здесь . Но я борюсь с этой частью, используя Servant-Quickcheck. Я...

Я пытался реализовать аутентификацию файлов cookie с использованием служебной аутентификации и использовать ее на своем веб-сайте. Я следил за README на сайте проекта GH https://github.com/haskell-servant/servant-auth и добавил простой Lucid HTML,...

У меня есть веб-приложение Servant. Мне нужно получить доступ к заголовкам файлов cookie для целей отладки. Из браузера я могу получить доступ к заголовкам, включая заголовки файлов cookie. С сервера я использую RequestLogger от Wai для регистрации...

Я использовал servant-generic-0.1.0.3 и servant-server-0.13.0.1 , чтобы сделать следующее: data Site route = Site { page :: route :- "page" :> Capture "x" Int :> Capture "y" Int :> Get '[JSON] [Int] , home :: route :-...