module Config.TopPage (
    TopPageConfig (..)
  , topPageConfig
) where

data TopPageConfig = TopPageConfig {
    TopPageConfig -> Int
maxTitleNum    :: Int
  , TopPageConfig -> String
postDateFormat :: String
  , TopPageConfig -> String
noPostsAlt     :: String
  }

topPageConfig :: TopPageConfig
topPageConfig :: TopPageConfig
topPageConfig = TopPageConfig {
    maxTitleNum :: Int
maxTitleNum = Int
4
  , postDateFormat :: String
postDateFormat = String
"%Y%%2F%m%%2F%d" -- "%%2F" is URL encoded slash
  , noPostsAlt :: String
noPostsAlt = String
"not yet"
  }