hakyll-convert-0.2.0.0: Hakyll/Convert/Common.hs

{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE OverloadedStrings  #-}

module Hakyll.Convert.Common where

import           Data.Data
import           Data.Default
import           Data.Maybe
import           Data.Text                    (Text)
import qualified Data.Text                    as T
import           Data.Time.Clock              (UTCTime)
import           Data.Time.Clock.POSIX        (posixSecondsToUTCTime)

data DistilledPost = DistilledPost
    { dpUri   :: String
    , dpBody  :: Text
    , dpTitle :: Maybe Text
    , dpTags  :: [Text]
    -- | Categories are coarser-grained than tags; you might be
    --   interested in ignoring tags and just focusing on categories
    --   in cases where you have lots of little uninteresting tags.
    , dpCategories :: [Text]
    , dpDate  :: UTCTime
    }
  deriving (Data, Typeable)

instance Default DistilledPost where
  def = DistilledPost
    { dpUri        = ""
    , dpBody       = ""
    , dpTitle      = Nothing
    , dpTags       = []
    , dpCategories = []
    , dpDate       = posixSecondsToUTCTime 0
    }