{-# LANGUAGE OverloadedStrings, RecordWildCards #-} {-# OPTIONS_GHC -F -pgmFhsx2hs #-} module Clckwrks.Bugs.Page.SubmitBug where import Control.Monad.Reader (ask) import Clckwrks import Clckwrks.Bugs.Acid import Clckwrks.Bugs.Monad import Clckwrks.Bugs.Types import Clckwrks.Bugs.URL import Clckwrks.Bugs.Page.Template (template) import Clckwrks.Page.Types (Markup(..), PreProcessor(..)) import Data.String (fromString) import Data.Monoid (mempty) import Data.Maybe (fromJust) import Data.Time (UTCTime, getCurrentTime) import Data.Text (Text, pack) import qualified Data.Text.Lazy as TL import qualified Data.Set as Set import HSP.XML import HSP.XMLGenerator import Text.Reform ( CommonFormError(..), Form, FormError(..), Proof(..), (++>) , (<++), prove, transformEither, transform, view) import Text.Reform.Happstack import Text.Reform.HSP.Text import Text.Reform submitBug :: BugsURL -> BugsM Response submitBug here = do template (fromString "Submit a Report") () <%>