← All posts tagged yesod

Пока не поменял ендпоинт европейскому бкету на EU-шный. При аплоаде периодически пугал меня ошибками
hClose: resource vanished
и
FailedConnectionException "bucket_name.s3.amazonaws.com" 443
после удаления. Хотя и удалял
Срань какая-то...

блин какая-то магия. Делаю всё то же что и в #2522513 , но не в виртуалке. Не хочет собираться, как залипло. Кажет ошибку :

Resolving dependencies...
cabal: Could not resolve dependencies:
trying: AxxonCloud-0.0.1 (user goal)
trying: asn1-types-0.2.1 (dependency of AxxonCloud-0.0.1)
next goal: yesod-platform (dependency of AxxonCloud-0.0.1)
rejecting: yesod-platform-1.2.4.2, 1.2.4.1, 1.2.4 (conflict:
asn1-types==0.2.1, yesod-platform => asn1-types==0.2.0)
rejecting: yesod-platform-1.2.3, 1.2.2, 1.2.1, 1.2.0.1, 1.2.0, 1.1.9.1, 1.1.9,
1.1.8, 1.1.7.2, 1.1.7.1, 1.1.7, 1.1.6.1, 1.1.6, 1.1.5, 1.1.4.1, 1.1.4, 1.1.3,
1.1.2, 1.1.1, 1.1.0, 1.0.6.1, 1.0.6, 1.0.5, 1.0.4.2, 1.0.4.1, 1.0.4, 1.0.3.4,
1.0.3.3, 1.0.3.2, 1.0.2, 1.0.1, 1.0.0, 0.10.3, 0.10.2 (conflict: AxxonCloud =>
yesod-platform>=1.2.4 && <1.3)
Backjump limit reached (change with --max-backjumps).
Note: when using a sandbox, all packages are required to have consistent
dependencies. Try reinstalling/unregistering the offending packages or
recreating the sandbox.
cabal-meta:
log of commands saved to: /home/yuriy-shelyag/sandboxes/axxoncloud/.shelly/4.txt
Exception: error running: cabal install hashable -fsse41 /home/yuriy-shelyag/sandboxes/axxoncloud/ vendor/starling
exit status: 1
stderr: cabal: Could not resolve dependencies:
trying: AxxonCloud-0.0.1 (user goal)
trying: asn1-types-0.2.1 (dependency of AxxonCloud-0.0.1)
next goal: yesod-platform (dependency of AxxonCloud-0.0.1)
rejecting: yesod-platform-1.2.4.2, 1.2.4.1, 1.2.4 (conflict:
asn1-types==0.2.1, yesod-platform => asn1-types==0.2.0)
rejecting: yesod-platform-1.2.3, 1.2.2, 1.2.1, 1.2.0.1, 1.2.0, 1.1.9.1, 1.1.9,
1.1.8, 1.1.7.2, 1.1.7.1, 1.1.7, 1.1.6.1, 1.1.6, 1.1.5, 1.1.4.1, 1.1.4, 1.1.3,
1.1.2, 1.1.1, 1.1.0, 1.0.6.1, 1.0.6, 1.0.5, 1.0.4.2, 1.0.4.1, 1.0.4, 1.0.3.4,
1.0.3.3, 1.0.3.2, 1.0.2, 1.0.1, 1.0.0, 0.10.3, 0.10.2 (conflict: AxxonCloud =>
yesod-platform>=1.2.4 && <1.3)
Backjump limit reached (change with --max-backjumps).
Note: when using a sandbox, all packages are required to have consistent
dependencies. Try reinstalling/unregistering the offending packages or
recreating the sandbox.

Чувствую себя дибилом. #2521749 . Сделал всё начисто — работает.
Т.е. удалил весь локальный кабал, поставил системный, им поставил последнюю версию локально, прибил системный, вышел из баша , добавил ~/.cabal/bin в пути ; поставил cabal-meta и cabal-src , создал сендбокс, поставил сборку. И оно, сука, собралось.

Забавный прикол 
Этот хендлер отправляет приложение в SegFault

getFileMetaR  fileId = do
    File {..} <- runDB $ get404 fileId
    returnJson $ object ["id" .= fileId, "mime-type" .= fileMimetype, "ttl" .= fileTtl]

а этот нет
getFileMetaR  fileId = do
    File {..} <- fromJust404 $ runDB $ get fileId
    returnJson $ object ["id" .= fileId, "mime-type" .= fileMimetype, "ttl" .= fileTtl]

Где 
fromJust404 ::MonadHandler m => m (Maybe a) -> m a
fromJust404 l = l >>= maybe notFound return

а get404 http://hackage.haskell.org/packages/archive/yesod-persistent/1.2.0/doc/html/src/Yesod-Persist.html#get404

Господа, подскажите как лучше сделать.
Задача: тестирование веб приложения на yesod.
Как я это себе вижу — идёт последовательно несколько тестов:
1. Добавление пользователя
2. Добавление этому пользователю некоего хранилища с секретом для подписывания (здесь мы где-то запоминаем id хранилища и секрет)
3. Добавление файлов в это хранилище.

Т.е. мне надо как-то шарить состояние между тестами. А hspec такого не умеет :( github.com И походу yesod.test основанный на нём не умеет тоже.
Можно, конечно, погдотовить некое тестовое окружение, т.е. добавить в базу нужные значения и пользоваться захардкожеными значениями.
Возможно, есть какие-то готовые рекомндации или всё самому?

Чувствую себя идиотом, но никак не могу ответить на вопрос. Как правильно работать с файлами открытыми на время жизни приложения?
Вот есть у меня тип App для которого я делаю инстанс Yesod тайпкласа. Запихнул я в него хендл файла. Открыл файл в makeFoundations функции открыл этот файл, а в других фитаю из него. Вопрос в том куда запихать closeFile? Я сперва подумал про ResourceT и его register, но не тут то было. Сигнатура makeFoundation Этого не позволяет. Делать обёртки вида withFile? Что-то как-то совсем криво получется...

Вопрос по стилистике:
Вот есть у меня база в ней хранится инфа о некоем серевере (его имя и т.п.), по его ID (Persistent) из memcached-а я могу вынуть статус активности сервера, а так же по его ID я могу среднерить его URL (функция рендеринга вынимается из монады хендлера).
Мне надо вернуть JSON объект состоящий из ID, инфы из базы, url и статуса активности.
Собственно я из базы получил список, по нему сделал список Bool и Texl(урлы) , а потом zip-нул в tuple и используя паттерн матчинг сериализовал список таких туплов в JSON.
Вопрос вот в чём — плохая ли это практика и надо ли было запилить тип данных для сериализации и грязную функцию конвертер, которая лезет в memcached и т.п. ?