Привет! Кто как делает подобные вещи? letr из https://github.com/aphyr/dom-top

clojure
(defn register [ctx params]
  (letr [_ (if-let [err (check-logged-out ctx params)]
             (return [nil err]))
         _ (if-let [err (check-params params)]
             (return [nil err]))
         _ (if-let [err (check-registered ctx params)]
             (return [nil err]))

         user-id (create-user ctx params)
         _       (sign-in ctx user-id)]
    [{:user-id user-id} nil]))

я бы так сделал

(let [err (or (check-logged-out ctx params)
              (check-params params)
              (check-registered ctx params))
      res (when-not err
            (create-user ctx params)
            {:user-id (sign-in ctx params)})]
  [res err])

хм, занятно)

можно и let на самом деле опустить, но читаться будет еще хуже

по идее вот тут должен быть let

(when-not err
            (create-user ctx params)
            {:user-id (sign-in ctx params)})

просто еще один уровень добавится

а есть примеры раннего возратв?

а зачем тут нужен let?

именно в этом случае не нужен

но появится еще какой-то вызов, и будет нужен

а, ну как появится то конечно нужно будет что-то поменять) но тут вариантов как это сделать понятнее будет много, например вместо let внести все эти вызовы в body

в боди их не вынесешь

нужно же как-то результат возвращать

твой пример идеален для конкретного случая

может есть какая-то статейка про это?

с разбором случаев

где и что применять

есть одна статья, кину если вспомню

есть какие-то ключевики?

там что-то было то ли про F#, толи про C# с неплохими илюстрациями в виде рельс

это про either

по F# вроде

или они как раз объясняют без монад?

с монадами конечно) но сама статья была неплохой

https://fsharpforfunandprofit.com/posts/recipe-part2/

да, она

ты вообще видел в clojure где-нибудь монады в продакшене? это просто вопрос=)

их реально кто-то использует?

нет) по крайней мере мне не попадалось такого) но монады это способ реализации, типа один из многих. сам принцип лучше ухватить) мол реализуйте ваши функции как можно более изолированными + задайте стандартный интерфейс для проброса ошибки

спасибо за пример)

(defn call [ctx params]
  (let [err (or (check-logged-out ctx params)
                (check-params params)
                (check-registered ctx params))
        res (when-not err
              (let [user-id (create-user ctx params)
                    _       (sign-in ctx user-id)]
                {:user-id user-id}))]
    [res err]))

а… понял, если не менять sign-in, то да

https://gist.github.com/ah45/7518292c620679c460557a7038751d6d

вот реализация рельс на кложе по той же статье

спс, почитаю