chore(tazblog): Introduce dependency on 'cache'

This commit is contained in:
Vincent Ambo 2019-08-20 07:09:16 +01:00
parent b856648127
commit 13b0204c03
3 changed files with 23 additions and 19 deletions

View file

@ -15,33 +15,36 @@
--
-- This module implements logic for assembling a post out of these
-- fragments and caching it based on the TTL of its `_meta` record.
module BlogStore where
import Data.Text (Text)
import Locales (BlogLang(..))
import Data.Time (UTCTime)
import Control.Monad.IO.Class (MonadIO)
import Data.Text (Text)
import Data.Time (UTCTime)
import Locales (BlogLang (..))
newtype EntryId = EntryId { unEntryId :: Integer }
deriving (Eq, Ord)
newtype EntryId = EntryId {unEntryId :: Integer}
deriving (Eq, Ord)
instance Show EntryId where
show = show . unEntryId
data Entry = Entry {
entryId :: EntryId,
lang :: BlogLang,
author :: Text,
title :: Text,
btext :: Text,
mtext :: Text,
edate :: UTCTime
} deriving (Eq, Ord, Show)
data Entry
= Entry
{ entryId :: EntryId,
lang :: BlogLang,
author :: Text,
title :: Text,
btext :: Text,
mtext :: Text,
edate :: UTCTime
}
deriving (Eq, Ord, Show)
data BlogCache
type Offset = Integer
type Count = Integer
newCache :: String -> IO BlogCache

View file

@ -19,6 +19,7 @@ library
text,
blaze-html,
blaze-markup,
cache,
crypto-api,
cryptohash,
old-locale,

View file

@ -1,7 +1,7 @@
{ mkDerivation, acid-state, base, base64-bytestring, blaze-html
, blaze-markup, bytestring, crypto-api, cryptohash, hamlet
, happstack-server, ixset, markdown, mtl, network, network-uri
, old-locale, options, rss, safecopy, shakespeare, stdenv, text
, blaze-markup, bytestring, cache, crypto-api, cryptohash, hamlet
, happstack-server, markdown, mtl, network, network-uri
, old-locale, options, rss, shakespeare, stdenv, text
, time, transformers
}:
mkDerivation {
@ -12,7 +12,7 @@ mkDerivation {
isExecutable = true;
libraryHaskellDepends = [
base base64-bytestring blaze-html blaze-markup bytestring
crypto-api cryptohash hamlet happstack-server markdown mtl
cache crypto-api cryptohash hamlet happstack-server markdown mtl
network network-uri old-locale rss shakespeare text time
transformers
];