-- | Enables SQL-equivalent features such as NULL types in the database in addition to Project:M36 basic functions.
module ProjectM36.SQLDatabaseContext where
import ProjectM36.Base
import ProjectM36.DatabaseContext
import ProjectM36.DataTypes.SQL.Null

sqlDatabaseContext :: DatabaseContext
sqlDatabaseContext :: DatabaseContext
sqlDatabaseContext = DatabaseContext
basicDatabaseContext { atomFunctions :: AtomFunctions
atomFunctions =
                                            DatabaseContext -> AtomFunctions
atomFunctions DatabaseContext
basicDatabaseContext forall a. Semigroup a => a -> a -> a
<> AtomFunctions
nullAtomFunctions,
                                            typeConstructorMapping :: TypeConstructorMapping
typeConstructorMapping =
                                            DatabaseContext -> TypeConstructorMapping
typeConstructorMapping DatabaseContext
basicDatabaseContext forall a. Semigroup a => a -> a -> a
<> TypeConstructorMapping
nullTypeConstructorMapping
                                            }