on dev help sign in
constraints ~> def
commit6aa5168e0a5c528104eb65977ad03fdd12468ed2 authorEitan Chatav <eitan.chatav@gmail.com> dateTue 20 Mar 2018, 12:58 (9 years ago) parent4a9ac28
1 file changed+2−2
squeal-postgresql/src/Squeal/PostgreSQL/Expression.hs+2−2
squeal-postgresql/src/Squeal/PostgreSQL/Expression.hs+2−2
@@ -1183,8 +1183,8 @@ fixarray p ty = UnsafeTypeExpression $
11831183-- | used in `createTable` commands as a column constraint to ensure
11841184-- @NULL@ is not present
11851185notNull
1186− :: TypeExpression (constraints :=> 'Null ty)
1187− -> TypeExpression (constraints :=> 'NotNull ty)
1186+ :: TypeExpression (def :=> 'Null ty)
1187+ -> TypeExpression (def :=> 'NotNull ty)
11881188notNull ty = UnsafeTypeExpression $ renderTypeExpression ty <+> "NOT NULL"
11891189
11901190-- | used in `createTable` commands as a column constraint to give a default