{-# LANGUAGE RecordWildCards #-} {-# OPTIONS_GHC -F -pgmFtrhsx #-} module Clckwrks.Bugs.Page.EditMilestones where import Control.Arrow (first) 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.ProfileData.Acid (GetUserIdUsernames(..)) import Data.String (fromString) import Data.Traversable (sequenceA) import Data.Monoid (mempty) import Data.Maybe (fromJust, isJust) 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 editMilestones :: BugsURL -> BugsM Response editMilestones here = do milestones <- query GetMilestones template (fromString "Edit Milestones") () <%>