From 7c8629300529d18554aac0cd66cf6bb13814337e Mon Sep 17 00:00:00 2001
From: Steffen Jost <jost@tcs.ifi.lmu.de>
Date: Fri, 2 Sep 2022 11:00:52 +0200
Subject: [PATCH] fix: build

---
 test/ModelSpec.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/test/ModelSpec.hs b/test/ModelSpec.hs
index 2df4b3958..b4ad479c1 100644
--- a/test/ModelSpec.hs
+++ b/test/ModelSpec.hs
@@ -132,6 +132,7 @@ instance Arbitrary User where
     userTelephone             <- fmap pack . assertM' (not . null) <$> listOf (elements $ [' ', '+', '-', '/', '_'] ++ ['0'..'9'])
     userCompanyPersonalNumber <- fmap pack . assertM' (not . null) <$> listOf (elements ['0'..'9'])
     userCompanyDepartment <- arbitrary
+    userPinPassword <- arbitrary
     userPostAddress <- arbitrary -- TODO: not a good address
     userPrefersPostal <- arbitrary
     userExamOfficeGetSynced <- arbitrary