{-# LANGUAGE RecordWildCards #-} {-# OPTIONS_GHC -F -pgmFtrhsx #-} 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 Data.String (fromString) import Data.Monoid (mempty) import Data.Maybe (fromJust) import Data.Time (UTCTime, getCurrentTime) import Data.Text (Text, pack) import qualified Data.Set as Set import HSP 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") () <%>