[Haskelldb-users] dbSpecToDatabase, CalendarTimeT and nullable?

[Marc W. <mar...@gm...>]

Hi.

I've noticed that this piece of code doesn't create a nullable field finished_date. Why?


[...]
--con :: (D.Database -> IO a) -> IO a
con = mysqlConnect ( MySQLOptions {server="localhost", db=dbName, uid="sadmin", pwd=""})

createDatabase :: IO ()
createDatabase= do
  con $ \a -> dbSpecToDatabase a dbinfo
  where tblTodoItems=
	     [ CInfo {cname="ID", descr = (IntT, True)}
	     , CInfo {cname="ID2", descr = (IntT, True)}
	     , CInfo {cname="finished_date", descr = (CalendarTimeT, True)} -- !!!! <<<<<<<<<<<<<<<<<<<<<< here
	      ]
	tblTodoAssoc = TInfo { tname="todos", cols=tblTodoItems }
	testopts = DBOptions {useBString = False}
	dbinfo::DBInfo
	dbinfo = DBInfo {dbname = "todos"  , opts = testopts, tbls = [tblTodoAssoc] }

------------------

Another question.
Is 
  con $ \db -> insert db todos ( (iD << (constant id))
                               # (iD2 << (constant Nothing))
                               # (finished_date << (constant Nothing))
                               )
the way to insert a new record? ( In hope it's used this way so I think yes.. )
Then let me ask the question wether it would be possible to create a function like

insertValues3 a b c = ( iD << a # iD2 << b # finished_date << c)
to use the insert query like this:
con $ \db -> insert db todosu( insertValues3 (constant id) (constant Nothing) (constant Nothing) )

because order and types are defined by the table description so there is no
need to repeat "iD <<", "iD2 <<" and "finished_date <<" again, right ?

Sincerely
	Marc Weber