chore(tests): fix tests

src/Foundation.hs

@@ -152,6 +152,7 @@ deriving instance Generic MaterialR
 deriving instance Generic TutorialR
 deriving instance Generic ExamR
 deriving instance Generic CourseApplicationR
+deriving instance Generic AllocationR
 deriving instance Generic (Route UniWorX)
 
 -- | Convenient Type Synonyms:

src/Handler/Allocation/Register.hs

@@ -12,6 +12,8 @@ import Utils.Lens
 
 import Handler.Utils.Form
 
+{-# ANN module ("HLint: ignore Use newtype instead of data"::String) #-}
+
 
 data AllocationRegisterForm = AllocationRegisterForm
   { arfTotalCourses :: Natural

test/FoundationSpec.hs

@@ -52,6 +52,10 @@ instance Arbitrary CourseApplicationR where
   arbitrary = genericArbitrary
   shrink = genericShrink
 
+instance Arbitrary AllocationR where
+  arbitrary = genericArbitrary
+  shrink = genericShrink
+
 instance Arbitrary (Route UniWorX) where
   arbitrary = genericArbitrary
   shrink = genericShrink