git.fiddlerwoaroof.com
Browse code

Set Debug toggle via ubiquitous and fix table creation

E L authored on 25/01/2016 00:13:47
Showing 2 changed files
... ...
@@ -220,7 +220,8 @@
220 220
                          (:static :path "/static/" :root #p"./static/")
221 221
                          :backtrace
222 222
                          *app*
223
-                         ))
223
+                         )
224
+                       :debug (ubiquitous:defaulted-value t 'debug))
224 225
               :port 9090
225 226
               :server server)
226 227
             handler)))
... ...
@@ -6,7 +6,7 @@
6 6
 (defclass submission ()
7 7
   ((headline :initarg :headline :col-type text :initform ""  :accessor inangulis::s-headline)
8 8
    (url      :initarg :url      :col-type text :initform ""  :accessor inangulis::s-url)
9
-   (date     :initarg :date     :col-type timestamp-with-timezone :initform "")
9
+   (date     :initarg :date     :col-type timestamptz :initform "")
10 10
    (approved :initarg :approved :col-type text :initform "" :accessor inangulis::s-approved))
11 11
   (:metaclass dao-class)
12 12
   (:keys headline url))
... ...
@@ -14,8 +14,9 @@
14 14
 (deftable submission
15 15
   (!dao-def))
16 16
 
17
-;(with-connection (ubiquitous:value 'db)
18
-;  (create-table 'submission))
17
+;; (ubiquitous:restore :inangulis)
18
+;; (with-connection (ubiquitous:value 'db)
19
+;;   (create-table 'submission))
19 20
 
20 21
 (defmethod inangulis::s-date ((object submission))
21 22
   (with-slots (date) object