geek 1.0.0.7 → 1.0.0.8

raw patch · 4 files changed

+8/−3 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

geek.cabal +1/−1
src/Web/Geek/Application.hs +4/−0
src/Web/Geek/DefaultConfig.hs +1/−1
src/Web/Geek/RSS.hs +2/−1

geek.cabal view

@@ -1,5 +1,5 @@ Name:                 geek-Version:              1.0.0.7+Version:              1.0.0.8 Build-type:           Simple Synopsis:             Geek blog engine Description:          A dynamic blog engine, customizable with standard web technology, i.e. HTML, CSS and Javascript (JSON)

src/Web/Geek/Application.hs view

@@ -251,6 +251,10 @@          -- for angular html5 mode     get "*" - do+      io - puts - "serving :" + _config.index_file_path.T.unpack+             _response <- io - serve Nothing (_config.index_file_path.encodeUtf8)       State.put _response+      +      modify - set_content_type "text/html"

src/Web/Geek/DefaultConfig.hs view

@@ -27,7 +27,7 @@   , rss_site_title = "Shinny blog"   , rss_site_description = ""   , rss_site_link = "http://localhost:3000"-  , rss_site_root_prefix = "/#"+  , rss_site_root_prefix = ""   }   where     _static_serve =

src/Web/Geek/RSS.hs view

@@ -21,6 +21,7 @@ import Control.Monad (forM_) import System.Locale (defaultTimeLocale) import Data.Time (formatTime)+import Data.Char (isSpace)    {-   @@ -65,7 +66,7 @@           site_link         , _config.Geek.rss_site_root_prefix.T.unpack.drop_tail_slash.reverse.drop_tail_slash         ]-        ).join "/"+        ).reject (all isSpace).join "/"            xml_header