Term json
    name          TermIdentifier -- unTermKey :: TermId -> TermIdentifier
    start         Day            -- TermKey   :: TermIdentifier -> TermId
    end           Day
    holidays      [Day]
    lectureStart  Day
    lectureEnd    Day
    active        Bool
    Primary name       -- newtype Key Term = TermKey { unTermKey :: TermIdentifier }
    deriving Show Eq Generic -- type TermId = Key Term