8 lines
339 B
Plaintext
8 lines
339 B
Plaintext
School json
|
|
name (CI Text)
|
|
shorthand (CI Text) -- SchoolKey :: SchoolShorthand -> SchoolId
|
|
UniqueSchool name
|
|
UniqueSchoolShorthand shorthand -- required for Normalisation of CI Text
|
|
Primary shorthand -- newtype Key School = SchoolKey { unSchoolKey :: SchoolShorthand }
|
|
deriving Eq Show Generic
|