ribosome-host-0.9.9.9: lib/Ribosome/Host/Interpreter/UserError.hs

module Ribosome.Host.Interpreter.UserError where

import Polysemy.Log (Severity (Info))

import Ribosome.Host.Effect.UserError (UserError (UserError))

interpretUserErrorInfo :: InterpreterFor UserError r
interpretUserErrorInfo =
  interpret \case
    UserError e severity | severity >= Info ->
      pure (Just [e])
    UserError _ _ ->
      pure Nothing