diff --git a/src/Handler/Home.hs b/src/Handler/Home.hs index 2b3fce6d3..3ba5bab0a 100644 --- a/src/Handler/Home.hs +++ b/src/Handler/Home.hs @@ -117,10 +117,10 @@ homeAnonymous = do , dbtStyle = def , dbtIdent = "upcomingdeadlines" :: Text } - let features = $(widgetFile "featureList") - addMessage Warning "Vorabversion! Die Implementierung von Uni2work ist noch nicht abgeschlossen!" + -- let features = $(widgetFile "featureList") + -- addMessage Warning "Vorabversion! Die Implementierung von Uni2work ist noch nicht abgeschlossen!" defaultLayout $ do - $(widgetFile "dsgvDisclaimer") + -- $(widgetFile "dsgvDisclaimer") $(widgetFile "home") homeUser :: Key User -> Handler Html @@ -218,11 +218,11 @@ homeUser uid = do , dbtStyle = def { dbsEmptyStyle = DBESNoHeading, dbsEmptyMessage = MsgNoUpcomingSheetDeadlines } , dbtIdent = "upcomingdeadlines" :: Text } - addMessage Warning "Vorabversion! Die Implementierung von Uni2work ist noch nicht abgeschlossen." + -- addMessage Warning "Vorabversion! Die Implementierung von Uni2work ist noch nicht abgeschlossen." defaultLayout $ do -- setTitle "Willkommen zum Uni2work Test!" $(widgetFile "homeUser") - $(widgetFile "dsgvDisclaimer") + -- $(widgetFile "dsgvDisclaimer") getVersionR :: Handler TypedContent diff --git a/templates/home.hamlet b/templates/home.hamlet index 8f5c3bafb..3995b864f 100644 --- a/templates/home.hamlet +++ b/templates/home.hamlet @@ -1,11 +1,5 @@