Change the column type of created_at/updated_at to DATETIME(MySQL,SQL…

…ite3)/TIME(PostgreSQL).

src/core/class/column.lisp

@@ -142,4 +142,6 @@
   (:method (column (driver-type (eql :postgres)))
     (let ((column-info (table-column-info column driver-type)))
       (setf (getf (cdr column-info) :auto-increment) nil)
+      (when (eq (getf (cdr column-info) :type) :datetime)
+        (setf (getf (cdr column-info) :type) :time))
       column-info)))

src/core/dao/mixin.lisp

@@ -34,7 +34,7 @@
          (eql (object-id object1) (object-id object2)))))
 
 (defclass record-timestamps-mixin ()
-  ((created-at :col-type (or :timestamp :null)
+  ((created-at :col-type (or :datetime :null)
                :initarg :created-at
                :inflate (lambda (value)
                           (etypecase value
@@ -44,7 +44,7 @@
                              (local-time:parse-timestring value :date-time-separator #\Space))
                             (null nil)))
                :accessor object-created-at)
-   (updated-at :col-type (or :timestamp :null)
+   (updated-at :col-type (or :datetime :null)
                :initarg :updated-at
                :inflate (lambda (value)
                           (etypecase value

t/class.lisp

@@ -124,7 +124,7 @@
                   "CREATE TABLE tweet (
     status TEXT NOT NULL,
     user INTEGER NOT NULL,
-    created_at DATETIME NOT NULL,
+    created_at TIME NOT NULL,
     PRIMARY KEY (user, created_at)
 )"
                   "PRIMARY KEY")
@@ -138,7 +138,7 @@
                   "CREATE TABLE tweet (
     status TEXT NOT NULL,
     user INTEGER NOT NULL,
-    created_at DATETIME NOT NULL,
+    created_at TIME NOT NULL,
     UNIQUE (user, created_at)
 )"
                   "UNIQUE KEY")
@@ -152,7 +152,7 @@
                   '("CREATE TABLE tweet (
     status TEXT NOT NULL,
     user INTEGER NOT NULL,
-    created_at DATETIME NOT NULL
+    created_at TIME NOT NULL
 )" "CREATE INDEX key_tweet_user_created_at ON tweet (user, created_at)")
                   "KEY")
   (is-table-class :postgres
@@ -164,7 +164,7 @@
                   "CREATE TABLE tweet (
     status TEXT NOT NULL,
     user INTEGER NOT NULL,
-    created_at DATETIME
+    created_at TIME
 )"
                   "NULL"))