{-# LANGUAGE RecordWildCards #-} {-# OPTIONS_GHC -F -pgmFtrhsx #-} module Clckwrks.Bugs.Page.EditBug 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.Monoid (mempty) import Data.Maybe (fromJust) import Data.String (fromString) 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 editBug :: BugsURL -> BugId -> BugsM Response editBug here bid = do mBug <- query (GetBugById bid) case mBug of Nothing -> do notFound () template (fromString "Bug not found.") ()