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
