Minor: DSGV disclaimer sort-of-removed

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 --
 ---------------------

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.