devforms-0.2.0.1: examples/Example.hs

{-# LANGUAGE OverloadedStrings #-}

import DevForms

main :: IO ()
main = devFormServer 9000 $ do
    form "An example form" "animalform" $ do
        questionLikert "This is an easy question to answer"
        questionChoice
            "Select the animal you like the most"
            [ "Alpaca"
            , "Bumblebee"
            , "Camel"
            , "Duck"
            ]
        questionDateWith "On which day would you like to meet your favourite animal?" $ setOptional
        questionTime "On which time would you like to have the meeting?"
        questionIntegerWith "How many siblings do you have?" $ do
            setLowerBoundInclusive 0

    form "Another simple form" "otherform" $ do
        questionCheckbox "Do you want to check this box?"
        questionChoice "Select one of the following:" ["A", "B", "C"]
        questionDate "Select a date"
        questionIntegerWith "Enter a natural number" $ do
            setUpperBoundInclusive 15
        questionLikert "This form works well"
        questionTime "Select a time"
        questionFreeTextWith "Any special requests?" $ setOptional
        questionRegexText "Enter five uppercase letters" "[A-Z]{5}"