From f5403b6cc29707189e7380a9efdd5139f7ce9e6f Mon Sep 17 00:00:00 2001
From: Craig Oates <craig@craigoates.net>
Date: Sat, 10 Sep 2022 22:17:43 +0100
Subject: [PATCH] populate user class.

This should have been in the previous commit. I forgot to add it.
---
 src/models/user.lisp | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 src/models/user.lisp

diff --git a/src/models/user.lisp b/src/models/user.lisp
new file mode 100644
index 0000000..d531693
--- /dev/null
+++ b/src/models/user.lisp
@@ -0,0 +1,26 @@
+(in-package :ritherdon-archive/models)
+
+(defclass user ()
+  ((username
+    :accessor username
+    :initarg :username
+    :initform nil
+    :type (or string null)
+    :col-type :text)
+  
+  (display-name
+    :accessor display-name
+    :initarg :display-name
+    :initform nil
+    :type (or string null)
+    :col-type :text)
+
+  (password
+    :accessor password
+    :initarg :password
+    :initform nil
+    :type (or string null)
+    :col-type :text))
+
+  (:metaclass mito:dao-table-class)  
+  (:documentation "Account information for users to log-in to the website.."))