diff --git a/src/Foundation.hs b/src/Foundation.hs
index 68a223a94..a80f277d6 100644
--- a/src/Foundation.hs
+++ b/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:
diff --git a/src/Handler/Allocation/Register.hs b/src/Handler/Allocation/Register.hs
index 0c19a866d..9c2256695 100644
--- a/src/Handler/Allocation/Register.hs
+++ b/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
diff --git a/test/FoundationSpec.hs b/test/FoundationSpec.hs
index cc562d816..d84e2ee7d 100644
--- a/test/FoundationSpec.hs
+++ b/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