From f92e555de2555a030f1b52859f56181ac54ba78d Mon Sep 17 00:00:00 2001
From: Gregor Kleen <kleen@cip.ifi.lmu.de>
Date: Mon, 14 Oct 2019 16:55:01 +0200
Subject: [PATCH] fix: build

---
 src/Handler/Profile.hs | 2 +-
 test/ModelSpec.hs      | 1 +
 test/TestImport.hs     | 1 +
 3 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/Handler/Profile.hs b/src/Handler/Profile.hs
index bc38e21d7..839f4ee1e 100644
--- a/src/Handler/Profile.hs
+++ b/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
diff --git a/test/ModelSpec.hs b/test/ModelSpec.hs
index b6c48bd3d..f52c8b13c 100644
--- a/test/ModelSpec.hs
+++ b/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
diff --git a/test/TestImport.hs b/test/TestImport.hs
index b4211b093..1b2704d88 100644
--- a/test/TestImport.hs
+++ b/test/TestImport.hs
@@ -137,6 +137,7 @@ createUser adjUser = do
     userTimeFormat = userDefaultTimeFormat
     userDownloadFiles = userDefaultDownloadFiles
     userWarningDays = userDefaultWarningDays
+    userShowSex = userDefaultShowSex
     userMailLanguages = def
     userNotificationSettings = def
     userCreated = now