fix: build

src/Handler/Profile.hs

@@ -342,7 +342,7 @@ getProfileDataR :: Handler Html
 getProfileDataR = do
   userEnt <- requireAuth
   dataWidget <- runDB $ makeProfileData userEnt
-  defaultLayout $ do
+  defaultLayout
     dataWidget
 
 makeProfileData :: Entity User -> DB Widget

test/ModelSpec.hs

@@ -109,6 +109,7 @@ instance Arbitrary User where
     userMailLanguages <- fmap MailLanguages $ sublistOf =<< shuffle (toList appLanguages)
     userNotificationSettings <- arbitrary
     userCsvOptions <- arbitrary
+    userShowSex <- arbitrary
 
     userCreated <- arbitrary
     userLastLdapSynchronisation <- arbitrary

test/TestImport.hs

@@ -137,6 +137,7 @@ createUser adjUser = do
     userTimeFormat = userDefaultTimeFormat
     userDownloadFiles = userDefaultDownloadFiles
     userWarningDays = userDefaultWarningDays
+    userShowSex = userDefaultShowSex
     userMailLanguages = def
     userNotificationSettings = def
     userCreated = now