{-# LANGUAGE RecordWildCards #-} {-# OPTIONS_GHC -F -pgmFhsx2hs #-} module Clckwrks.Bugs.Page.BugList where 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 (GetProfileData(..)) import qualified Data.IxSet as IxSet import Data.List (find) import Data.String (fromString) import qualified Data.Text.Lazy as Text import Numeric (showFFloat) import HSP.XML import HSP.XMLGenerator bugList :: BugsM Response bugList = template (fromString "Bug List") () <%>
# | Title | Status | Assigned |
---|