From 575eff90f0ef161e37a620971db6bf00a10ab18b Mon Sep 17 00:00:00 2001
From: SJost <jost@tcs.ifi.lmu.de>
Date: Mon, 2 Jul 2018 17:59:48 +0200
Subject: [PATCH] Minor: DSGV disclaimer sort-of-removed

---
 src/Utils.hs                    |  4 ++++
 templates/dsgvDisclaimer.hamlet | 20 +++++++++++---------
 2 files changed, 15 insertions(+), 9 deletions(-)

diff --git a/src/Utils.hs b/src/Utils.hs
index a6b5d02ab..0234675ee 100644
--- a/src/Utils.hs
+++ b/src/Utils.hs
@@ -5,6 +5,7 @@
 {-# LANGUAGE TypeSynonymInstances, FlexibleInstances, UndecidableInstances #-}
 {-# LANGUAGE TypeFamilies, FlexibleContexts, ConstraintKinds #-}
 {-# LANGUAGE QuasiQuotes #-}
+{-# OPTIONS_GHC -fno-warn-orphans #-} -- Monad FormResult
 
 module Utils
   ( module Utils
@@ -43,11 +44,14 @@ getMsgRenderer = do
   mr <- getMessageRender
   return $ MsgRenderer (mr . SomeMessage :: forall msg. RenderMessage site msg => msg -> Text)
 
+
 instance Monad FormResult where
   FormMissing        >>= _ = FormMissing
   (FormFailure errs) >>= _ = FormFailure errs
   (FormSuccess a)    >>= f = f a
 
+
+
 ---------------------
 -- Text and String --
 ---------------------
diff --git a/templates/dsgvDisclaimer.hamlet b/templates/dsgvDisclaimer.hamlet
index 798221e4d..ca8ab35fe 100644
--- a/templates/dsgvDisclaimer.hamlet
+++ b/templates/dsgvDisclaimer.hamlet
@@ -1,15 +1,17 @@
 <div .notification .notification-danger>
   <div .notification__content>
     <h1>
-      Hinweis zum Datenschutz
+      Hinweis
     <p>
-      Dieses experimentelle Programm wurde noch nicht
-      hinsichtlich des Datenschutzes überprüft.
+      Dieses Webapplikation befindet sich noch in der Entwicklung.
       <em>
-        Die Benutzung erfolgt derzeit freiwillig und auf eigene Gefahr!
+        Jegliche Benutzung erfolgt derzeit freiwillig und auf eigene Gefahr! #
+    <p>
+      Wir sind auf Tests unter realen Bedingungen
+      angewiesen und
+      bitten um Ihr Verständnis.
+    <p>
+      Bitte melden Sie etwaige Probleme an #
+        <a href="mailto:jost@tcs.ifi.lmu.de">
+          jost@tcs.ifi.lmu.de
 
-      Wir sind natürlich bemüht, alle Datenschutzrechtlichen Vorgaben
-      zu erfüllen, doch eine Überprüfung kann erst stattfinden,
-      sobald die Software weitestgehend fertiggestellt wurde und
-      sich nicht mehr verändert. Um dies zu Erreichen sind jedoch Test
-      unter realen Bedingungen erforderlich. Wir bitten um Ihr Verständnis.