clckwrks-plugin-page 0.4.3.16 → 0.4.3.18
raw patch · 2 files changed
+6/−5 lines, 2 filesdep ~clckwrks
Dependency ranges changed: clckwrks
Files
- Clckwrks/Page/Atom.hs +4/−3
- clckwrks-plugin-page.cabal +2/−2
Clckwrks/Page/Atom.hs view
@@ -2,9 +2,10 @@ module Clckwrks.Page.Atom where import Control.Monad.Trans (lift, liftIO)+import Clckwrks.Authenticate.API (Username(..), getUsername) import Clckwrks.Monad (Clck, Content(..), query, withAbs) import Clckwrks.Page.Acid-import Clckwrks.Page.Monad (PageM, markupToContent)+import Clckwrks.Page.Monad (PageM, markupToContent, clckT2PageT) import Clckwrks.Page.Types import Clckwrks.ProfileData.Acid import Clckwrks.Page.URL@@ -67,10 +68,10 @@ where author :: XMLGenT PageM XML author =- do mu <- query $ UsernameForId pageAuthor+ do mu <- lift $ clckT2PageT ((getUsername pageAuthor) :: Clck () (Maybe Username)) case mu of Nothing -> return $ cdata ""- (Just n)+ (Just (Username n)) | Text.null n -> return $ cdata "" | otherwise -> [hsx|
clckwrks-plugin-page.cabal view
@@ -1,5 +1,5 @@ name: clckwrks-plugin-page-version: 0.4.3.16+version: 0.4.3.18 synopsis: support for CMS/Blogging in clckwrks description: This provides two similar concepts Pages and Posts. Both allow you to create page content by editting pages in the browser. A Post@@ -49,7 +49,7 @@ acid-state >= 0.12 && < 0.16, aeson (>= 0.4 && < 0.10) || (>= 0.11 && < 1.5), attoparsec >= 0.10 && < 0.14,- clckwrks >= 0.24 && < 0.25,+ clckwrks >= 0.25 && < 0.26, containers >= 0.4 && < 0.7, directory >= 1.1 && < 1.4, filepath >= 1.2 && < 1.5,