From 12799b9ddd0ab1bb34cb1aa433d5d24ad8dec1ba Mon Sep 17 00:00:00 2001
From: Tom Willemse
Date: Sat, 17 Aug 2013 21:18:07 +0200
Subject: Add hypoctl script

Will be used to control certain server-side aspects of hypo.
---
 hypo.hy | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'hypo.hy')

diff --git a/hypo.hy b/hypo.hy
index 05fa858..8053488 100755
--- a/hypo.hy
+++ b/hypo.hy
@@ -137,7 +137,7 @@ If no lexer is found fallback onto the text lexer."
             (setv web.ctx.status (str "201 Created"))
             (+ web.ctx.home "/" *prefix* (get h 0) "\n")))]])
 
-(when (= __name__ "__main__")
-  (let ((sys.argv (slice sys.argv 1))
+(defun hypo-start [argv]
+  (let ((sys.argv (cdr (cdr sys.argv)))
         (app (web.application urls (globals))))
     (.run app)))
-- 
cgit v1.2.3-54-g00ecf