diff --git a/src/Foundation.hs b/src/Foundation.hs index cf8f8d601..3f70dd564 100644 --- a/src/Foundation.hs +++ b/src/Foundation.hs @@ -157,6 +157,7 @@ deriving instance Generic ExamR deriving instance Generic CourseApplicationR deriving instance Generic AllocationR deriving instance Generic SchoolR +deriving instance Generic ExamOfficeR deriving instance Generic (Route UniWorX) -- | Convenient Type Synonyms: diff --git a/test/FoundationSpec.hs b/test/FoundationSpec.hs index b2f2c1fa5..2386c7ba6 100644 --- a/test/FoundationSpec.hs +++ b/test/FoundationSpec.hs @@ -60,6 +60,10 @@ instance Arbitrary AllocationR where arbitrary = genericArbitrary shrink = genericShrink +instance Arbitrary ExamOfficeR where + arbitrary = genericArbitrary + shrink = genericShrink + instance Arbitrary (Route UniWorX) where arbitrary = genericArbitrary shrink = genericShrink