haggis 0.1.1.2 → 0.1.2.0

raw patch · 3 files changed

+5/−4 lines, 3 filesdep ~haggis

Dependency ranges changed: haggis

Files

• LICENSE +1/−1
• haggis.cabal +2/−2
• src/Text/Haggis/Binders.hs +2/−1

@@ -1,6 +1,6 @@ // MIT -Copyright (c) 2013 Tycho Andersen+Copyright (c) 2013-2014 Tycho Andersen  Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal

@@ -1,5 +1,5 @@ name:                haggis-version:             0.1.1.2+version:             0.1.2.0 synopsis:            A static site generator with blogging/comments support homepage:            http://github.com/tych0/haggis license:             MIT@@ -37,5 +37,5 @@   hs-source-dirs: tools   build-depends: base ==4.*, filemanip >= 0.3, filepath >= 1.3,                  optparse-applicative >= 0.5, directory >= 1.1,-                 haggis >= 0.1.0.0+                 haggis >= 0.1.2.0   ghc-options: -Wall

@@ -50,6 +50,7 @@   where     nameBind (Just url) = hq ".name *" (commenterName c) . hq ".name [href]" url     nameBind Nothing = hq ".name" (commenterName c)+ bindTag :: HaggisConfig -> String -> [Node] -> [Node] bindTag config t = hq "a [href]" (sitePath config </> (mpTypeToPath $ Tag t)) .                    hq "a *" (t)@@ -57,7 +58,7 @@ addCommas :: [[Node] -> [Node]] -> [[Node] -> [Node]] addCommas ns | not (null ns) = let l = last ns                                    is = init ns-                               in map (hq "* +" ", " .) is ++ [l]+                               in map ((.) $ hq "* +" ", ") is ++ [l] addCommas ns = ns  bindSpecial :: HaggisConfig -> [MultiPage] -> [Node] -> [Node]