github/calrissian
1
0
Fork 0
mirror of https://github.com/correl/calrissian.git synced 2024-11-23 19:19:57 +00:00
Code Issues Projects Releases Packages Wiki Activity

Added version util funcs.

Browse source
This commit is contained in:
Duncan McGreggor 2015-05-21 17:41:52 -05:00
parent e0dbe6ff15
commit e5ab919365
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/calrissian-util.lfe
View file

@ -1,9 +1,18 @@
(defmodule calrissian-util (defmodule calrissian-util
(export (module-info 1) (export (get-version 0)
(get-versions 0)
(module-info 1)
(module-info 2) (module-info 2)
(implements? 2) (implements? 2)
(exports? 2))) (exports? 2)))
(defun get-version ()
(lutil:get-app-version 'calrissian))
(defun get-versions ()
(++ (lutil:get-versions)
`(#(calrissian ,(get-version)))))
(defun module-info (defun module-info
(((tuple module _args)) (((tuple module _args))
;; Report exported function arities as (arity - 1) to account for ;; Report exported function arities as (arity - 1) to account for