Packages

An LFE Command Line Options & Tool Builder

Current section

Files

Jump to
lcli src lcli-exceptions.lfe
Raw

src/lcli-exceptions.lfe

(defmodule lcli-exceptions
(export all))
(defun make-error (msg)
`#(error ,msg))
(defun make-error (err msg)
`#(,err ,msg))
(defun make-error-info (err preamble msg)
(clj:->> msg
(list preamble)
(io_lib:format "~s ~p")
(make-error err)))
(defun arg-parse (msg)
(make-error-info 'arg-parse-error "Can't parse args:" msg))
(defun opt-parse (msg)
(make-error-info 'opt-parse-error "Can't parse options:" msg))