-- in geschweiften Klammern stehen Quasi Quotes
 {-# LANGUAGE ViewPatterns #-}
 {-# LANGUAGE MultiParamTypeClasses #-}
 {-# LANGUAGE OverloadedStrings     #-}
 {-# LANGUAGE TypeFamilies          #-}
 {-# LANGUAGE TemplateHaskell, QuasiQuotes #-}
 -- Bibliotheken importieren
 import Yesod
 import Data.Text
 import Control.Applicative
 import Yesod.Form
 -- setzt den Port des Webservers Warp auf 3000
 main :: IO ()
 main = warp 3000 FormApp
 data FormApp = FormApp
 instance Yesod FormApp
 instance RenderMessage FormApp FormMessage where
     renderMessage _ _ = defaultFormMessage
 -- die Webanwendung "FormApp" bringt nur eine Route mit
 mkYesod "FormApp" [parseRoutes|
 /contact  ContactR GET |]
 -- eine Hilfsfunktion bindet das Formular widget in eine Webseite ein
 page enctype widget res = defaultLayout $ do
 -- Titel der Webseite setzen
         setTitle "Contact"
         [whamlet|
                 <p>Ergebnis: #{show res}
                 <form enctype=#{enctype}>
                         ^{widget}
                         <button>Senden
     |]
 -- Datentypen der HTML-Eingabefelder
 data ContactForm = ContactForm {
      contactName ::  Text
     ,contactEmail :: Text
     ,contactText :: Textarea
 } deriving Show
 -- Funktion erzeugt ein Formular vom Typ MForm
 createForm ::  Html -> MForm Handler (FormResult ContactForm, Widget)
 createForm extra = do
 -- mreq = required -> Pflichtfeld
         (nameRes,nameView) <- mreq textField "Name" Nothing
         (emailRes,mailView) <- mreq emailField  "Email" Nothing
         (textRes,textView) <- mreq textareaField "Text" Nothing
         let contactRes = ContactForm <$> nameRes <*> emailRes <*> textRes
             widget = do
             toWidget
 -- Lucius-Stylesheet einbinden
                 [lucius|
                     @bColor: mediumseagreen;
                     ##{fvId nameView}, ##{fvId mailView}, ##{fvId textView}{
                         border: 3px solid #{bColor};
                     }
                 |]
             [whamlet|
                 #{extra}
                 <h1>Kontaktformular!
                 <p>Name: ^{fvInput nameView}
                 <p>Email: ^{fvInput mailView}
                 <p>Text: ^{fvInput textView}
             |]
         return (contactRes,widget)
 getContactR :: Handler Html
 getContactR = do
    ((res,widget), enctype) <- runFormGet $ createForm
    page enctype widget res