{-# OPTIONS_GHC -F -pgmFtrhsx #-} module Clckwrks.Page.Admin.Pages where import Clckwrks (UserId) import Clckwrks.Monad (query) import Clckwrks.Admin.Template (template) import Clckwrks.Page.Acid (PagesSummary(..)) import Clckwrks.Page.Monad (PageM) import Clckwrks.Page.URL (PageAdminURL(..), PageURL(..)) import Clckwrks.Page.Types (PageId(..), PublishStatus(..), Slug(..), publishStatusString) import Data.Text (Text) import Data.Time (UTCTime) import Happstack.Server (Response) import HSP pages :: PageM Response pages = do pages <- query PagesSummary template "Page List" () $ editList pages editList :: [(PageId, Text, Maybe Slug, UTCTime, UserId, PublishStatus)] -> GenChildList PageM editList [] = <%>
There are currently no pages.
%> editList pgs = <%>Page Id | Title | Last Updated | Status |
---|