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 @@
- Dieses experimentelle Programm wurde noch nicht
- hinsichtlich des Datenschutzes überprüft.
+ Dieses Webapplikation befindet sich noch in der Entwicklung.
- Die Benutzung erfolgt derzeit freiwillig und auf eigene Gefahr!
+ Jegliche Benutzung erfolgt derzeit freiwillig und auf eigene Gefahr! #
+
+ Wir sind auf Tests unter realen Bedingungen
+ angewiesen und
+ bitten um Ihr Verständnis.
+
+ Bitte melden Sie etwaige Probleme an #
+
+ 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.