Documentation

create a function which returns at runtime the assessment metadata passed in at compile-time.

i.e., if mkSaveAssessmentMetadata myFunc mData is called, it creates a function like

myFunc :: AssessmentMetadata
myFunc = mData

create a function which returns all the question-type field accessors for Marks.

i.e., mkQuestionFieldsAccessor sqlSettings myName in a call to share should produce a result something like

myNHame :: [Marks -> Double]
myName = [ marksQ1a, marksQ1b, marksQ1c .. ]

where the accessors are in the order they appear in the EntityDef.

create a function which returns all the comment-type field accessors for Marks.

i.e., mkCommentFieldsAccessor myName

should produce a result something like

myNHame :: [Marks -> Maybe Text]
myName = [ marksQ1aComments, marksQ1bComments, marksQ1cComments .. ]

where the accessors are in the order they appear in the EntityDef.

given some field from an entty def -- e.g. "q1a" -- get the actual accessor name (i.e. "marksQ1a")

is this the Marks entity?

name for a record field

If we call recName datatypeName fieldName this returns a 'qualified field name' (i.e. data type name is prepended, and the whole thing is camelCased.

i.e. recName MyType "myfield" == "myTypeMyField" (modulo name constructors).