Make column specs nilable

r0man · Dec 5, 2017 · 983dc1c · 983dc1c
1 parent ad5216f
commit 983dc1c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/datumbazo/table.clj b/src/datumbazo/table.clj
@@ -80,7 +80,9 @@
   "Define a function that truncates `table`."
   [table column]
   `(s/def ~(column-spec-name table column)
-     ~(column-spec-gen table column)))
+     ~(if (or (:not-null? column) (:primary-key? column))
+        (column-spec-gen table column)
+        (s/nilable (column-spec-gen table column)))))
 
 (defn- define-column-specs
   "Define a function that truncates `table`."