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

- Hinweis zum Datenschutz + Hinweis

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