From e5ab919365dc2aa418ca3a2c0d95c26b1808bf55 Mon Sep 17 00:00:00 2001
From: Duncan McGreggor <oubiwann@gmail.com>
Date: Thu, 21 May 2015 17:41:52 -0500
Subject: [PATCH] Added version util funcs.

---
 src/calrissian-util.lfe | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/calrissian-util.lfe b/src/calrissian-util.lfe
index 3055123..24a6a53 100644
--- a/src/calrissian-util.lfe
+++ b/src/calrissian-util.lfe
@@ -1,9 +1,18 @@
 (defmodule calrissian-util
-  (export (module-info 1)
+  (export (get-version 0)
+          (get-versions 0)
+          (module-info 1)
           (module-info 2)
           (implements? 2)
           (exports? 2)))
 
+(defun get-version ()
+  (lutil:get-app-version 'calrissian))
+
+(defun get-versions ()
+  (++ (lutil:get-versions)
+      `(#(calrissian ,(get-version)))))
+
 (defun module-info
   (((tuple module _args))
    ;; Report exported function arities as (arity - 1) to account for