11 lines
411 B
Plaintext
11 lines
411 B
Plaintext
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
|