clckwrks-plugin-page 0.3.3 → 0.3.4
raw patch · 2 files changed
+8/−8 lines, 2 filesdep ~attoparsecdep ~basedep ~template-haskell
Dependency ranges changed: attoparsec, base, template-haskell
Files
Clckwrks/Page/PreProcess.hs view
@@ -10,7 +10,7 @@ import Clckwrks.Page.Types (PageId(..), slugify, toSlug) import Data.Acid (AcidState(..)) import Data.Acid.Advanced (query')-import Data.Attoparsec.Text.Lazy (Parser, Result(..), anyChar, char, choice, decimal, parse, skipMany, space, stringCI, skipMany, try)+import Data.Attoparsec.Text.Lazy (Parser, Result(..), anyChar, char, choice, decimal, parse, skipMany, space, asciiCI, skipMany, try) import Data.Attoparsec.Combinator (many1, manyTill, skipMany) import Data.String (fromString) import Data.Text (Text, pack)@@ -25,7 +25,7 @@ parseAttr :: Text -> Parser () parseAttr name = do skipMany space- stringCI name+ asciiCI name skipMany space char '=' skipMany space@@ -47,12 +47,12 @@ parseCmd :: Parser PageCmd parseCmd = do pid <- parseAttr (fromString "id") *> (PageId <$> decimal)- linkOnly <- skipMany space >> stringCI "title-only"+ linkOnly <- skipMany space >> asciiCI "title-only" return $ PageTitle pid <|> do pid <- parseAttr (fromString "id") *> (PageId <$> decimal) mTitle <- optional $ parseAttr (fromString "title") *> qtext- linkOnly <- (skipMany space >> (stringCI "link-only")) *> pure True <|> pure False+ linkOnly <- (skipMany space >> (asciiCI "link-only")) *> pure True <|> pure False return $ PageLink pid mTitle linkOnly pageCmd :: (Functor m, MonadIO m) =>
clckwrks-plugin-page.cabal view
@@ -1,5 +1,5 @@ name: clckwrks-plugin-page-version: 0.3.3+version: 0.3.4 synopsis: support for CMS/Blogging in clckwrks homepage: http://www.clckwrks.com/ license: BSD3@@ -38,10 +38,10 @@ Clckwrks.Page.Atom other-modules: Clckwrks.Page.Verbatim- build-depends: base >= 4.3 && < 4.7,+ build-depends: base >= 4.3 && < 4.8, aeson >= 0.6 && < 0.8, acid-state == 0.12.*,- attoparsec >= 0.10 && < 0.12,+ attoparsec >= 0.10 && < 0.13, clckwrks >= 0.21 && < 0.23, containers >= 0.4 && < 0.6, directory >= 1.1 && < 1.3,@@ -61,7 +61,7 @@ tagsoup == 0.13.*, text >= 0.11 && < 1.2, time == 1.4.*,- template-haskell >= 2.7 && <= 2.9,+ template-haskell >= 2.7 && <= 2.10, uuid >= 1.2 && <= 1.4, utf8-string == 0.3.*, web-plugins == 0.2.*,